21 lastSearchString applyInOriginalNameSpace lastSaveFileName |
21 lastSearchString applyInOriginalNameSpace lastSaveFileName |
22 readOnly enforcedPackage enforcedNameSpace updateChangeSet |
22 readOnly enforcedPackage enforcedNameSpace updateChangeSet |
23 showingDiffs diffViewBox autoloadAsRequired |
23 showingDiffs diffViewBox autoloadAsRequired |
24 classesNotToBeAutoloaded encodingIfKnown |
24 classesNotToBeAutoloaded encodingIfKnown |
25 ignorePublicPrivateCategories changeListSelectionHolder |
25 ignorePublicPrivateCategories changeListSelectionHolder |
26 defaultApplicationForVAGEClasses infoHolder' |
26 defaultApplicationForVAGEClasses infoHolder leftCodeLabelHolder |
27 classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs |
27 rightCodeLabelHolder' |
28 DefaultAutoCompare DefaultShowingDiffs LastEnforcedNameSpace |
28 classVariableNames:'CompressSnapshotInfo DefaultAutoCompare DefaultShowingDiffs |
29 KeepEnforcedNameSpace' |
29 KeepEnforcedNameSpace LastEnforcedNameSpace NoColoring |
|
30 ShowWarningDialogs' |
30 poolDictionaries:'' |
31 poolDictionaries:'' |
31 category:'Interface-Browsers' |
32 category:'Interface-Browsers' |
32 ! |
33 ! |
33 |
34 |
34 Object subclass:#ChangeFileReader |
35 Object subclass:#ChangeFileReader |
1042 ^ ignorePublicPrivateCategories |
1043 ^ ignorePublicPrivateCategories |
1043 |
1044 |
1044 "Created: / 23-09-2011 / 19:42:46 / cg" |
1045 "Created: / 23-09-2011 / 19:42:46 / cg" |
1045 ! |
1046 ! |
1046 |
1047 |
|
1048 leftCodeLabelHolder |
|
1049 "holds the string shown above the left codeView (defaults to: 'Current')" |
|
1050 |
|
1051 ^ leftCodeLabelHolder |
|
1052 |
|
1053 "Created: / 07-12-2017 / 12:28:31 / cg" |
|
1054 ! |
|
1055 |
1047 notEditingClassSource |
1056 notEditingClassSource |
1048 ^ self editingClassSource not |
1057 ^ self editingClassSource not |
1049 ! |
1058 ! |
1050 |
1059 |
1051 notEditingClassSourceAndNotReadOnly |
1060 notEditingClassSourceAndNotReadOnly |
1056 ^ (readOnly ~~ true) |
1065 ^ (readOnly ~~ true) |
1057 ! |
1066 ! |
1058 |
1067 |
1059 readOnly:aBoolean |
1068 readOnly:aBoolean |
1060 readOnly := aBoolean |
1069 readOnly := aBoolean |
|
1070 ! |
|
1071 |
|
1072 rightCodeLabelHolder |
|
1073 "holds the string shown above the right codeView (defaults to: 'Change')" |
|
1074 |
|
1075 ^ rightCodeLabelHolder |
|
1076 |
|
1077 "Created: / 07-12-2017 / 12:28:37 / cg" |
1061 ! |
1078 ! |
1062 |
1079 |
1063 showingDiffs |
1080 showingDiffs |
1064 showingDiffs isNil ifTrue:[ |
1081 showingDiffs isNil ifTrue:[ |
1065 showingDiffs := self showingDiffsDefault asValue. |
1082 showingDiffs := self showingDiffsDefault asValue. |
1644 codeView readOnly:true. |
1664 codeView readOnly:true. |
1645 |
1665 |
1646 diffViewBox := View in:codeViewBox. |
1666 diffViewBox := View in:codeViewBox. |
1647 diffViewBox origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
1667 diffViewBox origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
1648 |
1668 |
1649 lbl := Label label:'Current' in:diffViewBox. |
1669 lbl := Label label:leftCodeLabelHolder value in:diffViewBox. |
|
1670 lbl labelChannel:leftCodeLabelHolder. |
1650 lbl layout:(LayoutFrame |
1671 lbl layout:(LayoutFrame |
1651 leftFraction:0.0 offset:0 |
1672 leftFraction:0.0 offset:0 |
1652 rightFraction:0.5 offset:0 |
1673 rightFraction:0.5 offset:0 |
1653 topFraction:0.0 offset:0 |
1674 topFraction:0.0 offset:0 |
1654 bottomFraction:0.0 offset:20). |
1675 bottomFraction:0.0 offset:20). |
1655 lbl := Label label:'Change' in:diffViewBox. |
1676 lbl := Label label:rightCodeLabelHolder value in:diffViewBox. |
|
1677 lbl labelChannel:rightCodeLabelHolder. |
1656 lbl layout:(LayoutFrame |
1678 lbl layout:(LayoutFrame |
1657 leftFraction:0.5 offset:0 |
1679 leftFraction:0.5 offset:0 |
1658 rightFraction:1.0 offset:0 |
1680 rightFraction:1.0 offset:0 |
1659 topFraction:0.0 offset:0 |
1681 topFraction:0.0 offset:0 |
1660 bottomFraction:0.0 offset:20). |
1682 bottomFraction:0.0 offset:20). |
1686 tabSpec positions:#(-1 0 5 8.5 ). |
1708 tabSpec positions:#(-1 0 5 8.5 ). |
1687 " +/- cls>>sel type info" |
1709 " +/- cls>>sel type info" |
1688 tabSpec align: #(#left #left #left #left). |
1710 tabSpec align: #(#left #left #left #left). |
1689 |
1711 |
1690 "Modified: / 27-03-1997 / 11:07:07 / stefan" |
1712 "Modified: / 27-03-1997 / 11:07:07 / stefan" |
1691 "Modified: / 03-01-2012 / 15:28:45 / cg" |
1713 "Modified: / 07-12-2017 / 12:28:09 / cg" |
1692 ! |
1714 ! |
1693 |
1715 |
1694 postRealize |
1716 postRealize |
1695 self setupTabSpec. |
1717 self setupTabSpec. |
1696 self readChangesFileInBackground:true. |
1718 self readChangesFileInBackground:true. |