--- 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