--- a/UIPainter.st Wed Mar 04 22:37:54 1998 +0100
+++ b/UIPainter.st Thu Mar 05 13:37:26 1998 +0100
@@ -2998,14 +2998,22 @@
"/ ].
]
].
- self painter isModified ifTrue:[
- (self confirm:'The current interface has not yet been reinstalled!!\\Start anyway (based upon the previous interface)?' withCRs) ifFalse:[
- ^ self
- ]
+
+ (specClass notNil and:[specSelector size >= 2]) ifTrue:[
+ "/ box suppressed, if no-class box is coming anyway ...
+ self painter isModified ifTrue:[
+ (self confirm:'The current interface has not yet been reinstalled!!\\Start anyway (based upon the previous interface)?' withCRs) ifFalse:[
+ ^ self
+ ]
+ ].
].
(specClass isNil or:[specSelector size < 2]) ifTrue:[
- infoMessage := 'No class and selector defined!!'.
+ self painter isModified ifTrue:[
+ infoMessage := 'Class and selector must be defined,\and the interface must be saved first !!' withCRs.
+ ] ifFalse:[
+ infoMessage := 'No class and selector defined !!'.
+ ]
] ifFalse:[
cls := self resolveName:specClass.
@@ -3029,7 +3037,7 @@
].
app openInterface:specSelector
- "Modified: / 29.10.1997 / 19:01:50 / cg"
+ "Modified: / 5.3.1998 / 03:25:36 / cg"
!
doWindowSpec