equal
deleted
inserted
replaced
947 motionAction := [:movePoint | self doDragResize:movePoint]. |
947 motionAction := [:movePoint | self doDragResize:movePoint]. |
948 releaseAction := [self endResize]. |
948 releaseAction := [self endResize]. |
949 self invertOutlineOf:object |
949 self invertOutlineOf:object |
950 ! ! |
950 ! ! |
951 |
951 |
952 !UIObjectView methodsFor:'private handles'! |
952 !UIObjectView methodsFor:'private-handles'! |
953 |
953 |
954 handlesOf:aComponent do:aTwoArgAction |
954 handlesOf:aComponent do:aTwoArgAction |
955 "perform action on each handle of a component |
955 "perform action on each handle of a component |
956 " |
956 " |
957 |dlt ext| |
957 |dlt ext| |
972 (rectangle containsPoint:aPoint) ifTrue:[^ what] |
972 (rectangle containsPoint:aPoint) ifTrue:[^ what] |
973 ]. |
973 ]. |
974 ^ nil |
974 ^ nil |
975 ! ! |
975 ! ! |
976 |
976 |
977 !UIObjectView methodsFor:'private resizing-subviews'! |
977 !UIObjectView methodsFor:'private-resizing subviews'! |
978 |
978 |
979 resize:aView bottom:aPoint |
979 resize:aView bottom:aPoint |
980 "resize a views bottom |
980 "resize a views bottom |
981 " |
981 " |
982 undoHistory withoutTransactionDo:[ |
982 undoHistory withoutTransactionDo:[ |
1059 |
1059 |
1060 ] |
1060 ] |
1061 |
1061 |
1062 ! ! |
1062 ! ! |
1063 |
1063 |
1064 !UIObjectView methodsFor:'private shift-layout'! |
1064 !UIObjectView methodsFor:'private-shift layout'! |
1065 |
1065 |
1066 shiftLayout:aView left:l right:r |
1066 shiftLayout:aView left:l right:r |
1067 "shift layout for a view; in case of an open transaction, the undo |
1067 "shift layout for a view; in case of an open transaction, the undo |
1068 action is registered |
1068 action is registered |
1069 " |
1069 " |