--- a/SourceCodeManagerUtilities.st	Fri Oct 27 20:45:48 2000 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Oct 27 20:46:02 2000 +0200
@@ -932,18 +932,19 @@
         ].
 
         doCheckinWithoutAsking ifFalse:[
-            (Dialog 
-                confirm:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:className) withCRs
-                noLabel:'cancel')
-            ifFalse:[
-                ^ false
-            ].
+            answer := Dialog 
+                 confirmWithCancel:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:className) withCRs
+                 labels:#( 'cancel' 'no' 'yes').
+            answer isNil ifTrue:[^ false].
+        ] ifTrue:[
+            answer := true.
         ].
-
-        aClass updateVersionMethodFor:(mgr initialRevisionStringFor:aClass 
-                                           inModule:module 
-                                           package:package 
-                                           container:fileName).
+        answer ifTrue:[
+            aClass updateVersionMethodFor:(mgr initialRevisionStringFor:aClass 
+                                               inModule:module 
+                                               package:package 
+                                               container:fileName).
+        ].
     ].
 
     "/
@@ -1261,5 +1262,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.22 2000-10-06 11:04:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.23 2000-10-27 18:46:02 cg Exp $'
 ! !