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

minesweeper: fix bug when running before ever clicking on anything.

windows-high-dpi
John Benediktsson 2018-02-16 15:09:00 -08:00
parent ca3b44b39b
commit 0d878f2873
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/minesweeper/minesweeper.factor
View File

@ -182,8 +182,7 @@ M: grid-gadget pref-dim*
gadget pref-dim first :> width gadget pref-dim first :> width
width 2/ 26 - 3 2array [ width 2/ 26 - 3 2array [
gadget cells>> [ won? ] [ lost? ] bi gadget cells>> [ won? ] [ lost? ] bi
hand-buttons get-global empty? not gadget hand-click-rel [ second 58 >= ] [ f ] if*
gadget hand-click-rel second 58 >= and
smiley-image-path gadget draw-cached-texture smiley-image-path gadget draw-cached-texture
] with-translation ; ] with-translation ;
@ -284,7 +283,7 @@ TUPLE: minesweeper-gadget < track ;
[ <toolbar> format-toolbar f track-add ] [ <toolbar> format-toolbar f track-add ]
[ 1 track-add ] bi ; [ 1 track-add ] bi ;
M: minesweeper-gadget focusable-child* children>> ?second t or ; M: minesweeper-gadget focusable-child* children>> second ;
MAIN-WINDOW: run-minesweeper { MAIN-WINDOW: run-minesweeper {
{ title "Minesweeper" } { title "Minesweeper" }