--- a/SourceCodeManagerUtilities.st	Tue Nov 14 18:15:57 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Tue Nov 14 20:11:06 2000 +0100
@@ -273,6 +273,11 @@
     box addVerticalSpace.
 
     box addAbortAndOkButtons.
+
+    Object abortAllSignal isHandled ifTrue:[
+        (box addAbortButtonLabelled:'cancel all') action:[AbortAllSignal raise].
+    ].
+
     box showAtPointer.
 
     box accepted ifFalse:[
@@ -624,7 +629,7 @@
             rev := rev2
         ].
         rev isNil ifTrue:[
-            self warn:'Class seems to be not yet in the repository'.
+            self warn:(resources string:'Class %1 seems to be not yet in the repository' with:currentClass name asText allBold).
             ^ self
         ].
     ].
@@ -634,9 +639,9 @@
     "/
     newestRev := mgr newestRevisionOf:currentClass.
 
-    msg := resources string:'checkOut which revision: (empty for newest)'.
+    msg := resources string:'CheckOut which revision of ''%1'': (empty for newest)' with:nm asText allBold.
     rev notNil ifTrue:[
-        msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.'
+        msg := msg , '\\' , (resources string:'Current ''%1'' is based upon rev %2.'
                                        with:nm asText allBold with:rev).
         (rev2 notNil and:[rev2 ~= rev]) ifTrue:[
             msg := msg , '\' , (resources string:'And has been checked into the repository as %1.'
@@ -1464,5 +1469,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.30 2000-11-14 17:15:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.31 2000-11-14 19:11:06 cg Exp $'
 ! !