--- a/ChangeSet.st Wed May 30 12:13:24 2007 +0200
+++ b/ChangeSet.st Wed May 30 12:13:50 2007 +0200
@@ -577,11 +577,14 @@
changeSelectors isNil ifTrue:[
selectors := IdentitySet new.
self do:[:chg |
- |cls|
+ |sel|
chg notNil ifTrue:[
chg isMethodChange ifTrue:[
- selectors add:chg selector
+ sel := chg selector.
+ sel notNil ifTrue:[
+ selectors add:sel
+ ]
]
]
].
@@ -592,6 +595,8 @@
"
ChangeSet current changeSelectors
"
+
+ "Modified: / 30-05-2007 / 12:12:32 / cg"
!
changedClasses
@@ -2291,5 +2296,5 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.149 2007-02-22 17:05:55 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.150 2007-05-30 10:13:50 cg Exp $'
! !