diff -r 0f2c39fc6e8c -r 6c68031b7ce4 ChangesBrowser.st --- a/ChangesBrowser.st Tue Jul 01 15:19:13 2003 +0200 +++ b/ChangesBrowser.st Tue Jul 01 15:19:57 2003 +0200 @@ -2013,10 +2013,10 @@ oldDollarSetting := Parser allowDollarInIdentifier. [ Parser allowDollarInIdentifier:true. - Class nameSpaceQuerySignal answer:(self nameSpaceForApply) - do:[ +"/ Class nameSpaceQuerySignal answer:(self nameSpaceForApply) +"/ do:[ aParseTree := Parser parseExpression:chunk. - ]. +"/ ]. aParseTree == #Error ifTrue:[ (chunk includesString:'comment') ifTrue:[ @@ -4247,7 +4247,7 @@ classOfChange:changeNr ifAbsent:exceptionBlock |className cls isMeta ownerClassName ownerClass| - className := self fullClassNameOfChange:changeNr. + className := self realClassNameOfChange:changeNr. className isNil ifTrue:[ ^ exceptionBlock value:nil ]. @@ -5521,5 +5521,5 @@ !ChangesBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.305 2003-06-18 22:53:24 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.306 2003-07-01 13:19:57 cg Exp $' ! !