Yes, the changes are intentional and I now think glwindoworg works the
way it should and works the same in both Jwdw and Jwdp.
----- Original Message -----
From: "bill lam" <[EMAIL PROTECTED]>
To: "Beta forum" <[email protected]>
Sent: Wednesday, August 16, 2006 10:57 AM
Subject: [Jbeta] glwindoworg
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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
