--- a/NewChangesBrowser.st Wed Nov 04 15:56:53 2009 +0100
+++ b/NewChangesBrowser.st Wed Nov 04 16:44:32 2009 +0100
@@ -2847,7 +2847,7 @@
sel := (p args at:1) evaluate.
DeltaInfoColumn ifTrue:[
- (changeClass isNil or:[changeClass isLoaded not]) ifTrue:[
+ (changeClass isNil or:[changeClass isLoaded not or:[sel isNil]]) ifTrue:[
changeDelta := '?'
] ifFalse:[
(changeClass implements:sel asSymbol) ifTrue:[
@@ -2991,7 +2991,7 @@
].
].
- (changeClass isNil or:[cls isLoaded not]) ifTrue:[
+ (changeClass isNil or:[cls isLoaded not or:[sel isNil]]) ifTrue:[
changeDelta := '?'
] ifFalse:[
(changeClass implements:sel asSymbol) ifFalse:[
@@ -3849,9 +3849,9 @@
!NewChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.31 2009-11-04 14:56:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.32 2009-11-04 15:44:32 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.31 2009-11-04 14:56:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.32 2009-11-04 15:44:32 cg Exp $'
! !