--- a/NewChangesBrowser.st Wed Nov 04 14:35:10 2009 +0100
+++ b/NewChangesBrowser.st Wed Nov 04 15:56:53 2009 +0100
@@ -2900,7 +2900,7 @@
].
]
] ifTrue:[
- |done first p className cls text methodPos|
+ |done first p className2 cls text methodPos|
"
method definitions actually consist of
@@ -2909,19 +2909,19 @@
The system only writes one chunk,
and we cannot handle more in this ChangesBrowser....
"
- className := nil.
+ className2 := nil.
p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
(p notNil and:[p ~~ #Error]) ifTrue:[
sel := p selector.
(sel == #methodsFor:) ifTrue:[
p receiver isUnaryMessage ifTrue:[
- className := p receiver receiver name.
- changeClass := (Smalltalk classNamed:className) class.
- className := className , ' class'.
+ className2 := p receiver receiver name.
+ changeClass := (Smalltalk classNamed:className2) class.
+ className2 := className2 , ' class'.
] ifFalse:[
- className := p receiver name.
- changeClass := Smalltalk classNamed:className
+ className2 := p receiver name.
+ changeClass := Smalltalk classNamed:className2
].
category := (p args at:1) evaluate.
].
@@ -2946,7 +2946,7 @@
change chunk: chunkText.
change string:changeString.
change position: methodPos.
- change className: className.
+ change className: className2.
lastChange notNil ifTrue: [lastChange lastPosition: methodPos - 1].
lastChange := change.
change timeStamp: timeStampInfo.
@@ -2959,7 +2959,7 @@
try to find the selector
"
sel := nil.
- className notNil ifTrue:[
+ className2 notNil ifTrue:[
p := Parser
parseMethodSpecification:text
in:nil
@@ -2975,10 +2975,10 @@
changeType := 'change'.
headerLine := chunkText , ' (change)'.
] ifFalse:[
- changeString := self contractClass:className selector:sel to:maxLen.
+ changeString := self contractClass:className2 selector:sel to:maxLen.
changeType := 'method definition'.
changeCategory := category.
- headerLine := className , ' ' , sel , ' ' , '(change category: ''' , category , ''')'.
+ headerLine := className2 , ' ' , sel , ' ' , '(change category: ''' , category , ''')'.
change selector:sel.
].
@@ -3849,5 +3849,9 @@
!NewChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.30 2008-02-04 12:25:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.31 2009-11-04 14:56:53 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.31 2009-11-04 14:56:53 cg Exp $'
! !