--- a/NewLauncher.st Wed Aug 20 11:46:05 2003 +0200
+++ b/NewLauncher.st Thu Aug 21 11:49:51 2003 +0200
@@ -3706,13 +3706,15 @@
[:exit |
changeSet reverseDo:[:change |
change isMethodChange ifTrue:[
- (changeHistory contains:[:chg | chg className = change className
- and:[chg selector = change selector]])
- ifFalse:[
- changeHistory add:change.
- changeHistory size > 15 ifTrue:[
- exit value:nil
- ]
+ change changeClass notNil ifTrue:[
+ (changeHistory contains:[:chg | chg className = change className
+ and:[chg selector = change selector]])
+ ifFalse:[
+ changeHistory add:change.
+ changeHistory size > 15 ifTrue:[
+ exit value:nil
+ ]
+ ].
].
].
]
@@ -4301,5 +4303,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.297 2003-08-18 11:58:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.298 2003-08-21 09:49:51 cg Exp $'
! !