oops
authorClaus Gittinger <cg@exept.de>
Fri, 21 May 1999 12:11:07 +0200
changeset 2165 db340546f304
parent 2164 fd79997e6ce0
child 2166 e1b98bde42c4
oops
AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Thu May 20 18:42:03 1999 +0200
+++ b/AbstractLauncherApplication.st	Fri May 21 12:11:07 1999 +0200
@@ -436,16 +436,16 @@
     |answer|
 
     answer := Dialog 
-		confirmWithCancel:(resources string:'Close %1 only or exit Smalltalk (close all)?' with:self class name)
-		labels:(resources array:#('Cancel' 'Close' 'Exit'))
-		default:3.
+                confirmWithCancel:(resources string:'Close %1 only or exit Smalltalk (close all)?' with:self class name)
+                labels:(resources array:#('Cancel' 'Close' 'Exit'))
+                default:3.
     answer isNil ifTrue:[
-	"/ cancel
-	^ false
+        "/ cancel
+        ^ false
     ].
 
-    answer == true ifTrue:[
-	^ true
+    answer == false ifTrue:[
+        ^ true
     ].
 
     self exit
@@ -4340,5 +4340,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.31 1999-05-20 16:42:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.32 1999-05-21 10:11:07 cg Exp $'
 ! !