# HG changeset patch
# User ca
# Date 876931412 -7200
# Node ID 7c36c8b2b495bfee83e17a22f8ca233a845366e8
# Parent  e0920419a12b7627d8b473e6502ef56a154d95c5
update images;
using #resolveName:

diff -r e0920419a12b -r 7c36c8b2b495 HierarchicalListEditor.st
--- a/HierarchicalListEditor.st	Wed Oct 15 17:57:40 1997 +0200
+++ b/HierarchicalListEditor.st	Wed Oct 15 18:03:32 1997 +0200
@@ -63,11 +63,7 @@
 iconCreateChild
 
     IconCreateChild isNil ifTrue:[
-        IconCreateChild := Image fromFile:'/home/ca/st/images/ui_hierListChild.xpm'.
-
-        IconCreateChild isNil ifTrue:[
-            IconCreateChild := MenuEditor iconCreateMenu
-        ].
+        IconCreateChild := Image fromFile:'bitmaps/ui_hierListChild.xpm'.
     ].
   ^ IconCreateChild.
 
@@ -79,11 +75,7 @@
 iconCreateSister
 
     IconCreateSister isNil ifTrue:[
-        IconCreateSister := Image fromFile:'/home/ca/st/images/ui_hierListSister.xpm'.
-
-        IconCreateSister isNil ifTrue:[
-            IconCreateSister := MenuEditor iconCreateItem
-        ]
+        IconCreateSister := Image fromFile:'bitmaps/ui_hierListSister.xpm'.
     ].
   ^ IconCreateSister.
 
@@ -941,7 +933,7 @@
         accepted := self openDialogInterface:#classAndMethodSpec withBindings:bindings.
 
         accepted ifTrue:[
-            cls := Smalltalk at:(bindings at:#specClassChannel) value asSymbol.
+            cls := self resolveName:(bindings at:#specClassChannel) value.
 
             cls notNil ifTrue:[
                 sel := (bindings at:#specSelectorChannel) value withoutSeparators.
@@ -1208,11 +1200,7 @@
     "
     |sel anchor|
 
-    (specClass := aClass) isBehavior ifFalse:[
-        specClass notNil ifTrue:[
-            specClass := Smalltalk at:aClass asSymbol
-        ]
-    ].
+    specClass := self resolveName:aClass.
     specSelector := nil.
 
     aSelector size ~~ 0 ifTrue:[