SourceCodeManagerUtilities.st
changeset 2774 46c3fee4b485
parent 2719 a25a07c06d84
child 2775 d1908ae4aed8
--- a/SourceCodeManagerUtilities.st	Sun Feb 05 19:13:56 2012 +0100
+++ b/SourceCodeManagerUtilities.st	Fri Feb 10 18:41:56 2012 +0100
@@ -2052,12 +2052,16 @@
         diffSet := listHere diffSetsAgainst:listRep.
         changed := diffSet changed.
         onlyHere := diffSet onlyInReceiver.
-        onlyHere := onlyHere select:[:eachDiff|  |methodsPackage|
-                eachDiff isClassDefinitionChange not and:[
-                    methodsPackage := (eachDiff changeClass compiledMethodAt:eachDiff selector) package.
-                    methodsPackage == containerPackage
-                ]
-            ].
+        onlyHere := onlyHere select:[:eachDiff|  
+                        |method methodsPackage|
+                        eachDiff isClassDefinitionChange not 
+                        and:[
+                            eachDiff changeClass isNil
+                            or:[
+                                method := (eachDiff changeClass compiledMethodAt:eachDiff selector).
+                                method isNil or:[ (methodsPackage := method package) == containerPackage ]]
+                        ]
+                    ].
 
         onlyInRep := diffSet onlyInArg.
 
@@ -2191,7 +2195,7 @@
                  eachChange isMethodChange ifTrue:[
                      cClass := eachChange changeClass.
                      cSel := eachChange selector.
-                     cClass basicRemoveSelector:cSel.
+                     cClass notNil ifTrue:[ cClass basicRemoveSelector:cSel ].
                  ]
             ].
 
@@ -2286,7 +2290,7 @@
     ].
 
     "Modified: / 07-02-2001 / 18:18:32 / ps"
-    "Modified: / 05-12-2011 / 21:29:32 / cg"
+    "Modified: / 10-02-2012 / 17:37:55 / cg"
 !
 
 checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
@@ -4370,9 +4374,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.240 2012-01-14 19:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.241 2012-02-10 17:41:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.240 2012-01-14 19:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.241 2012-02-10 17:41:56 cg Exp $'
 ! !