steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changes to x.factor to allow stack effect inference

darcs
wayo.cavazos 2006-07-02 11:40:34 +00:00
parent 32657a0266
commit 6e340c6da1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/x11/x.factor
View File

@ -76,7 +76,7 @@ DEFER: with-win
2 / set-window-center-x ; 2 / set-window-center-x ;
: resize-window ( { width height } -- ) : resize-window ( { width height } -- )
>r dpy get win get r> [ ] each XResizeWindow drop ; dpy get win get rot first2 XResizeWindow drop ;
: set-window-width ( width -- ) : set-window-width ( width -- )
window-height 2array resize-window ; window-height 2array resize-window ;
@ -281,10 +281,10 @@ dpy get gcontext get rot XSetSubwindowMode drop ;
: clear-window ( -- ) dpy get win get XClearWindow drop ; : clear-window ( -- ) dpy get win get XClearWindow drop ;
: draw-point ( { x y } -- ) : draw-point ( { x y } -- )
>r dpy get win get gcontext get r> [ ] each XDrawPoint drop ; >r dpy get win get gcontext get r> first2 XDrawPoint drop ;
: draw-line ( { x1 y1 } { x2 y2 } -- ) : draw-line ( { x1 y1 } { x2 y2 } -- )
>r >r dpy get win get gcontext get r> [ ] each r> [ ] each XDrawLine drop ; >r >r dpy get win get gcontext get r> first2 r> first2 XDrawLine drop ;
: 2nth ( i seq -- item-i item-i+1 ) 2dup nth -rot swap 1 + swap nth ; : 2nth ( i seq -- item-i item-i+1 ) 2dup nth -rot swap 1 + swap nth ;
@ -315,7 +315,7 @@ dup length 1 - [ swap 2nth draw-line ] each-with ;
! 8.6 - Drawing Text ! 8.6 - Drawing Text
: draw-string ( { x y } string -- ) >r >r : draw-string ( { x y } string -- ) >r >r
dpy get win get gcontext get r> [ ] each r> dup length XDrawString drop ; dpy get win get gcontext get r> first2 r> dup length XDrawString drop ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! 9 - Window and Session Manager Functions ! 9 - Window and Session Manager Functions