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
\ backing 28aug99py
how: : init ( -- ) ;
how: : init ( -- ) -$80000000 dup x ! y ! ;
: schedule ( xt o time -- ) dpy schedule ;
: invoke ( -- time ) dpy invoke ;
: cleanup ( o -- ) dpy cleanup ;
......@@ -99,7 +99,7 @@ how: : init ( -- ) ;
: draw ( -- ) flags #hidden bit@ ?EXIT
flags #draw bit@ 0= ?EXIT
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 @
[defined] win32 [IF] xrc dc @ dpy image
[ELSE] xpict @ IF -1 xpict @ dpy mask
......
Markdown is supported
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