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

Bootstrap fix

slava 2006-03-21 08:06:31 +00:00
parent 36635a9b13
commit 5c62ed4917
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/ui/hand.factor
View File

@ -112,3 +112,10 @@ V{ } clone hand-buttons set-global
: layout-queued ( -- ) : layout-queued ( -- )
invalid dup queue-empty? invalid dup queue-empty?
[ drop ] [ deque dup layout repaint layout-queued ] if ; [ drop ] [ deque dup layout repaint layout-queued ] if ;
: close-world ( world -- )
dup world-handle select-gl-context
f over request-focus*
dup remove-notify
dup free-fonts
f swap set-world-handle ;

7
library/ui/world.factor
View File

@ -18,13 +18,6 @@ TUPLE: world glass status focus fonts handle ;
: font-sprites ( font world -- sprites ) : font-sprites ( font world -- sprites )
world-fonts [ drop V{ } clone ] cache ; world-fonts [ drop V{ } clone ] cache ;
: close-world ( world -- )
dup world-handle select-gl-context
f over request-focus*
dup remove-notify
dup free-fonts
f swap set-world-handle ;
C: world ( gadget status dim -- world ) C: world ( gadget status dim -- world )
<stack> over set-delegate <stack> over set-delegate
t over set-gadget-root? t over set-gadget-root?