coclass 'myclass'

MYCLASS=: 0 : 0
pc myclass;
menupop "File";
menu new "&New" "" "" "";
menu open "&Open" "" "" "";
menusep ;
menu exit "&Exit" "" "" "";
menupopz;
xywh 136 8 34 12;cc ok button;cn "OK";
xywh 136 23 34 12;cc cancel button;cn "Cancel";
pas 6 6;pcenter;
rem form end;
)

create=: 3 : 0
wd MYCLASS
formhwnd=: wd'qhwndp'
NB. initialize form here
wd 'pshow;'
)

destroy=: 3 : 0
wd'pclose'
codestroy''
)

myclass_cancel=:myclass_cancel_button=:myclass_close=:destroy

formselect=: 3 : 'wd''psel '',formhwnd'
