changed #moveSelectionUp: fix moving bug
authorStefan Vogel <sv@exept.de>
Tue, 31 Mar 2009 06:34:49 +0200
changeset 2485 59ecb1305177
parent 2484 b6f8d141282f
child 2486 a5d389685ab7
changed #moveSelectionUp: fix moving bug
UIObjectView.st
--- a/UIObjectView.st	Thu Mar 26 15:37:03 2009 +0100
+++ b/UIObjectView.st	Tue Mar 31 06:34:49 2009 +0200
@@ -1993,7 +1993,7 @@
 
     self moveDo:[:aView|
         aligning ifTrue:[
-            n := ((aView computeOrigin x) \\ gridY).
+            n := ((aView computeOrigin y) \\ gridY).
             n == 0 ifTrue:[n := gridY].
             n := n negated.
         ] ifFalse:[
@@ -2002,7 +2002,6 @@
         n := n * howMany.
         self shiftLayout:aView top:n bottom:n
     ]
-
 ! !
 
 !UIObjectView methodsFor:'user actions-position'!