diff -r 6feed486f1f1 -r ea20be33291b UIPainter.st
--- a/UIPainter.st	Mon Jul 28 18:14:00 1997 +0200
+++ b/UIPainter.st	Mon Jul 28 18:30:55 1997 +0200
@@ -1652,7 +1652,7 @@
     "close all windows open by builder
     "
     self painter isModified ifTrue:[
-        (self confirm:'quit without saving ?') ifFalse:[
+        (self confirm:'quit without without saving your modifications ?') ifFalse:[
             ^ self
         ]
     ].
@@ -1671,6 +1671,7 @@
 
     super closeRequest.
 
+    "Modified: 28.7.1997 / 18:28:37 / cg"
 !
 
 closeRequestFor:aTopView
@@ -1933,6 +1934,10 @@
 
     |cls|
 
+    self painter isModified ifTrue:[
+        self warn:'the change have not yet been reinstalled.\\The browser will show the old interfaces code.' withCRs.
+    ].
+
     specClass isNil ifTrue:[
         ^ self information:'no class yet'.
     ].
@@ -1949,7 +1954,7 @@
 
     SystemBrowser openInClass:cls
 
-
+    "Modified: 28.7.1997 / 18:30:13 / cg"
 !
 
 doFromClass
@@ -2071,14 +2076,14 @@
 
 doNew
     self painter isModified ifTrue:[
-        (self confirm:'new interface without saving your modifications ?') ifFalse:[
+        (self confirm:'edit a new interface without saving your modifications ?') ifFalse:[
             ^ self
         ]
     ].
 
     self removeAll
 
-    "Modified: 17.6.1997 / 12:33:31 / cg"
+    "Modified: 28.7.1997 / 18:28:02 / cg"
 !
 
 doPickAView
@@ -2114,6 +2119,12 @@
 doStartApplication
     |cls|
 
+    self painter isModified ifTrue:[
+        (self confirm:'the changed spec has not yet been reinstalled.\\Start anyway (based upon the previous interface) ?' withCRs) ifFalse:[
+            ^ self
+        ]
+    ].
+
     (specClass isNil or:[specSelector size < 2]) ifTrue:[
         ^ self information:'no class or selector defined'.
     ].
@@ -2135,7 +2146,7 @@
     ].
     cls new openInterface:specSelector
 
-    "Modified: 17.6.1997 / 14:40:21 / cg"
+    "Modified: 28.7.1997 / 18:30:25 / cg"
 !
 
 doWindowSpec