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

port to 0.80

darcs
wayo.cavazos 2006-02-03 07:02:59 +00:00
parent 4d5394a0d7
commit 3e468cfaaa
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/x11/concurrent-widgets.factor
View File

@ -23,7 +23,9 @@ TUPLE: window display id ;
SYMBOL: window-table
10 <hashtable> window-table set
! 10 <hashtable> window-table set
10 <hashtable> window-table set-global
: add-to-window-table ( <window> -- )
dup window-id window-table get set-hash ;

6
contrib/x11/gl.factor
View File

@ -1,7 +1,11 @@
IN: gl USING: kernel words sequences alien arrays namespaces x xlib x11 ;
! : >int-array ( seq -- <int-array> )
! dup length "int-array" <c-object> swap dup length >array
! [ pick set-int-nth ] 2each ;
: >int-array ( seq -- <int-array> )
dup length "int-array" <c-object> swap dup length >array [ pick set-int-nth ] 2each ;
dup length "int" <c-array> swap dup length >array [ pick set-int-nth ] 2each ;
: >attributes ( seq -- attributes )
0 add [ dup word? [ execute ] [ ] if ] map ;