FileBrowser.st
changeset 1340 2378e91a0236
parent 1339 4b712d8c1738
child 1341 c1e3438777ea
--- a/FileBrowser.st	Tue Oct 07 15:10:43 1997 +0200
+++ b/FileBrowser.st	Wed Oct 08 16:56:52 1997 +0200
@@ -1786,11 +1786,12 @@
     (subView modified not or:[subView contentsWasSaved]) ifTrue:[
         ^ true
     ].
-    ^ (self ask:(resources string:question) yesButton:yesButtonText) ifTrue:[
+    (self ask:(resources string:question) yesButton:yesButtonText) ifTrue:[
         "/ reset modified flag so question is asked only once
         subView modified:false.
-        true
-    ] ifFalse:[false]
+        ^ true
+    ].
+    ^ false
 
     "Modified: 2.10.1997 / 14:23:47 / stefan"
 !
@@ -3994,5 +3995,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.203 1997-10-07 13:10:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.204 1997-10-08 14:56:52 cg Exp $'
 ! !