--- 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 $'
! !