UIObjectView.st
changeset 2849 e061cea3416f
parent 2722 647dfae127cd
child 3011 ceaec66469ff
equal deleted inserted replaced
2848:f11b5f5ab04e 2849:e061cea3416f
   840 
   840 
   841     |dX dY org delta|
   841     |dX dY org delta|
   842 
   842 
   843     anObject notNil ifTrue:[
   843     anObject notNil ifTrue:[
   844         org := anObject computeOrigin.
   844         org := anObject computeOrigin.
   845 
   845         org notNil ifTrue:[
   846         delta := aPoint - org.
   846             delta := aPoint - org.
   847         delta := (self alignToGrid:aPoint) - org.
   847             delta := (self alignToGrid:aPoint) - org.
   848         dX := delta x.
   848             dX := delta x.
   849         dY := delta y.
   849             dY := delta y.
   850 
   850 
   851         undoHistory withoutTransactionDo:[
   851             undoHistory withoutTransactionDo:[
   852             self shiftLayout:anObject horizontal:dX vertical:dY
   852                 self shiftLayout:anObject horizontal:dX vertical:dY
       
   853             ]
   853         ]
   854         ]
   854     ]
   855     ]
       
   856 
       
   857     "Modified: / 25-07-2011 / 17:27:08 / cg"
   855 !
   858 !
   856 
   859 
   857 startObjectMoveAt:aPoint
   860 startObjectMoveAt:aPoint
   858     "start object(s) move at a point"
   861     "start object(s) move at a point"
   859 
   862