--- 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