UIObjectView.st
changeset 79 33212fbe9766
parent 78 a0a00603a8b6
child 82 99dc76d66eab
equal deleted inserted replaced
78:a0a00603a8b6 79:33212fbe9766
   745 
   745 
   746     object := actionData object.
   746     object := actionData object.
   747 
   747 
   748     self invertOutlineOf:object.
   748     self invertOutlineOf:object.
   749     p := (self alignToGrid:aPoint) - (actionData delta).
   749     p := (self alignToGrid:aPoint) - (actionData delta).
       
   750 
   750     self perform:(actionData selector) with:object with:p.
   751     self perform:(actionData selector) with:object with:p.
   751     object geometryLayout:(object geometryLayout).
   752    "/ object geometryLayout:(object geometryLayout).
   752     self invertOutlineOf:object
   753     self invertOutlineOf:object
   753 
   754 
   754 !
   755 !
   755 
   756 
   756 endResize
   757 endResize
  1021 
  1022 
  1022 shiftLayout:aView top:t bottom:b left:l right:r
  1023 shiftLayout:aView top:t bottom:b left:l right:r
  1023     "shift layout for a view; in case of an open transaction, the undo
  1024     "shift layout for a view; in case of an open transaction, the undo
  1024      action is registered
  1025      action is registered
  1025     "
  1026     "
  1026     |type layout|
  1027     |type layout oldExt|
  1027 
  1028 
  1028     type := self class layoutType:aView.
  1029     type := self class layoutType:aView.
  1029 
  1030 
  1030     type notNil ifTrue:[
  1031     type notNil ifTrue:[
  1031         self undoLayoutView:aView.
  1032         self undoLayoutView:aView.
  1032 
  1033 
  1033         type == #Extent ifTrue:[
  1034         type == #Extent ifTrue:[
  1034             ^ aView geometryLayout:layout
  1035             oldExt := aView extent.
       
  1036             aView extent:(oldExt + ((r-l) @ (b-t))).
       
  1037             ^ self 
  1035         ].
  1038         ].
  1036 
  1039 
  1037         layout := aView geometryLayout copy.
  1040         layout := aView geometryLayout copy.
  1038 
  1041 
  1039         layout isLayout ifTrue:[
  1042         layout isLayout ifTrue:[