dailog confirmation default
authorClaus Gittinger <cg@exept.de>
Fri, 21 Mar 2003 12:08:03 +0100
changeset 1217 5c1f68eca095
parent 1216 b854fdc89d2a
child 1218 7bf09a49d58a
dailog confirmation default
AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Sun Mar 02 21:46:22 2003 +0100
+++ b/AbstractSourceCodeManager.st	Fri Mar 21 12:08:03 2003 +0100
@@ -534,7 +534,10 @@
         ^ #all
     ].
     answer == false ifTrue:[
-        answer := self confirmWithCancel:'Ignore those methods in the classes container\\(i.e. checkin basePackage methods only) ?' withCRs.
+        answer := 
+            Dialog
+                confirmWithCancel:'Ignore those methods in the classes container\\(i.e. checkin basePackage methods only) ?' withCRs
+                default:true.
         answer == nil ifTrue:[AbortSignal raise].
         answer ifTrue:[
             ^ #base
@@ -543,7 +546,7 @@
 
     AbortSignal raise
 
-    "Modified: / 16.11.2001 / 14:58:46 / cg"
+    "Modified: / 21.3.2003 / 14:31:00 / cg"
 !
 
 containerFromSourceInfo:info
@@ -2060,7 +2063,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.157 2003-03-02 18:32:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.158 2003-03-21 11:08:03 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!