Tools__NewSystemBrowser.st
changeset 17863 21b2a26b5184
parent 17853 76bf1b627fcd
child 17876 753d9034bc87
--- a/Tools__NewSystemBrowser.st	Sat Dec 23 13:34:19 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Dec 29 15:38:03 2017 +0100
@@ -36585,6 +36585,9 @@
     
     allExtendingPackages := Set new.
     self selectedClassesDo:[:eachClass |
+        eachClass theNonMetaclass isProjectDefinition ifTrue:[
+            allExtendingPackages add:eachClass package.
+        ].
         eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
             mthd isExtension ifTrue:[
                 allExtendingPackages add:mthd package.
@@ -36594,6 +36597,7 @@
     manager utilities comparePackages: allExtendingPackages askForRevision: false extensionsOnly:true.
 
     "Modified (comment): / 04-02-2017 / 18:44:31 / cg"
+    "Modified: / 29-12-2017 / 15:32:37 / stefan"
 !
 
 classMenuCompareExtensionsWithRepositoryUsingManagerNamed: sourceCodeManagerClassName