--- a/SourceCodeManagerUtilities.st	Thu Aug 23 12:25:01 2001 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Aug 23 22:51:02 2001 +0200
@@ -88,7 +88,7 @@
      return a dictionary containing module, package and filename,
      or nil if canceled."
 
-    |box y component resources 
+    |box y component resources answer
      moduleHolder packageHolder fileNameHolder
      module package fileName 
      knownContainers knownPackages packageUpdater
@@ -206,13 +206,33 @@
 
     box addVerticalSpace.
     box addAbortAndOkButtons.
-    box showAtPointer.
 
-    box accepted ifFalse:[
-        box destroy.
+    (YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[
+        component := Button label:'Yes to all'.
+        component action:[
+                            YesToAllNotification queryWith:true.
+                            box doAccept.
+                         ].
+        (DialogBox styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+            box addButton:component after:nil.
+        ] ifFalse:[
+            box addButton:component before:nil.
+        ].
+    ].
+
+    (YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[
+        answer := YesToAllQuery query.
+    ].
+
+    answer isNil ifTrue:[
+        box showAtPointer.
+        answer := box accepted
+    ].
+
+    box destroy.
+    answer ifFalse:[
         ^ nil
     ].
-    box destroy.
 
     module := moduleHolder value withoutSpaces.
     package := packageHolder value withoutSpaces.
@@ -1865,5 +1885,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.61 2001-08-15 15:37:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.62 2001-08-23 20:51:02 cg Exp $'
 ! !