--- a/SourceCodeManagerUtilities.st	Thu Nov 23 22:43:44 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Sat Nov 25 00:42:30 2000 +0100
@@ -480,7 +480,11 @@
             ].
             aborted ifTrue:[
                 Transcript showCR:'checkin of ''' , aClass name , ''' aborted'.
-                self warn:'checkin of ''' , aClass name , ''' aborted'.
+                (Dialog confirm:('checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')withCRs)
+                ifTrue:[
+                    AbortAllSignal raise.
+                    ^ false
+                ].
                 ^ false.
             ].
         ].
@@ -534,26 +538,31 @@
         ].
     ].
 
-    self yesToAllNotification handle:[:ex |
-        yesOrNoToAll := ex parameter.
-        ex proceed
+    AbortAllSignal handle:[:ex |
+        ex return
     ] do:[
-        self yesToAllQuery handle:[:ex |
-            ex proceedWith:yesOrNoToAll
+        self yesToAllNotification handle:[:ex |
+            yesOrNoToAll := ex parameter.
+            ex proceed
         ] do:[
-            classes do:[:aClass |
-                (self checkAndWarnAboutBadMessagesInClass:aClass) ifTrue:[
-                    self activityNotification:(resources string:'checking in %1' with:aClass name).
-                    "/ ca does not want boxes to pop up all over ...
-                    InformationSignal handle:[:ex |
-                        Transcript showCR:ex errorString
-                    ] do:[
-                        self checkinClass:aClass withLog:logMessage withCheck:doCheckClasses
+            self yesToAllQuery handle:[:ex |
+                ex proceedWith:yesOrNoToAll
+            ] do:[
+                classes do:[:aClass |
+                    (self checkAndWarnAboutBadMessagesInClass:aClass) ifTrue:[
+                        self activityNotification:(resources string:'checking in %1' with:aClass name).
+                        "/ ca does not want boxes to pop up all over ...
+                        InformationSignal handle:[:ex |
+                            Transcript showCR:ex errorString
+                        ] do:[
+                            self checkinClass:aClass withLog:logMessage withCheck:doCheckClasses
+                        ].
                     ].
-                ].
+                ]
             ]
-        ]
+        ].
     ].
+
 !
 
 checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withLog:aLogMessageOrNil
@@ -1639,5 +1648,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.42 2000-11-23 21:43:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.43 2000-11-24 23:42:30 cg Exp $'
 ! !