Do not ask for "discarding changes" on first doSaveAs
authorStefan Vogel <sv@exept.de>
Mon, 25 Feb 2008 20:29:47 +0100
changeset 2293 b8149118f0af
parent 2292 2e16dc38d3d2
child 2294 0a4591e6bb20
Do not ask for "discarding changes" on first doSaveAs
UIPainter.st
--- a/UIPainter.st	Mon Feb 25 20:21:15 2008 +0100
+++ b/UIPainter.st	Mon Feb 25 20:29:47 2008 +0100
@@ -3150,7 +3150,7 @@
         self clearModified.
         painter resetModification
     ].
-    ^true
+    ^ true
 
     "Modified: / 20.5.1998 / 02:03:16 / cg"
 !
@@ -4775,7 +4775,6 @@
 
     extentUsed := self canvas extent.
     (extentUsed > (1024 @ 768)) ifTrue:[
-"/    (extentUsed > (800 @ 600)) ifTrue:[
         Dialog 
             warn:(resources
                 stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too small on some displays - if required, resize and save again.'
@@ -4807,7 +4806,9 @@
     |classAndSelector|
 
     self askForSectionModification.
-    self askForModification ifFalse:[^ false].
+    self hasSpecClassAndSelector ifTrue:[
+        self askForModification ifFalse:[^ false].
+    ].
 
     classAndSelector := ResourceSelectionBrowser
             request: 'Save Window Spec In Class'