I added wd 'pshow;' but now it seems to be never ending ----------------- NB. play with three grids require 'jzgrid'
wdpclose 'f1' NB. ========================================================= F1=: 0 : 0 pc f1 closeok; xywh 10 70 80 80;cc g1 isigraph leftscale rightmove bottommove; xywh 100 70 80 80;cc g2 isigraph leftscale rightmove bottommove; xywh 190 70 80 80;cc g3 isigraph leftscale rightmove bottommove; xywh 10 24 60 11;cc ra static;cn "ra"; xywh 100 24 60 11;cc rb static;cn "rb"; xywh 190 24 60 11;cc rc static;cn "rc"; xywh 10 34 60 11;cc na static;cn "na"; xywh 100 34 60 11;cc nb static;cn "nb"; xywh 190 34 60 11;cc nc static;cn "nc"; xywh 10 50 60 11;cc ca static;cn "ca"; xywh 100 50 60 11;cc cb static;cn "cb"; xywh 190 50 60 11;cc cc static;cn "cc"; xywh 10 160 60 12;cc ia edit; xywh 100 160 60 12;cc ib edit; xywh 190 160 60 12;cc ic edit; pas 6 6;pcenter;ptop; rem form end; ) f1_run=: 3 : 0 wd F1 wd 'pshow;' g1=: '' conew 'jzgrid' GRIDID__g1=: 'g1' CELLDATA__g1=: i.100 100 show__g1'' wd'set ra * ',":$CELLDATA__g1 wd'set na * A' wd'set ca * ' A=:CELLDATA__g1 g2=: '' conew 'jzgrid' GRIDID__g2=: 'g2' CELLDATA__g2=: i.100 100 show__g2'' wd'set rb * ',":$CELLDATA__g2 wd'set nb * B' wd'set cb * ' B=:CELLDATA__g2 g3=: '' conew 'jzgrid' GRIDID__g3=: 'g3' CELLDATA__g3=: i.100 100 show__g3'' wd'set rc * ',":$CELLDATA__g3 wd'set nc * C' wd'set cc * ' C=:CELLDATA__g3 wd 'pshow;' ) f1_close=: 3 : 0 wd'pclose' ) f1_ia_button=: 3 : 0 try. A=:".ia CELLDATA__g1=:A show__g1'' wd'set ra * ',":$A wd'set na * A' wd'set ca * ',ia catch. wd'set ra * villa' wd'set na * something is wrong' wd'set ca * ',ia CELLDATA__g1=:'' show__g1'' end. ) f1_ib_button=: 3 : 0 try. B=:".ib CELLDATA__g2=:B show__g2'' wd'set rb * ',":$B wd'set nb * B' wd'set cb * ',ib catch. wd'set rb * villa' wd'set nb * something is wrong' wd'set cb * ',ib CELLDATA__g2=:'' show__g2'' end. ) f1_ic_button=: 3 : 0 try. C=:".ic CELLDATA__g3=:C show__g3'' wd'set rc * ',":$C wd'set nc * C' wd'set cc * ',ic catch. wd'set rc * villa' wd'set nc * something is wrong' wd'set cc * ',ic CELLDATA__g3=:'' show__g3'' end. ) f1_run'' 2012/2/20 bill lam <bbill....@gmail.com> > You need to add wd'pshow' after wd F1, please refer to gtkwd jwiki > page. > > Be warned that grid is very inefficient under gl2 emulation, jgtkgrid > should be faster. > > Вск, 19 Фев 2012, Björn Helgason писал(а): > > I am moving an application from J6 to J7 GTK and when I do show on the > grid > > I get an error > > > > > > wd F1 > > > > g1=: '' conew 'jzgrid' > > GRIDID__g1=: 'g1' > > CELLDATA__g1=: i.100 100 > > show__g1'' > > > > > > assertion failure: cairo_glclipreset > > | 0~:gtkcr,gtkpl > > > > What am I missing? > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > > -- > regards, > ==================================================== > GPG key 1024D/4434BAB3 2008-08-24 > gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3 > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm -- Björn Helgason, Verkfræðingur Fornustekkum II 781 Hornafirði, t-póst: gos...@gmail.com gsm: +3546985532 twitter: @flugfiskur http://groups.google.com/group/J-Programming Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans góður kennari getur stigið á tær án þess að glansinn fari af skónum /|_ .-----------------------------------. ,' .\ / | Með léttri lund verður | ,--' _,' | Dagurinn í dag | / / | Enn betri en gærdagurinn | ( -. | `-----------------------------------' | ) | (\_ _/) (`-. '--.) (='.'=) ♖♘♗♕♔♙ `. )----' (")_(") ☃☠ ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
