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

snake-game.ui: load game textures in graft, dispose in ungraft. 

Use find-gl-context to fix dispose bug that was corrupting UI on macOS.
factor-shell
John Benediktsson 2018-01-19 15:11:41 -08:00
parent 9e32cce5ed
commit 4a50385af1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/snake-game/ui/ui.factor
View File

@ -95,14 +95,14 @@ CONSTANT: snake-game-cell-size 20
: toggle-game-pause ( snake-gadget -- ) : toggle-game-pause ( snake-gadget -- )
snake-game>> [ not ] change-paused? drop ; snake-game>> [ not ] change-paused? drop ;
: load-game-textures ( snake-gadget -- textures )
dup textures>> [ ] [ snake-textures >>textures textures>> ] ?if ;
M: snake-gadget graft* M: snake-gadget graft*
[ '[ _ do-updates ] 200 milliseconds every ] keep timer<< ; dup '[ _ do-updates ] 200 milliseconds every >>timer
snake-textures >>textures
drop ;
M: snake-gadget ungraft* M: snake-gadget ungraft*
[ stop-timer f ] change-timer [ stop-timer f ] change-timer
dup find-gl-context ! so texture disposing works properly
[ values dispose-each f ] change-textures [ values dispose-each f ] change-textures
drop ; drop ;
@ -110,7 +110,7 @@ M: snake-gadget pref-dim*
drop snake-game-dim [ snake-game-cell-size * 20 + ] map ; drop snake-game-dim [ snake-game-cell-size * 20 + ] map ;
M: snake-gadget draw-gadget* M: snake-gadget draw-gadget*
[ load-game-textures game-textures ] keep '[ [ textures>> game-textures ] keep '[
draw-background draw-background
{ 10 10 } [ { 10 10 } [
_ snake-game>> _ snake-game>>