[Jprogramming] How to get grid clicks in J7 GTK grid?

[Henry Rich]

Unless you had them defined elsewhere, you don't have celldata and 
celledit and therefore no grid.  I added those nouns, and I get grid 
events (when I click on cells) on J602 but not on

Engine: j701/2011-01-10/11:25
Library: 7.01.080
Platform: Win 32
Installer: j701a_win.exe
InstallPath: c:/j701

script follows

Henry Rich

require 'gtkwd grid'

cocurrent 'm1'

DISSECT=: 0 : 0
pc dissect closeok;
xywh 3 43 457 414;cc parsegrid isigraph rightscale bottomscale;
)

NB. grid control:

parsegrid=: '' conew 'jzgrid'


NB. setup:

foo=: 3 : 0
wd DISSECT
wd^:(-.IFJ6) 'pshow;pshow sw_hide'
setnames__parsegrid ('GRIDID';'parsegrid')
setnames__parsegrid ('GRIDHWNDC',&<wd 'qhwndc parsegrid')
setnames__parsegrid ('GRIDPID',&<'dissect')
celldata =: 'abc';'def';'ghi'
celledit =: 1 1 1
show__parsegrid _2 ]\ ('CELLDATA',&<celldata),('CELLEDIT',&<celledit)
wd 'pshow'
evtloop^:(-.IFJ6)''
)

NB. handler:

parsegrid_gridhandler =: 3 : 0
smoutput 'grid event!'
)

foo''






On 12/30/2012 6:37 PM, bill lam wrote:
> I test with the script
>
> ====================================
>
> require 'gtkwd grid'
>
> cocurrent 'm1'
>
> DISSECT=: 0 : 0
> pc dissect closeok;
> xywh 3 43 457 414;cc parsegrid isigraph rightscale bottomscale;
> )
>
> NB. grid control:
>
> parsegrid=: '' conew 'jzgrid'
>
>
> NB. setup:
>
> foo=: 3 : 0
> wd DISSECT
> wd^:(-.IFJ6) 'pshow;pshow sw_hide'
> setnames__parsegrid ('GRIDID';'parsegrid')
> setnames__parsegrid ('GRIDHWNDC',&<wd 'qhwndc parsegrid')
> setnames__parsegrid ('GRIDPID',&<'dissect')
>
> show__parsegrid _2 ]\ ('CELLDATA',&<celldata),('CELLEDIT',&<celledit)
> wd 'pshow'
> evtloop^:(-.IFJ6)''
> )
>
> NB. handler:
>
> parsegrid_gridhandler =: 3 : 0
> smoutput 'grid event!'
> )
>
> foo''
> ====================================
>
> the parsegrid_gridhandler was never run on _both_ j602 wine and gtkwd.
>
> can you provide a simple script to reproduce the bug on gtkwd that
> run ok on j602?
>