equal
deleted
inserted
replaced
1973 treeA := RBParser parseMethod:changeA source onError: [:str :pos | parseError := true]. |
1973 treeA := RBParser parseMethod:changeA source onError: [:str :pos | parseError := true]. |
1974 treeB := RBParser parseMethod:changeB source onError: [:str :pos | parseError := true]. |
1974 treeB := RBParser parseMethod:changeB source onError: [:str :pos | parseError := true]. |
1975 parseError ifFalse:[ |
1975 parseError ifFalse:[ |
1976 (treeA "semanticallyEqualTo:" equalTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1976 (treeA "semanticallyEqualTo:" equalTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1977 self infoHolder value:'Methods only differ in formatting / comments.'. |
1977 self infoHolder value:'Methods only differ in formatting / comments.'. |
1978 ]. |
1978 ] ifFalse:[ |
1979 (treeA semanticallyEqualTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1979 (treeA semanticallyEqualTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1980 self infoHolder value:'Methods seem to do the same.'. |
1980 self infoHolder value:'Methods seem to do the same.'. |
|
1981 ] |
1981 ] |
1982 ] |
1982 ] |
1983 ] |
1983 ]. |
1984 ]. |
1984 ]. |
1985 ]. |
1985 self diffTextView |
1986 self diffTextView |
1991 ] ifFalse:[ |
1992 ] ifFalse:[ |
1992 self showVersionInfoIfNothingSelected |
1993 self showVersionInfoIfNothingSelected |
1993 ] |
1994 ] |
1994 |
1995 |
1995 "Modified: / 03-09-1999 / 15:01:30 / ps" |
1996 "Modified: / 03-09-1999 / 15:01:30 / ps" |
1996 "Modified: / 06-02-2017 / 15:12:14 / cg" |
1997 "Modified: / 06-02-2017 / 15:26:26 / cg" |
1997 ! |
1998 ! |
1998 |
1999 |
1999 methodsOnlyInASelectionChanged |
2000 methodsOnlyInASelectionChanged |
2000 " |
2001 " |
2001 the selection in the list of the 'method only in version A' changed. |
2002 the selection in the list of the 'method only in version A' changed. |