diff -r 8bd36b004180 -r 882be7e03af4 UIPainterView.st
--- a/UIPainterView.st	Sat Jul 26 10:55:54 1997 +0200
+++ b/UIPainterView.st	Sat Jul 26 18:42:37 1997 +0200
@@ -11,7 +11,7 @@
 "
 
 UIObjectView subclass:#UIPainterView
-	instanceVariableNames:'claus listHolder superclassName className methodName categoryName'
+	instanceVariableNames:'treeView listHolder superclassName className methodName categoryName'
 	classVariableNames:'HandCursor'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -99,8 +99,6 @@
 findInputViewIn:aSuperView
     "returns index of input view into superview or nil
     "
-    |subviews|
-
     aSuperView == self ifTrue:[
         ^ self subViews findFirst:[:v| v == inputView ]
     ].
@@ -153,7 +151,7 @@
 !UIPainterView methodsFor:'change & update'!
 
 layoutChanged
-    claus layoutChanged
+    treeView layoutChanged
 ! !
 
 !UIPainterView methodsFor:'copy & cut & paste'!
@@ -183,7 +181,7 @@
     coll := self minSetOfSuperViews:(self selection).
 
     coll notNil ifTrue:[
-        claus cvsEventsDisabledDo:[
+        treeView cvsEventsDisabledDo:[
             self select:nil.
             specs := coll collect:[:aView| self fullSpecFor:aView ].
 
@@ -220,7 +218,7 @@
         ^ nil
     ].
 
-    claus cvsSetupListDo:[
+    treeView cvsSetupListDo:[
         aSpecificationOrList isCollection ifTrue:[
             paste := aSpecificationOrList
         ] ifFalse:[
@@ -398,7 +396,7 @@
     ].
     cls := Smalltalk classNamed:className.
 
-    claus propertiesDo:[:aProp |
+    treeView propertiesDo:[:aProp |
         |modelSelector menuSelector protoSpec thisCode|
 
         protoSpec := aProp spec.
@@ -468,7 +466,7 @@
 !
 
 generateWindowSpecMethodSource
-    |t s spec specArray str code category cls mthd|
+    |spec specArray str code category cls mthd|
 
     specArray := OrderedCollection new.
 
@@ -493,9 +491,9 @@
         ]
     ].
 
-    code := Character excla asString 
+    code := '!!'
             , className , ' class methodsFor:' , category storeString
-            , Character excla asString , '\\'
+            , '!!' , '\\'
 
             , methodName , '\'
             , '    "this window spec was automatically generated by the ST/X UIPainter"\\'
@@ -515,9 +513,7 @@
             , '    ^\' 
             , '     ', str contents
             , '\'
-            , Character excla asString
-            , ' '
-            , Character excla asString
+            , '!! !!'
             , '\\'.
 
     ^ code withCRs
@@ -544,7 +540,7 @@
 setupFromSpec:specOrSpecArray
     |spec builder|
 
-    claus cvsSetupListDo:[
+    treeView cvsSetupListDo:[
         self removeAll.
         spec    := UISpecification from:specOrSpecArray.
         builder := UIBuilder new.
@@ -556,7 +552,7 @@
 !
 
 treeView:aTreeView
-    claus := aTreeView
+    treeView := aTreeView
 ! !
 
 !UIPainterView methodsFor:'menus'!
@@ -588,16 +584,16 @@
     "remove anObject from the contents do redraw
     "
     anObject notNil ifTrue:[
-        claus removeView:anObject.
+        treeView removeView:anObject.
     ]
 !
 
 removeAll
     "remove all objects and properties
     "
-    claus cvsEventsDisabledDo:[
+    treeView cvsEventsDisabledDo:[
         self  select:nil.
-        claus removeAll.
+        treeView removeAll.
         self  removeUndoHistory.
     ]
 ! !
@@ -654,7 +650,7 @@
     "returns property assigned to unique identifier
     "
     anId notNil ifTrue:[
-        ^ claus propertyDetect:[:p| p identifier == anId ]
+        ^ treeView propertyDetect:[:p| p identifier == anId ]
     ].
     ^ nil
 !
@@ -666,7 +662,7 @@
 
     aString isNil ifFalse:[
         name := aString string withoutSeparators.
-      ^ claus propertyDetect:[:p| p name = name ].
+      ^ treeView propertyDetect:[:p| p name = name ].
     ].
     ^ nil
 !
@@ -675,7 +671,7 @@
     "returns property assigned to view
     "
     (aView isNil or:[aView == self]) ifFalse:[
-        ^ claus propertyDetect:[:p| p view == aView ]
+        ^ treeView propertyDetect:[:p| p view == aView ]
     ].
     ^ nil
 !
@@ -697,7 +693,7 @@
     size  := name size + 1.
     next  := 0.
 
-    claus propertiesDo:[:p|
+    treeView propertiesDo:[:p|
         |n|
         n := p name.
 
@@ -742,7 +738,7 @@
             selection add:anObject
         ].
         self showSelected:anObject.
-        claus cvsSelectionAdd:anObject.
+        treeView cvsSelectionAdd:anObject.
     ]
 
 
@@ -760,7 +756,7 @@
         ] ifFalse:[
             selection := nil
         ].
-        claus cvsSelectionRemove:anObject.
+        treeView cvsSelectionRemove:anObject.
     ]
 
 !
@@ -770,7 +766,7 @@
     "
     (self enabled and:[something ~= self selection]) ifTrue:[
         self setSelection:something withRedraw:true.
-        claus cvsSelection:something
+        treeView cvsSelection:something
     ]
 
 !
@@ -822,7 +818,7 @@
         (n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[
             s name:(self uniqueNameFor:s)
         ].
-        claus addProperty:p.
+        treeView addProperty:p.
     ].
 
     ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.
@@ -920,7 +916,7 @@
                     self elementChangedSize:aView.
                 ].
                 props spec:(aSpec copy).
-                claus propertyChanged:props.
+                treeView propertyChanged:props.
             ]
         ]
     ]
@@ -1082,7 +1078,7 @@
             spec setAttributesIn:view with:builder.
             self elementChangedSize:view.
         ].
-        claus propertyChanged:props.
+        treeView propertyChanged:props.
     ]
 ! !