WP=: 0 : 0
pc wp;pn "Sales for Year";
xywh 159 3 34 12;cc cancel button leftmove rightmove;cn "Close";
xywh 5 10 40 9;cc label static;cn "Names:";
xywh 4 19 60 98;cc names listbox ws_vscroll rightscale bottommove;
xywh 67 19 126 98;cc g isigraph ws_border leftscale rightmove bottommove;
pas 4 4;pcenter;
rem form end;
)

wp_run=: 3 : 0
wd WP
wd 'set names ',,NAMES,.LF
a=: conew 'jzplot'
PForm__a=: 'wp'
PFormhwnd__a=: wd 'qhwndp'
PId__a=: 'g'
wd 'pshow'
)

wp_cancel_button=: wp_close=: wd bind 'pclose'
wp_g_size=: 3 : 'psize__a 0'

wp_names_select=: 3 : 0
index=. ".names_select
name=. index { NAMES
data=. index { NSALES
('bar;title ',name) plot__a data
)

wp_run''