SourceCodeManagerUtilities.st
changeset 2064 3e7b6104ce47
parent 2063 502166975e05
child 2092 cd9b53d5ca31
--- a/SourceCodeManagerUtilities.st	Thu Feb 12 16:58:20 2009 +0100
+++ b/SourceCodeManagerUtilities.st	Fri Feb 13 15:58:25 2009 +0100
@@ -982,6 +982,11 @@
     diffSet := listHere diffSetsAgainst:listRep.
     changed := diffSet changed.
     onlyHere := diffSet onlyInReceiver.
+    onlyHere := onlyHere select:[:eachDiff|  |methodsPackage|
+            methodsPackage := (eachDiff changeClass compiledMethodAt:eachDiff selector) package.
+            methodsPackage == containerPackage
+        ].
+
     onlyInRep := diffSet onlyInArg.
 
     changedClassDefinitions := changed select:[:eachChangePair | eachChangePair first isClassDefinitionChange]. 
@@ -2959,5 +2964,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.179 2009-02-12 15:58:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.180 2009-02-13 14:58:25 stefan Exp $'
 ! !