--- a/MenuEditor.st Wed Oct 15 12:41:27 1997 +0200
+++ b/MenuEditor.st Wed Oct 15 12:45:33 1997 +0200
@@ -1782,17 +1782,13 @@
|cls|
- (cls := self specClass) isNil ifTrue:[
- ^ self information:'no class yet'.
- ].
-
- cls isBehavior ifFalse:[
- (cls := Smalltalk at:cls asSymbol) isNil ifTrue:[
- ^ self information:'no valid class defined'.
- ]
- ].
- SystemBrowser openInClass:cls class selector:(self painter selectorName)
-
+ cls := self resolveName:(self specClass).
+
+ cls notNil ifTrue:[
+ SystemBrowser openInClass:cls class selector:(self painter selectorName)
+ ] ifFalse:[
+ self information:'no valid class defined'.
+ ]
!
doDefineClass
@@ -1827,14 +1823,10 @@
doInstallSpec
|cls selector painter menu spec mthd category code|
- (cls := self specClass) isNil ifTrue:[
- ^ self information:'no class yet'.
- ].
-
- cls isBehavior ifFalse:[
- (cls := Smalltalk at:cls asSymbol) isNil ifTrue:[
- ^ self information:'no valid class defined'.
- ]
+ cls := self resolveName:(self specClass).
+
+ cls isNil ifTrue:[
+ ^ self information:'no valid class defined'.
].
painter := self painter.
selector := painter selectorName.
@@ -2257,13 +2249,13 @@
|spec cls menu node|
(aClass notNil and:[aSelector notNil]) ifTrue:[
- aClass isBehavior ifFalse:[cls := Smalltalk at:aClass asSymbol]
- ifTrue:[cls := aClass].
+ cls := self resolveName:aClass.
(cls respondsTo:aSelector) ifTrue:[
spec := cls perform:aSelector
]
].
+
spec isNil ifFalse:[
(spec isMemberOf:Menu) ifFalse:[
menu := Menu new fromLiteralArrayEncoding:spec.