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

ui: cleanup

db4
Slava Pestov 2010-07-17 16:09:25 -04:00
parent 88ca7abd54
commit 35e5c572ce
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/ui/ui.factor
View File

@ -81,6 +81,9 @@ M: world graft*
[ [ clean-up-broken-window ] [ ui-error ] bi* ] recover [ [ clean-up-broken-window ] [ ui-error ] bi* ] recover
] bi ; ] bi ;
: dispose-window-resources ( world -- )
[ <reversed> [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ;
M: world ungraft* M: world ungraft*
{ {
[ set-gl-context ] [ set-gl-context ]
@ -89,7 +92,7 @@ M: world ungraft*
[ hand-clicked close-global ] [ hand-clicked close-global ]
[ hand-gadget close-global ] [ hand-gadget close-global ]
[ end-world ] [ end-world ]
[ [ <reversed> [ [ dispose ] when* ] each V{ } clone ] change-window-resources drop ] [ dispose-window-resources ]
[ unfocus-world ] [ unfocus-world ]
[ [ (close-window) f ] change-handle drop ] [ [ (close-window) f ] change-handle drop ]
[ promise>> t swap fulfill ] [ promise>> t swap fulfill ]