--- a/UIObjectView.st Sun Feb 01 16:16:03 1998 +0100
+++ b/UIObjectView.st Mon Feb 02 13:44:17 1998 +0100
@@ -21,6 +21,13 @@
category:'Interface-UIPainter'
!
+Object subclass:#ResizeData
+ instanceVariableNames:'object selector delta'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:UIObjectView
+!
+
Object subclass:#UndoHistory
instanceVariableNames:'startIdentifier identifier painter history transaction enabled'
classVariableNames:''
@@ -788,17 +795,15 @@
delta := anObject container originRelativeTo:self.
selector := ('resize:', aSelector, ':') asSymbol.
- resizeData := Structure with:(#object->anObject)
- with:(#selector->selector)
- with:(#delta->delta).
+ resizeData := ResizeData new
+ object:anObject selector:selector delta:delta.
"can change cursor dependent on vertical/horizontal resizing
"
oldCursor := cursor.
self cursor:(Cursor leftHand).
-
-
+ "Modified: / 2.2.1998 / 13:40:55 / cg"
!
doDragResize:aPoint
@@ -2122,6 +2127,34 @@
].
! !
+!UIObjectView::ResizeData methodsFor:'accessing'!
+
+delta
+ ^ delta
+
+ "Created: / 2.2.1998 / 13:40:32 / cg"
+!
+
+object
+ ^ object
+
+ "Created: / 2.2.1998 / 13:40:24 / cg"
+!
+
+object:anObject selector:aSymbol delta:anInteger
+ object := anObject.
+ selector := aSymbol.
+ delta := anInteger.
+
+ "Created: / 2.2.1998 / 13:39:22 / cg"
+!
+
+selector
+ ^ selector
+
+ "Created: / 2.2.1998 / 13:40:42 / cg"
+! !
+
!UIObjectView::UndoHistory class methodsFor:'constants'!
maxHistorySize