--- a/UIPainter.st Tue Oct 28 20:28:46 2003 +0100
+++ b/UIPainter.st Tue Oct 28 21:25:36 2003 +0100
@@ -2746,17 +2746,17 @@
(self aspectFor:#superclassNameChannel) value:superClassName.
self painter
- className:clsName
- superclassName:superClassName
- selector:(selector ? '').
+ className:clsName
+ superclassName:superClassName
+ selector:(selector ? '').
self specClass:clsName.
specSelector := (selector ? '').
specSuperclass := superClassName.
- specClass notNil & selector notNil ifTrue:[
- self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
- self updateInfoLabel
+ (specClass notNil and:[ selector notNil ]) ifTrue:[
+ self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
+ self updateInfoLabel
].
"Modified: / 5.2.1998 / 09:44:58 / stefan"