--- a/UIPainter.st Thu Sep 04 14:16:39 1997 +0200
+++ b/UIPainter.st Thu Sep 04 14:17:21 1997 +0200
@@ -1458,7 +1458,7 @@
].
cls notNil ifTrue:[
- (aspect := self specTool specification modelSelector) notNil ifTrue:[
+ (aspect := self specTool specification hierarchicalList) notNil ifTrue:[
aspect := aspect asSymbol
] ifFalse:[
"/ cg: q&d hack ...
@@ -1479,7 +1479,7 @@
editor selectorName ~= aspect ifTrue:[
editor didInstall ifTrue:[
- self specTool specification modelSelector:editor selectorName asSymbol.
+ self specTool specification hierarchicalList:editor selectorName asSymbol.
self modifiedChannel value:true.
self accept
]
@@ -2978,7 +2978,7 @@
"
super initialize.
self multipleSelectOk:true.
- self model:(SelectionInTree new).
+
cvsEventsDisabled := false.
imageMasterChild := (self class imageMasterChild) onDevice:device.
imageMasterParent := (self class imageMasterParent) onDevice:device.