All-- Thank you for this latest round of help.
I decided to use Ric Sherlock's code as a basis for my grid routine and it worked! Interesting that some of the operations in his sample are either missing or hard to find on the J website. This suggests potential documentation improvement might be needed. Donald Pittenger On Mar 17, 2010, at 8:06 PM, Sherlock, Ric wrote: >> From: Donald Pittenger >> >> Anyhow, for now assume the following: >> >> Data are selected, read into the system and formatted into a matrix >> called DATAMAT (global variable), all in the "base" locale. >> >> A button on a form is clicked, evoking a handler that might be called >> MainForm_continue_button. That handler ideally should contain code >> that calls , say, NewForm=: 0 : 0 that creates a form with all the >> gadgets including TWO isigraphs that I'll call grid0 and grid1. >> Let's stipulate that the data in DATAMAT are to appear in grid0. > > I've attached some demo code below that may help. > >> Actual code I've developed is now too extensive to include in an >> email, so I'm hoping the description above will be good enough as a >> basis for any help. > > It is often good to break down your problems to a simple demo when > posting - means less work for those trying to help you and I find > that it often helps me understand and solve the problem myself. > > Regards, > Ric > > NB. ==== Form & Grid Example ========== > require 'grid pack' > coinsert 'jgl2' > DATAMAT=: i.4 5 > > MAIN=: 0 : 0 > pc main; > xywh 136 8 44 12;cc continue button;cn "Continue"; > xywh 136 23 44 12;cc cancel button;cn "Cancel"; > pas 6 6;pcenter; > rem form end; > ) > > main_run=: 3 : 0 > wd MAIN > NB. initialize form here > wd 'pshow;' > ) > > main_close=: 3 : 0 > wd'pclose' > ) > > main_cancel_button=: main_close > > main_continue_button=: 3 : 0 > newform_run'' > ) > > NEWFORM=: 0 : 0 > pc newform owner; > xywh 141 7 44 18;cc cancel button;cn "Cancel"; > xywh 3 4 106 45;cc grid0 isigraph; > xywh 4 57 104 47;cc grid1 isigraph; > pas 6 6;pcenter; > rem form end; > ) > > newform_run=: 3 : 0 > wd NEWFORM > NB. initialize form here > grid0=: conew 'jzgrid' > update_grid0 DATAMAT > grid1=: conew 'jzgrid' > update_grid1 2*DATAMAT > wd 'pshow;' > ) > > newform_close=: 3 : 0 > wd'pclose' > destroy__grid0'' > ) > > newform_cancel_button=: newform_close > > update_grid0=: 3 : 0 > CELLDATA=. <"0 y > GRIDID=. GRIDLOC=. 'grid0' > show__grid0 pack ;:'CELLDATA GRIDID GRIDLOC' > ) > > update_grid1=: 3 : 0 > CELLDATA=. <"0 y > GRIDID=. GRIDLOC=. 'grid1' > show__grid1 pack ;:'CELLDATA GRIDID GRIDLOC' > ) > > main_run'' > NB. ===================================================== > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
