Bootstrap fix
parent
36635a9b13
commit
5c62ed4917
|
@ -112,3 +112,10 @@ V{ } clone hand-buttons set-global
|
|||
: layout-queued ( -- )
|
||||
invalid dup queue-empty?
|
||||
[ 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 ;
|
||||
|
|
|
@ -18,13 +18,6 @@ TUPLE: world glass status focus fonts handle ;
|
|||
: font-sprites ( font world -- sprites )
|
||||
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 )
|
||||
<stack> over set-delegate
|
||||
t over set-gadget-root?
|
||||
|
|
Loading…
Reference in New Issue