equal
deleted
inserted
replaced
1975 (treeA "semanticallyEqualTo:" equalTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1975 (treeA "semanticallyEqualTo:" equalTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1976 self infoHolder value:'Methods only differ in formatting / comments.'. |
1976 self infoHolder value:'Methods only differ in formatting / comments.'. |
1977 ] ifFalse:[ |
1977 ] ifFalse:[ |
1978 (treeA semanticallyEqualTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1978 (treeA semanticallyEqualTo:treeB withMapping:(Dictionary new)) ifTrue:[ |
1979 self infoHolder value:'Methods seem to do the same.'. |
1979 self infoHolder value:'Methods seem to do the same.'. |
|
1980 ] ifFalse:[ |
|
1981 self infoHolder value:'Methods are different.'. |
1980 ] |
1982 ] |
1981 ] |
1983 ] |
1982 ] |
1984 ] ifTrue:[ |
|
1985 self infoHolder value:'ParseError while comparing - please check the code'. |
|
1986 ]. |
1983 ]. |
1987 ]. |
1984 ]. |
1988 ]. |
1985 self diffTextView |
1989 self diffTextView |
1986 text1:(changeA prettyPrintedSource) |
1990 text1:(changeA prettyPrintedSource) |
1987 text2:(changeB prettyPrintedSource) |
1991 text2:(changeB prettyPrintedSource) |
1991 ] ifFalse:[ |
1995 ] ifFalse:[ |
1992 self showVersionInfoIfNothingSelected |
1996 self showVersionInfoIfNothingSelected |
1993 ] |
1997 ] |
1994 |
1998 |
1995 "Modified: / 03-09-1999 / 15:01:30 / ps" |
1999 "Modified: / 03-09-1999 / 15:01:30 / ps" |
1996 "Modified: / 06-02-2017 / 15:26:26 / cg" |
2000 "Modified: / 28-11-2017 / 14:21:41 / cg" |
1997 ! |
2001 ! |
1998 |
2002 |
1999 methodsOnlyInASelectionChanged |
2003 methodsOnlyInASelectionChanged |
2000 " |
2004 " |
2001 the selection in the list of the 'method only in version A' changed. |
2005 the selection in the list of the 'method only in version A' changed. |