# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 889101446 -3600
# Node ID ca492fc8390affa406d578658e95dd2d200a4f16
# Parent  e9140237290072eacd8303f675a8caec7d0f2d5a
better info-box message (if modieified and no class/selector is defined)

diff -r e91402372900 -r ca492fc8390a UIPainter.st
--- 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