Commit d3104a55 authored by bp's avatar bp

Compiles again on VFX

git-svn-id: https://forth-ev.de/repos/bigforth@1797 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent f039499f
......@@ -239,7 +239,7 @@ Variable (poly#
[defined] win32 [IF] Variable (poly'' [THEN]
2Variable (lastp
: wsat ( n -- w ) $7FFF min -$8000 max ;
: wsat ( n -- w ) $7FFF min $-8000 max ;
: <poly ( x y -- x y ) (poly# off (poly' @ 0=
IF $1010 NewPtr (poly' !
[defined] win32 [IF] $2008 NewPtr (poly'' ! (poly' @ off [THEN]
......
......@@ -8,7 +8,7 @@ public: gadget ptr child method create-pixmap
\ backing 28aug99py
how: : init ( -- ) -$80000000 dup x ! y ! ;
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 ( -- ) -$80000000 dup x ! y ! ;
: draw ( -- ) flags #hidden bit@ ?EXIT
flags #draw bit@ 0= ?EXIT
xwin @ noback @ 0= and redraw-all @ 0= and
IF -$80000000 dup x @ y @ d= 0= \ 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
......
......@@ -1034,6 +1034,12 @@ set-current
0 test cr \ writes "false"
[THEN]
\ ******************************************
\ nested picture number output buffer (stub)
\ ******************************************
: <<# <# ;
: #>> ;
\ ***************
\ debugging tools
......
......@@ -26,8 +26,6 @@ base @ hex
3F and r> or
REPEAT r> drop ;
: xc, ( xchar -- ) here xc!+ dp ! ;
: xc!+ ( xc xcaddr -- xcaddr' )
over maxascii u< IF tuck c! char+ EXIT THEN \ special case ASCII
>r 0 swap 3F
......@@ -36,6 +34,8 @@ base @ hex
REPEAT 7F xor 2* or r>
BEGIN over 80 u< 0= WHILE tuck c! char+ REPEAT nip ;
: xc, ( xchar -- ) here xc!+ dp ! ;
: xc!+? ( xc xcaddr u -- xcaddr' u' flag )
>r over xc-size r@ over u< IF ( xc xc-addr1 len r: u1 )
\ not enough space
......
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