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