--- a/UIPainter.st Fri Jul 09 21:26:59 1999 +0200
+++ b/UIPainter.st Fri Jul 09 21:30:32 1999 +0200
@@ -2776,25 +2776,23 @@
].
!
-loadFromMessage: aMessage
- "loads a window spec by evaluating aMessage"
-
- ((aMessage size > 0) and: [self askForModification])
- ifTrue:
- [
- |readStream aClass aSelector|
- readStream := aMessage readStream.
- (aClass := Smalltalk at: (readStream upTo: $ ) asSymbol) notNil
- ifTrue:
- [
- aSelector := readStream upToEnd asSymbol.
- self setClass: aClass selector: aSelector.
- (aClass respondsTo:aSelector)
- ifTrue:
- [
- self painter setupFromSpec:(aClass perform:aSelector)
- ]
- ]
+loadFromMessage: aMessageString
+ "loads a window spec by evaluating aMessageString
+ (which is something like 'fooClass windowSpec')"
+
+ |readStream aClass aSelector|
+
+ ((aMessageString size > 0) and: [self askForModification])
+ ifTrue:[
+ readStream := aMessageString readStream.
+ (aClass := Smalltalk at: (readStream upTo: $ ) asSymbol) notNil
+ ifTrue:[
+ aSelector := readStream upToEnd asSymbol.
+ self setClass: aClass selector: aSelector.
+ (aClass respondsTo:aSelector) ifTrue:[
+ self painter setupFromSpec:(aClass perform:aSelector)
+ ]
+ ]
]
!
@@ -3451,7 +3449,7 @@
^ nil
].
((application := cls new) respondsTo:#openInterface:) ifFalse:[
- ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs.
+ ^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe the spec is supposed to be used as subApplication/subCanvas)') withCRs.
].
application openInterface:specSelector
!