# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 886423457 -3600
# Node ID e3f2bf2dfb59f24b9d7bdb39465ca49958e26e37
# Parent  11be1353d34cfa544e1e3f1c195be8e5e2b574ea
eliminated use of Structure - added private ResizeData class instead

diff -r 11be1353d34c -r e3f2bf2dfb59 UIObjectView.st
--- 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