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