--- 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:[