diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor index f96b4268fb..90a41bedbf 100644 --- a/extra/game-of-life/game-of-life.factor +++ b/extra/game-of-life/game-of-life.factor @@ -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 ;