SourceCodeManagerUtilities.st
changeset 1017 249cc50b04f7
parent 1016 ab35c6af1614
child 1019 efc461bc89dc
--- a/SourceCodeManagerUtilities.st	Sat Nov 25 00:42:30 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Sun Nov 26 14:34:30 2000 +0100
@@ -480,7 +480,9 @@
             ].
             aborted ifTrue:[
                 Transcript showCR:'checkin of ''' , aClass name , ''' aborted'.
-                (Dialog confirm:('checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')withCRs)
+                (Dialog 
+                    confirm:('checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')withCRs
+                    default:false)
                 ifTrue:[
                     AbortAllSignal raise.
                     ^ false
@@ -1648,5 +1650,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.43 2000-11-24 23:42:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.44 2000-11-26 13:34:21 cg Exp $'
 ! !