NB. grid autocode

NB.+ start of mycontrol grid
NB.+ ws_border and ws_clipchildren styles are recommended

require'jtgrid' NB.+ replace with desired grid class

myform_mycontrol_create=: 3 : 0
mycontrol=: ''conew'jtgrid' NB.+ replace with desired grid class
init__mycontrol '+';'mycontrol';'mycontrolsb';'mycontrolsbv'
)

myform_mycontrol_size=:    3 : 'size__mycontrol 0'
myform_mycontrol_mbldown=: 3 : 'mbldown__mycontrol sysdata'
myform_mycontrol_mmove=:   3 : 'mmove__mycontrol sysdata'
myform_mycontrol_mblup=:   3 : 'mblup__mycontrol sysdata'
myform_mycontrol_mbldbl=:  3 : 'mbldbl__mycontrol sysdata'
myform_mycontrol_char=:    3 : 'char__mycontrol sysdata'
myform_mycontrol_copy=:    3 : 'copy__mycontrol 0'
myform_mycontrol_paste=:   3 : 'paste__mycontrol 0'

myform_mycontrolsb_button=: 3 : 0
scrollbar__mycontrol mycontrolsb
wd'setfocus mycontrol'
)

myform_mycontrolsbv_button=: 3 : 0
scrollbarv__mycontrol mycontrolsbv
wd'setfocus mycontrol'
)

NB.+ end of mycontrol grid
