equal
deleted
inserted
replaced
1483 |
1483 |
1484 selectedVersion := self selectedVersionHolder value. |
1484 selectedVersion := self selectedVersionHolder value. |
1485 nextVersion := self versionList at:(self selectedVersionIndex - 1). |
1485 nextVersion := self versionList at:(self selectedVersionIndex - 1). |
1486 fn := fileHolder value. |
1486 fn := fileHolder value. |
1487 |
1487 |
1488 self class |
1488 self withWaitCursorDo:[ |
1489 openOnFile:fn versionA:selectedVersion versionB:nextVersion |
1489 self class openOnFile:fn versionA:selectedVersion versionB:nextVersion |
|
1490 ] |
1490 |
1491 |
1491 "Modified: / 08-07-2019 / 00:09:54 / Claus Gittinger" |
1492 "Modified: / 08-07-2019 / 00:09:54 / Claus Gittinger" |
1492 ! |
1493 ! |
1493 |
1494 |
1494 versionMenuCompareAgainstPreviousVersion |
1495 versionMenuCompareAgainstPreviousVersion |
1499 self selectedVersionIndexHolder value:1 |
1500 self selectedVersionIndexHolder value:1 |
1500 ]. |
1501 ]. |
1501 prevVersion := self versionList at:(self selectedVersionIndex + 1). |
1502 prevVersion := self versionList at:(self selectedVersionIndex + 1). |
1502 fn := fileHolder value. |
1503 fn := fileHolder value. |
1503 |
1504 |
1504 self class |
1505 self withWaitCursorDo:[ |
1505 openOnFile:fn versionA:prevVersion versionB:selectedVersion |
1506 self class openOnFile:fn versionA:prevVersion versionB:selectedVersion |
|
1507 ]. |
1506 |
1508 |
1507 "Modified: / 08-07-2019 / 00:10:12 / Claus Gittinger" |
1509 "Modified: / 08-07-2019 / 00:10:12 / Claus Gittinger" |
1508 ! ! |
1510 ! ! |
1509 |
1511 |
1510 !FileVersionDiffBrowser methodsFor:'private'! |
1512 !FileVersionDiffBrowser methodsFor:'private'! |
1646 self diffTextLabelA value:labelA. |
1648 self diffTextLabelA value:labelA. |
1647 self diffTextLabelB value:labelB. |
1649 self diffTextLabelB value:labelB. |
1648 |
1650 |
1649 "Created: / 07-07-2019 / 19:59:03 / Claus Gittinger" |
1651 "Created: / 07-07-2019 / 19:59:03 / Claus Gittinger" |
1650 "Modified: / 08-07-2019 / 01:14:36 / Claus Gittinger" |
1652 "Modified: / 08-07-2019 / 01:14:36 / Claus Gittinger" |
|
1653 ! |
|
1654 |
|
1655 setupForFile:aFilename versionA:aVersionA versionB:aVersionB |
|
1656 "compute the diffs for two versions of a file. |
|
1657 When setting the diffs, the labels, list etc. of the receiver are updated." |
|
1658 |
|
1659 |text1 text2| |
|
1660 |
|
1661 text1 := self getFile:aFilename version:aVersionA. |
|
1662 text2 := self getFile:aFilename version:aVersionB. |
|
1663 |
|
1664 self diffTextView text1:text1 text2:text2. |
|
1665 self diffTextLabelA value:aVersionA. |
|
1666 self diffTextLabelB value:aVersionB. |
|
1667 |
|
1668 self addAcceptToTextViewMenus. |
1651 ! ! |
1669 ! ! |
1652 |
1670 |
1653 !FileVersionDiffBrowser class methodsFor:'documentation'! |
1671 !FileVersionDiffBrowser class methodsFor:'documentation'! |
1654 |
1672 |
1655 version_CVS |
1673 version_CVS |