Commit b162dbeb authored by bp's avatar bp
Browse files

Hope that fixes the ugly workaround

git-svn-id: https://forth-ev.de/repos/bigforth@1683 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 90d94bde
...@@ -8,7 +8,7 @@ public: gadget ptr child method create-pixmap ...@@ -8,7 +8,7 @@ public: gadget ptr child method create-pixmap
\ backing 28aug99py \ backing 28aug99py
how: : init ( -- ) ; how: : init ( -- ) -$80000000 dup x ! y ! ;
: schedule ( xt o time -- ) dpy schedule ; : schedule ( xt o time -- ) dpy schedule ;
: invoke ( -- time ) dpy invoke ; : invoke ( -- time ) dpy invoke ;
: cleanup ( o -- ) dpy cleanup ; : cleanup ( o -- ) dpy cleanup ;
...@@ -99,7 +99,7 @@ how: : init ( -- ) ; ...@@ -99,7 +99,7 @@ how: : init ( -- ) ;
: draw ( -- ) flags #hidden bit@ ?EXIT : draw ( -- ) flags #hidden bit@ ?EXIT
flags #draw bit@ 0= ?EXIT flags #draw bit@ 0= ?EXIT
xwin @ noback @ 0= and redraw-all @ 0= and xwin @ noback @ 0= and redraw-all @ 0= and
IF true \ x @ y @ or \ ugly workaround IF -$80000000 dup x @ y @ d= 0= \ ugly workaround
IF 0 0 w @ h @ x @ y @ IF 0 0 w @ h @ x @ y @
[defined] win32 [IF] xrc dc @ dpy image [defined] win32 [IF] xrc dc @ dpy image
[ELSE] xpict @ IF -1 xpict @ dpy mask [ELSE] xpict @ IF -1 xpict @ dpy mask
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment