--- a/ChangesBrowser.st	Tue Sep 18 16:03:10 2012 +0200
+++ b/ChangesBrowser.st	Wed Sep 19 12:31:18 2012 +0200
@@ -3069,6 +3069,9 @@
     cls isLoaded ifTrue:[
         ^ true.
     ].
+    (classesNotToBeAutoloaded includes:#all) ifTrue:[
+        ^ false.
+    ].
     (classesNotToBeAutoloaded includes:cls) ifTrue:[
         ^ false.
     ].
@@ -3076,15 +3079,22 @@
     autoloadAsRequired value == true ifTrue:[
         answer := true
     ] ifFalse:[
-        answer := (self confirmWithCancel:(resources
+        answer := Dialog 
+                confirmWithCancel:(resources
                     stringWithCRs:'%1 is an autoloaded class.\I can only compare the methods source if its loaded first.\\Shall the class be loaded now ?'
-                    with:cls name allBold)).
-    ].
-
-    answer isNil ifTrue:[
-        "cancel the operation"
-        AbortAllOperationRequest raise.
-        "not reached"
+                    with:cls name allBold)
+                labels:(resources array:#('Cancel' 'No for All' 'No' 'Yes'))
+                values:#(nil #never false true)
+                default:4.
+        answer isNil ifTrue:[
+            "cancel the operation"
+            AbortAllOperationRequest raise.
+            "not reached"
+        ].
+        answer == #never ifTrue:[
+            classesNotToBeAutoloaded add:#all.
+            ^ false.
+        ].
     ].
 
     answer ifTrue:[
@@ -6450,9 +6460,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.431 2012-07-27 07:56:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.432 2012-09-19 10:31:18 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.431 2012-07-27 07:56:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.432 2012-09-19 10:31:18 stefan Exp $'
 ! !