--- a/UIPainter.st Thu Jul 23 16:13:10 1998 +0200
+++ b/UIPainter.st Thu Jul 23 18:37:31 1998 +0200
@@ -1924,7 +1924,8 @@
|cls loadedFromClass loadedFromSpec editor tableColumnsOrSelector|
(cls := self resolveName:specClass) isNil ifTrue:[
- self askForSaving ifFalse: [^self]
+ self askForSaving ifFalse: [^self].
+ cls := self resolveName:specClass.
].
loadedFromSpec := loadedFromClass := false.
@@ -1973,7 +1974,8 @@
|cls selectorOrMenu editor selectedSpec spec|
(cls := self resolveName:specClass) isNil ifTrue:[
- self askForSaving ifFalse: [^self]
+ self askForSaving ifFalse: [^self].
+ cls := self resolveName:specClass.
].
cls notNil ifTrue:[
@@ -2047,12 +2049,16 @@
|spec cls meta sel|
+ (self resolveName:specClass) isNil ifTrue:[
+ self askForSaving ifFalse: [^self]
+ ].
+
spec := self specTool specification.
cls := spec majorKey.
cls isNil ifTrue:[
cls := specClass.
].
- (cls := self resolveName:cls inClass:(Smalltalk at: specClass)) isNil ifTrue:[
+ (cls := self resolveName:cls inClass:(Smalltalk at: specClass asSymbol)) isNil ifTrue:[
spec majorKey isNil ifTrue:[
^ self warn:'Cannot find class (no majorKey specified)'.
].