--- a/ChangeSet.st Fri Sep 16 12:06:18 2011 +0200
+++ b/ChangeSet.st Sun Sep 18 13:06:59 2011 +0200
@@ -218,11 +218,15 @@
changeSet := self new.
aCollectionOfMethods do:[:eachMethod |
- |change|
-
+ |change source|
+
+ source := eachMethod source.
+ source isNil ifTrue:[
+ Transcript showCR:'oops - no source for ',eachMethod whoString.
+ ].
change := MethodDefinitionChange new.
eachMethod mclass notNil ifTrue:[ change className:eachMethod mclass name ].
- change source:eachMethod source.
+ source notNil ifTrue:[ change source:source ].
change selector:eachMethod selector.
change package:(eachMethod package).
change category:(eachMethod category).
@@ -251,7 +255,7 @@
with:(Behavior compiledMethodAt:#compiledMethodAt:) )
"
- "Modified: / 13-10-2006 / 00:33:15 / cg"
+ "Modified: / 17-09-2011 / 10:26:03 / cg"
!
forPackage: package
@@ -1035,7 +1039,6 @@
"Modified: / 14.11.2001 / 13:36:06 / cg"
! !
-
!ChangeSet methodsFor:'fileOut'!
fileOutAs: aStringOrFilename
@@ -2989,6 +2992,6 @@
!ChangeSet class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.182 2011-09-08 02:45:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.183 2011-09-18 11:06:59 cg Exp $'
! !