--- a/AbstractSourceCodeManager.st	Thu Aug 10 00:17:36 2006 +0200
+++ b/AbstractSourceCodeManager.st	Thu Aug 10 12:20:01 2006 +0200
@@ -406,7 +406,7 @@
 
     |checkInClassPackageOnly clsPackage otherPackages otherPackageNames methodsFromOtherPackages
      methodCategoriesInOtherPackages methodCategoryInOtherPackages
-     msg answer isDefaultAnswer defaultAnswer labels actions hasUnassignedExtensions
+     msg answer isDefaultAnswer labels actions hasUnassignedExtensions
      unassignedMethods methodCategoriesWithUnassignedMethods methodCategoryWithUnassignedMethods 
      args|
 
@@ -466,18 +466,16 @@
     and:[SourceCodeManagerUtilities yesToAllNotification isHandled]) ifTrue:[
         answer := isDefaultAnswer := true.
     ] ifFalse:[
-        defaultAnswer := false.
-
         methodCategoriesWithUnassignedMethods size == 1 ifTrue:[
             unassignedMethods size == 1 ifTrue:[
-                msg := 'The class ''%1'' contains the unassigned method: %6'.
+                msg := 'The class ''%1'' contains the unassigned (loose) method: %6'.
                 msg := msg , '\(In the ''%4'' category).'.
             ] ifFalse:[
-                msg := 'The class ''%1'' contains %3 unassigned method(s)'.
+                msg := 'The class ''%1'' contains %3 unassigned (loose) method(s)'.
                 msg := msg , '\(In the ''%4'' category).'.
             ]
         ] ifFalse:[
-            msg := 'The class ''%1'' contains %3 unassigned methods in %5 categories.'.
+            msg := 'The class ''%1'' contains %3 unassigned (loose) methods in %5 categories.'.
         ].
         unassignedMethods size == 1 ifTrue:[
             msg := msg , '\\Move this method to the ''%2'' package ?'.
@@ -509,7 +507,7 @@
                       image:(InfoBox iconBitmap)
                       buttonLabels:(Dialog resources array:labels)
                       values:actions
-                      default:defaultAnswer.
+                      default:true.
 
         answer == #browse ifTrue:[
             UserPreferences current systemBrowserClass
@@ -549,7 +547,7 @@
     ].
     ^ #base
 
-    "Modified: / 21.3.2003 / 14:31:00 / cg"
+    "Modified: / 10-08-2006 / 12:19:25 / cg"
 !
 
 containerFromSourceInfo:info
@@ -2108,7 +2106,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.179 2006-08-09 22:16:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.180 2006-08-10 10:20:01 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!