game-of-life: flip scroll direction.

diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor
index f96b4268fbd8663a34c46bf7c81903cd2df60137..90a41bedbfd2e91811c1c2278d4be339e2f5209d 100644 (file)
--- 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 ;