SHARE
TWEET

Untitled

a guest Aug 5th, 2017 104 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. WP=: 0 : 0
  2. pc wp;pn "Sales for Year";
  3. xywh 159 3 34 12;cc cancel button leftmove rightmove;cn "Close";
  4. xywh 5 10 40 9;cc label static;cn "Names:";
  5. xywh 4 19 60 98;cc names listbox ws_vscroll rightscale bottommove;
  6. xywh 67 19 126 98;cc g isigraph ws_border leftscale rightmove bottommove;
  7. pas 4 4;pcenter;
  8. rem form end;
  9. )
  10.  
  11. wp_run=: 3 : 0
  12. wd WP
  13. wd 'set names ',,NAMES,.LF
  14. a=: conew 'jzplot'
  15. PForm__a=: 'wp'
  16. PFormhwnd__a=: wd 'qhwndp'
  17. PId__a=: 'g'
  18. wd 'pshow'
  19. )
  20.  
  21. wp_cancel_button=: wp_close=: wd bind 'pclose'
  22. wp_g_size=: 3 : 'psize__a 0'
  23.  
  24. wp_names_select=: 3 : 0
  25. index=. ".names_select
  26. name=. index { NAMES
  27. data=. index { NSALES
  28. ('bar;title ',name) plot__a data
  29. )
  30.  
  31. wp_run''
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top