To play a bit with it then it is possible to replace plot with pd and put two isigraphs on the form
Note that a key to place the the plot into the correct isigraph control and correct locale load 'jzplot' MYPLOT=: 0 : 0 pc myplot closeok; xywh 243 45 225 200;cc g0 isigraph ws_border rightscale bottommove; xywh 12 73 225 200;cc g1 isigraph ws_border rightscale bottommove; xywh 231 3 40 12;cc close button leftmove rightmove;cn "Close"; xywh 482 357 34 11;cc gg button;cn "gg"; xywh 0 0 34 11;cc jj button;cn "jj"; pas 2 0;pcenter; rem form end; ) myplot_close_button=: wd bind 'pclose' wd MYPLOT loc=: conew 'jzplot' NB. create plot object PForm__loc=: 'myplot' NB. define PForm in loc PFormhwnd__loc=: wd 'qhwndp' NB. define PFormhwnd in loc PId__loc=: 'g0' NB. define PId in loc pd__loc 'reset' NB. draw plot on the form pd__loc 1 2 3;5 6 4 pd__loc 5 6 7; 3 4 2 pd__loc 'show' loc2=: conew 'jzplot' NB. create plot object PForm__loc2=: 'myplot' NB. define PForm in loc PFormhwnd__loc2=: wd 'qhwndp' NB. define PFormhwnd in loc PId__loc2=: 'g1' NB. define PId in loc pd__loc2 'reset' NB. draw plot on the form pd__loc2 1 2 3 4 5 6 7 ;5 6 4 2 2 2 2 pd__loc2 5 6 7 3; 3 4 2 10 pd__loc2 'show' wd 'pshow' myplot_jj_button=: 3 : 0 plot__loc 1 2 3 4 5 ) myplot_gg_button=: 3 : 0 plot__loc2 3 4 5 2 2 1 ) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
