--- a/UIPainterView.st	Fri Feb 14 16:39:11 1997 +0100
+++ b/UIPainterView.st	Fri Feb 14 18:20:05 1997 +0100
@@ -18,6 +18,21 @@
 	category:'Interface-UIPainter'
 !
 
+Object subclass:#ViewProperty
+	instanceVariableNames:'aspectSelector changeSelector name nameIndex view elementClass
+		labelSelector identifier'
+	classVariableNames:'Identifier'
+	poolDictionaries:''
+	privateIn:UIPainterView
+!
+
+UIPainterView::ViewProperty subclass:#GroupProperties
+	instanceVariableNames:'controlledObjects group'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:UIPainterView
+!
+
 !UIPainterView class methodsFor:'documentation'!
 
 copyright
@@ -1253,6 +1268,128 @@
 
 ! !
 
+!UIPainterView::ViewProperty class methodsFor:'instance creation'!
+
+new
+    Identifier notNil ifTrue:[Identifier := Identifier + 1]
+                     ifFalse:[Identifier := 1].
+
+  ^ self basicNew initialize
+! !
+
+!UIPainterView::ViewProperty methodsFor:'accessing'!
+
+aspectSelector
+    "return the value of the instance variable 'aspectSelector' (automatically generated)"
+
+    ^ aspectSelector
+!
+
+aspectSelector:something
+    "set the value of the instance variable 'aspectSelector' (automatically generated)"
+
+    aspectSelector := something.
+!
+
+changeSelector
+    "return the value of the instance variable 'changeSelector' (automatically generated)"
+
+    ^ changeSelector!
+
+changeSelector:something
+    "set the value of the instance variable 'changeSelector' (automatically generated)"
+
+    changeSelector := something.!
+
+elementClass
+    "return the value of the instance variable 'elementClass' (automatically generated)"
+
+    ^ elementClass!
+
+elementClass:something
+    "set the value of the instance variable 'elementClass' (automatically generated)"
+
+    elementClass := something.!
+
+group
+    ^ nil
+!
+
+identifier
+    "return the unique identifier assigned to property
+    "
+    ^ identifier
+!
+
+labelSelector
+    "return the value of the instance variable 'labelSelector' (automatically generated)"
+
+    ^ labelSelector!
+
+labelSelector:something
+    "set the value of the instance variable 'labelSelector' (automatically generated)"
+
+    labelSelector := something.!
+
+name
+    "return the value of the instance variable 'name' (automatically generated)"
+
+    ^ name!
+
+name:something
+    "set the value of the instance variable 'name' (automatically generated)"
+
+    name := something.!
+
+nameIndex
+    "return the value of the instance variable 'nameIndex' (automatically generated)"
+
+    ^ nameIndex!
+
+nameIndex:something
+    "set the value of the instance variable 'nameIndex' (automatically generated)"
+
+    nameIndex := something.!
+
+view
+    "return the value of the instance variable 'view' (automatically generated)"
+
+    ^ view!
+
+view:something
+    "set the value of the instance variable 'view' (automatically generated)"
+
+    view := something.! !
+
+!UIPainterView::ViewProperty methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    identifier := Identifier
+! !
+
+!UIPainterView::GroupProperties methodsFor:'accessing'!
+
+controlledObjects
+    "return the value of the instance variable 'controlledObjects' (automatically generated)"
+
+    ^ controlledObjects!
+
+controlledObjects:something
+    "set the value of the instance variable 'controlledObjects' (automatically generated)"
+
+    controlledObjects := something.!
+
+group
+    "return the value of the instance variable 'group' (automatically generated)"
+
+    ^ group!
+
+group:something
+    "set the value of the instance variable 'group' (automatically generated)"
+
+    group := something.! !
+
 !UIPainterView class methodsFor:'documentation'!
 
 version