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

game-of-life: flip scroll direction.

windows-high-dpi
John Benediktsson 2018-03-09 16:32:08 -08:00
parent 25fc79a40c
commit 5e7bfd7cc4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/game-of-life/game-of-life.factor
View File

@ -72,7 +72,7 @@ M: grid-gadget ungraft*
[ timer>> stop-timer ] [ call-next-method ] bi ;
M: grid-gadget pref-dim*
[ grid>> grid-dim ] [ size>> '[ _ * ] bi@ 2array ] bi ;
[ grid>> grid-dim swap ] [ size>> '[ _ * ] bi@ 1 + 2array ] bi ;
:: update-grid ( gadget -- )
gadget dim>> first2 :> ( w h )
@ -145,8 +145,8 @@ SYMBOL: last-click
: on-scroll ( gadget -- )
[
scroll-direction get second {
{ [ dup 0 > ] [ 2 ] }
{ [ dup 0 < ] [ -2 ] }
{ [ dup 0 > ] [ -2 ] }
{ [ dup 0 < ] [ 2 ] }
[ 0 ]
} cond nip + 4 30 clamp
] change-size relayout-1 ;