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

Fix free-fonts so it works independently of close-world

slava 2006-03-21 20:20:16 +00:00
parent 5562310fdb
commit ccf28d5473
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/ui/hand.factor
View File

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

1
library/ui/world.factor
View File

@ -12,6 +12,7 @@ namespaces opengl sequences ;
TUPLE: world glass status focus fonts handle ; TUPLE: world glass status focus fonts handle ;
: free-fonts ( world -- ) : free-fonts ( world -- )
dup world-handle select-gl-context
world-fonts dup hash-values [ free-sprites ] each world-fonts dup hash-values [ free-sprites ] each
clear-hash ; clear-hash ;