equal
deleted
inserted
replaced
724 |
724 |
725 compareChange:changeNr |
725 compareChange:changeNr |
726 "compare a change with current version" |
726 "compare a change with current version" |
727 |
727 |
728 |aStream chunk sawExcla parseTree thisClass cat oldSource newSource |
728 |aStream chunk sawExcla parseTree thisClass cat oldSource newSource |
729 parser sel oldMethod outcome showDiff d t1 t2 cls selector isLoaded |
729 parser sel oldMethod outcome showDiff d t1 t2 selector isLoaded |
730 method| |
730 method| |
731 |
731 |
732 aStream := self streamForChange:changeNr. |
732 aStream := self streamForChange:changeNr. |
733 aStream isNil ifTrue:[^ self]. |
733 aStream isNil ifTrue:[^ self]. |
734 |
734 |
1528 ! |
1528 ! |
1529 |
1529 |
1530 sourceOfMethodChange:changeNr |
1530 sourceOfMethodChange:changeNr |
1531 "return a method-changes source code, or nil if its not a methodChange." |
1531 "return a method-changes source code, or nil if its not a methodChange." |
1532 |
1532 |
1533 |aStream chunk sawExcla parseTree parser sourceChunk| |
1533 |aStream chunk sawExcla parseTree sourceChunk| |
1534 |
1534 |
1535 aStream := self streamForChange:changeNr. |
1535 aStream := self streamForChange:changeNr. |
1536 aStream isNil ifTrue:[^ nil]. |
1536 aStream isNil ifTrue:[^ nil]. |
1537 |
1537 |
1538 (changeIsFollowupMethodChange at:changeNr) ifFalse:[ |
1538 (changeIsFollowupMethodChange at:changeNr) ifFalse:[ |
2314 ! ! |
2314 ! ! |
2315 |
2315 |
2316 !ChangesBrowser class methodsFor:'documentation'! |
2316 !ChangesBrowser class methodsFor:'documentation'! |
2317 |
2317 |
2318 version |
2318 version |
2319 ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.89 1996-09-10 18:19:08 cg Exp $' |
2319 ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.90 1996-09-30 21:00:59 cg Exp $' |
2320 ! ! |
2320 ! ! |