equal
deleted
inserted
replaced
758 self methodsOnlyInBSelection value:nil. |
758 self methodsOnlyInBSelection value:nil. |
759 methodsChanged := self classChangeSet methodsChanged. |
759 methodsChanged := self classChangeSet methodsChanged. |
760 changeA := (methodsChanged at:sel) first. |
760 changeA := (methodsChanged at:sel) first. |
761 changeB := (methodsChanged at:sel) second. |
761 changeB := (methodsChanged at:sel) second. |
762 self withReadCursorDo:[ |
762 self withReadCursorDo:[ |
763 self diffTextView text1:changeA source text2:changeB source. |
763 self diffTextView text1:changeA prettyPrintedSource text2:changeB prettyPrintedSource. |
764 self diffTextView moveToNextChanged |
764 self diffTextView moveToNextChanged |
765 ]. |
765 ]. |
766 self showDiffTextView. |
766 self showDiffTextView. |
767 ] |
767 ] |
768 |
768 |
782 sel := self methodsOnlyInASelection value. |
782 sel := self methodsOnlyInASelection value. |
783 sel notNil ifTrue:[ |
783 sel notNil ifTrue:[ |
784 self methodsOnlyInBSelection value:nil. |
784 self methodsOnlyInBSelection value:nil. |
785 self methodsChangedSelection value:nil. |
785 self methodsChangedSelection value:nil. |
786 change := self changeSetA at:sel. |
786 change := self changeSetA at:sel. |
787 self methodText value:(change source). |
787 self methodText value:(change prettyPrintedSource). |
788 self showSingleTextView. |
788 self showSingleTextView. |
789 ] |
789 ] |
790 ! |
790 ! |
791 |
791 |
792 methodsOnlyInBSelectionChanged |
792 methodsOnlyInBSelectionChanged |
802 sel := self methodsOnlyInBSelection value. |
802 sel := self methodsOnlyInBSelection value. |
803 sel notNil ifTrue:[ |
803 sel notNil ifTrue:[ |
804 self methodsOnlyInASelection value:nil. |
804 self methodsOnlyInASelection value:nil. |
805 self methodsChangedSelection value:nil. |
805 self methodsChangedSelection value:nil. |
806 change := self changeSetB at:sel. |
806 change := self changeSetB at:sel. |
807 self methodText value:(change source). |
807 self methodText value:(change prettyPrintedSource). |
808 self showSingleTextView. |
808 self showSingleTextView. |
809 ] |
809 ] |
810 ! ! |
810 ! ! |
811 |
811 |
812 !VersionDiffBrowser methodsFor:'aspects'! |
812 !VersionDiffBrowser methodsFor:'aspects'! |
1906 ! ! |
1906 ! ! |
1907 |
1907 |
1908 !VersionDiffBrowser class methodsFor:'documentation'! |
1908 !VersionDiffBrowser class methodsFor:'documentation'! |
1909 |
1909 |
1910 version |
1910 version |
1911 ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.41 2001-01-17 17:38:34 cg Exp $' |
1911 ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.42 2001-07-20 12:17:08 cg Exp $' |
1912 ! ! |
1912 ! ! |