# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1234537105 -3600
# Node ID 3e7b6104ce477a1174745a638813bb18adf80745
# Parent  502166975e05a87c1ea38e4bc57f7c9733ab3412
When checking out newest sources from a repository,
do not remove extension methods

diff -r 502166975e05 -r 3e7b6104ce47 SourceCodeManagerUtilities.st
--- 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 $'
 ! !