diff -r ffa9ea02d276 -r 715b3dbba87d UIPainterView.st
--- a/UIPainterView.st	Tue May 27 11:12:11 1997 +0200
+++ b/UIPainterView.st	Tue May 27 11:16:45 1997 +0200
@@ -290,7 +290,7 @@
     |prop coll s|
 
     (aStringOrCollection isNil or:[aStringOrCollection isEmpty]) ifTrue:[
-        ^ self unselect
+        ^ self select:nil
     ].
 
     (s := aStringOrCollection) isString ifFalse:[
@@ -305,14 +305,14 @@
                 ]
             ].
             coll size == 1 ifTrue:[ ^ self select:(coll at:1) ].
-            coll size == 0 ifTrue:[ ^ self unselect ].
+            coll size == 0 ifTrue:[ ^ self select:nil ].
 
           ^ self select:coll.
         ]
     ].
 
     prop := self propertyOfName:s.
-    prop isNil ifTrue:[^ self unselect]
+    prop isNil ifTrue:[^ self select:nil]
               ifFalse:[^ self select:(prop view)]
 
 ! !
@@ -391,7 +391,7 @@
     coll := self minSetOfSuperViews:(self selection).
 
     coll notNil ifTrue:[
-        self unselect.
+        self select:nil.
         specs := coll collect:[:aView| self fullSpecFor:aView ].
         self setSelection:specs
     ].
@@ -409,7 +409,7 @@
 
     coll notNil ifTrue:[
         listHolder disableNotificationsWhileEvaluating:[
-            self unselect.
+            self select:nil.
             specs := coll collect:[:aView| self fullSpecFor:aView ].
             text  := self transactionTextFor:coll.
 
@@ -451,7 +451,7 @@
     (self canPasteInto:frame) ifFalse:[
         frame := self
     ].
-    self unselect.
+    self select:nil.
 
     newSel  := OrderedCollection new.
     builder := UIBuilder new.
@@ -1113,7 +1113,7 @@
     "remove all objects and properties
     "
     listHolder disableNotificationsWhileEvaluating:[
-        self unselect.
+        self select:nil.
         listHolder  removeAll.
         undoHistory reinitialize.
     ]