equal
deleted
inserted
replaced
5762 ] ifFalse:[ |
5762 ] ifFalse:[ |
5763 (changeClass includesSelector:methodSelector asSymbol) ifFalse:[ |
5763 (changeClass includesSelector:methodSelector asSymbol) ifFalse:[ |
5764 changeDelta := '+'. |
5764 changeDelta := '+'. |
5765 ] ifTrue:[ |
5765 ] ifTrue:[ |
5766 m := changeClass compiledMethodAt:methodSelector asSymbol. |
5766 m := changeClass compiledMethodAt:methodSelector asSymbol. |
5767 currentText := m source. |
5767 Error handle:[:ex | |
|
5768 Transcript showCR:'Error while accessing methods current source: ',ex description. |
|
5769 ] do:[ |
|
5770 currentText := m source. |
|
5771 ]. |
5768 currentText notNil ifTrue:[ |
5772 currentText notNil ifTrue:[ |
5769 text asString string withoutTrailingSeparators = currentText asString string withoutTrailingSeparators ifTrue:[ |
5773 text asString string withoutTrailingSeparators = currentText asString string withoutTrailingSeparators ifTrue:[ |
5770 changeDelta := '=' |
5774 changeDelta := '=' |
5771 ] ifFalse:[ |
5775 ] ifFalse:[ |
5772 t1 := currentText asCollectionOfLines collect:[:s | s withTabsExpanded]. |
5776 t1 := currentText asCollectionOfLines collect:[:s | s withTabsExpanded]. |
6075 ! ! |
6079 ! ! |
6076 |
6080 |
6077 !ChangesBrowser class methodsFor:'documentation'! |
6081 !ChangesBrowser class methodsFor:'documentation'! |
6078 |
6082 |
6079 version |
6083 version |
6080 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.392 2009-08-14 20:34:55 cg Exp $' |
6084 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.393 2009-10-13 15:46:36 cg Exp $' |
|
6085 ! |
|
6086 |
|
6087 version_CVS |
|
6088 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.393 2009-10-13 15:46:36 cg Exp $' |
6081 ! ! |
6089 ! ! |