environment: j601 s beta/win32 I found behaviour of glwindoworg is different from that of J504,
1. offset is opposite sign 2. glwindoworg cannot affect previous gl cmds. I'm not sure which is correct. Are these changes intentional? -- regards, bill
load 'gl2' coclass 'test504' coinsert 'jgl2' glcmds_jgl2_=: 11!:2999 GLRECT=: 2031 NB. ========================================================= FM=: 0 : 0 pc fm; xywh 0 0 100 100;cc a isigraph; xywh 120 0 100 100;cc b isigraph; xywh 240 0 100 100;cc c isigraph; xywh 0 120 100 100;cc d isigraph; xywh 120 120 100 100;cc e isigraph; xywh 240 120 100 100;cc f isigraph; pas 3 3;pcenter; rem form end; ) fm_run=: 3 : 0 wd FM NB. initialize form here glsel 'a' glmap MM_RAW glrgb 100 100 255 glbrush '' glrect 0 0 100 100 glshowx '' glsel 'b' glmap MM_RAW glrgb 100 100 255 glbrush '' glwindoworg 50 50 glrect 0 0 100 100 glshowx '' glsel 'c' glmap MM_RAW glrgb 100 100 255 glbrush '' glwindoworg 50 50 glcmds (>:@#,]) GLRECT, 0 0 100 100 glshowx '' glsel 'd' glmap MM_RAW glrect 0 0 100 100 glshowx '' glsel 'e' glmap MM_RAW glrgb 100 100 255 glbrush '' glrect 0 0 100 100 glwindoworg 50 50 glshowx '' glsel 'f' glmap MM_RAW glrgb 100 100 255 glbrush '' glcmds (>:@#,]) GLRECT, 0 0 100 100 glwindoworg 50 50 glshow '' wd 'pshow;' ) fm_close=: 3 : 0 wd'pclose' ) fm_run '' NB. =========================================================
load 'gl2' coclass 'test601' coextend 'jgl2' GLRECT=: 2031 NB. ========================================================= FM=: 0 : 0 pc fm; xywh 0 0 100 100;cc a isigraph; xywh 120 0 100 100;cc b isigraph; xywh 240 0 100 100;cc c isigraph; xywh 0 120 100 100;cc d isigraph; xywh 120 120 100 100;cc e isigraph; xywh 240 120 100 100;cc f isigraph; pas 3 3;pcenter; rem form end; ) fm_run=: 3 : 0 wd FM NB. initialize form here glsel 'a' glrgb 100 255 100 glbrush '' glrect 0 0 100 100 glsel 'b' glrgb 100 255 100 glbrush '' glwindoworg 50 50 glrect 0 0 100 100 glsel 'c' glrgb 100 255 100 glbrush '' glwindoworg 50 50 glcmds (>:@#,]) GLRECT, 0 0 100 100 glsel 'd' glrect 0 0 100 100 glsel 'e' glrgb 100 255 100 glbrush '' glrect 0 0 100 100 glwindoworg 50 50 glsel 'f' glrgb 100 255 100 glbrush '' glcmds (>:@#,]) GLRECT, 0 0 100 100 glwindoworg 50 50 glpaint '' wd 'pshow;' ) fm_close=: 3 : 0 wd'pclose' ) fm_run '' NB. =========================================================
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
