ProjectProblem.st
changeset 3941 112608c858cd
parent 3937 9873e699a554
child 3943 b63fae0e8369
child 4032 26e8727160cb
--- a/ProjectProblem.st	Mon Jan 18 04:53:31 2016 +0000
+++ b/ProjectProblem.st	Thu Jan 21 15:26:30 2016 +0100
@@ -2172,15 +2172,17 @@
         }.
     
     self countOtherProblemsOfThisKind > 0 ifTrue:[
-        ops add:{
-                ('Move all listed unpackaged methods to their class package') .
-                [ self doMoveAllListedMethodsToClassPackage ]
-            }.
-            
-        ops add:{
-                ('Move all listed unpackaged methods to package "%1"' bindWith:package) .
-                [ self doMoveAllListedMethodsToPackage ]
-            }.
+        (allProblems conform:[:p | p klass package = package]) ifFalse:[    
+            ops add:{
+                    ('Move all listed unpackaged methods to their owning class package') .
+                    [ self doMoveAllListedMethodsToClassPackage ]
+                }.
+        ] ifTrue:[    
+            ops add:{
+                    ('Move all listed unpackaged methods to package "%1"' bindWith:package) .
+                    [ self doMoveAllListedMethodsToPackage ]
+                }.
+        ].
     ].
     ^ ops