Yea, sorry should have included all code. See below:

LIST1=: 0 : 0
pc list1;
menupop "File";
menu new "&New" "" "" "";
menu open "&Open" "" "" "";
menusep;
menu exit "&Exit" "" "" "";
menupopz;
xywh 136 8 44 12;cc ok button;cn "OK";
xywh 136 23 44 12;cc cancel button;cn "Cancel";
xywh 64 1 60 60;cc bxlist listbox;
xywh 0 0 60 12;cc name edit;
pas 6 6;pcenter;
rem form end;
)

list1_run=: 3 : 0
wd LIST1
NB. initialize form here
wd 'pshow;'
)

list1_close=: 3 : 0
wd'pclose'
)

list1_cancel_button=: 3 : 0
list1_close''
)

list1_ok_button=: 3 : 0
NB.wd'cc bxlist listbox ws_vscroll lbs_multiplesel'
list=.;:'apples bananas cherries dates'
wd 'set bxlist ',;list,  each LF
)

list1_name_button=: 3 : 0
wd 'set name ',bxlist
)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to