I have the following J602 code which initializes a window for opengl just fine, but only the first time in a J session. After the first time if I execute `tgsj_run ''` with the original graphics window still open (it is closed before the first execution of `tgsj_run ''`) I get a new grpahics window. Also upon the second execution of `tgsj_run ''` the .ijs window disappears.

On the other hand if I close the graphics window with escape before re-executing `tgsj_run ''`, I get varied results. Sometimes it works fine, but most often I either get a system crash or the old window reopens along with the new window when I re-execute `tgsj_run ''`.

Any ideas?

   9!:12''
5
   9!:14''
j602/2008-03-03/16:45



ogl =: ''

tgsj_run=: 3 : 0
try.
  opengl_close ''
  free__ogl''      NB. force new rc
catch.
end.
wd OPENGL
wdmove _1 0
if. 0=#ogl do.
  ogl=: ''conew'jzopengl'
  wd'setfocus g'
end.
wd'pcenter;pshow;'
yw 0  NB. this is a startup command for my app
)

OPENGL=: 0 : 0
pc opengl closeok;pn tgsj;
xywh 0 0 200 150;cc g isigraph opengl rightmove bottommove;
pas 0 0;
rem form end;
)


(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to