equal
deleted
inserted
replaced
20 tabSpec autoUpdate editingClassSource lastSearchType |
20 tabSpec autoUpdate editingClassSource lastSearchType |
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' |
25 ignorePublicPrivateCategories changeListSelectionHolder' |
26 classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs |
26 classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs |
27 DefaultAutoCompare DefaultShowingDiffs LastEnforcedNameSpace |
27 DefaultAutoCompare DefaultShowingDiffs LastEnforcedNameSpace |
28 KeepEnforcedNameSpace' |
28 KeepEnforcedNameSpace' |
29 poolDictionaries:'' |
29 poolDictionaries:'' |
30 category:'Interface-Browsers' |
30 category:'Interface-Browsers' |
845 |
845 |
846 autoloadAsRequired |
846 autoloadAsRequired |
847 ^ autoloadAsRequired |
847 ^ autoloadAsRequired |
848 ! |
848 ! |
849 |
849 |
|
850 changeListSelectionHolder |
|
851 changeListSelectionHolder isNil ifTrue:[ |
|
852 changeListSelectionHolder := nil asValue. |
|
853 ]. |
|
854 ^ changeListSelectionHolder |
|
855 |
|
856 "Created: / 03-01-2012 / 15:19:25 / cg" |
|
857 ! |
|
858 |
850 editingClassSource |
859 editingClassSource |
851 ^ editingClassSource ? false |
860 ^ editingClassSource ? false |
852 ! |
861 ! |
853 |
862 |
854 hasMultiSelection |
863 hasMultiSelection |
875 ^ self hasSelection not |
884 ^ self hasSelection not |
876 ! |
885 ! |
877 |
886 |
878 hasSelection |
887 hasSelection |
879 ^ changeListView hasSelection |
888 ^ changeListView hasSelection |
|
889 ! |
|
890 |
|
891 hasSelectionHolder |
|
892 ^ BlockValue |
|
893 with:[:v | v notEmptyOrNil ] |
|
894 argument:(self changeListSelectionHolder) |
|
895 |
|
896 "Created: / 03-01-2012 / 15:15:47 / cg" |
880 ! |
897 ! |
881 |
898 |
882 hasSingleSelection |
899 hasSingleSelection |
883 changeListView multipleSelectOk ifTrue:[ |
900 changeListView multipleSelectOk ifTrue:[ |
884 ^ changeListView selection size == 1 |
901 ^ changeListView selection size == 1 |
1507 tabSpec positions:#(-1 0 5 8.5 ). |
1524 tabSpec positions:#(-1 0 5 8.5 ). |
1508 " +/- cls>>sel type info" |
1525 " +/- cls>>sel type info" |
1509 tabSpec align: #(#left #left #left #left). |
1526 tabSpec align: #(#left #left #left #left). |
1510 |
1527 |
1511 "Modified: / 27-03-1997 / 11:07:07 / stefan" |
1528 "Modified: / 27-03-1997 / 11:07:07 / stefan" |
1512 "Modified: / 23-09-2011 / 19:43:07 / cg" |
1529 "Modified: / 03-01-2012 / 15:28:45 / cg" |
1513 ! |
1530 ! |
1514 |
1531 |
1515 postRealize |
1532 postRealize |
1516 self setupTabSpec. |
1533 self setupTabSpec. |
1517 self readChangesFileInBackground:true. |
1534 self readChangesFileInBackground:true. |
1580 box showAtPointer. |
1597 box showAtPointer. |
1581 box destroy |
1598 box destroy |
1582 ]. |
1599 ]. |
1583 ^ self |
1600 ^ self |
1584 ]. |
1601 ]. |
|
1602 |
1585 super update:what with:aParameter from:changedObject |
1603 super update:what with:aParameter from:changedObject |
1586 |
1604 |
1587 "Created: / 15.6.1996 / 15:26:30 / cg" |
1605 "Created: / 15-06-1996 / 15:26:30 / cg" |
1588 "Modified: / 7.1.1997 / 23:03:47 / cg" |
1606 "Modified: / 24-08-1999 / 09:45:06 / stefan" |
1589 "Modified: / 24.8.1999 / 09:45:06 / stefan" |
1607 "Modified: / 03-01-2012 / 15:23:13 / cg" |
1590 ! ! |
1608 ! ! |
1591 |
1609 |
1592 !ChangesBrowser methodsFor:'menu actions'! |
1610 !ChangesBrowser methodsFor:'menu actions'! |
1593 |
1611 |
1594 ignorePublicPrivateCategories:aBoolean |
1612 ignorePublicPrivateCategories:aBoolean |
4110 ! |
4128 ! |
4111 |
4129 |
4112 changeSelection:lineNrCollection |
4130 changeSelection:lineNrCollection |
4113 "show a change in the codeView" |
4131 "show a change in the codeView" |
4114 |
4132 |
4115 |chunk lineNr| |
4133 |chunk lineNr lineNumbers| |
4116 |
4134 |
4117 lineNrCollection isInteger ifTrue:[ |
4135 lineNrCollection isInteger ifTrue:[ |
4118 lineNr := lineNrCollection |
4136 lineNr := lineNrCollection. |
|
4137 lineNumbers := Array with:lineNr. |
4119 ] ifFalse:[ |
4138 ] ifFalse:[ |
4120 changeListView multipleSelectOk ifTrue:[ |
4139 changeListView multipleSelectOk ifTrue:[ |
4121 lineNrCollection size == 1 ifTrue:[ |
4140 lineNrCollection size == 1 ifTrue:[ |
4122 lineNr := lineNrCollection first. |
4141 lineNr := lineNrCollection first. |
4123 ] |
4142 ] |
4124 ] ifFalse:[ |
4143 ] ifFalse:[ |
4125 lineNr := lineNrCollection |
4144 lineNr := lineNrCollection |
4126 ]. |
4145 ]. |
4127 ]. |
4146 lineNumbers := lineNrCollection. |
|
4147 ]. |
|
4148 |
|
4149 self changeListSelectionHolder value:lineNumbers. |
4128 |
4150 |
4129 lineNr isNil ifTrue:[ |
4151 lineNr isNil ifTrue:[ |
4130 codeView contents:nil. |
4152 codeView contents:nil. |
4131 codeView initializeDoITAction. |
4153 codeView initializeDoITAction. |
4132 changeNrShown := nil. |
4154 changeNrShown := nil. |
4168 self updateDiffViewFor:changeNrShown. |
4190 self updateDiffViewFor:changeNrShown. |
4169 ] |
4191 ] |
4170 ] |
4192 ] |
4171 ]. |
4193 ]. |
4172 |
4194 |
4173 "Modified: / 28.2.1999 / 15:26:46 / cg" |
4195 "Modified: / 03-01-2012 / 15:30:23 / cg" |
4174 ! |
4196 ! |
4175 |
4197 |
4176 classOfChange:changeNr |
4198 classOfChange:changeNr |
4177 ^ self |
4199 ^ self |
4178 classOfChange:changeNr |
4200 classOfChange:changeNr |
5575 ] |
5597 ] |
5576 ]. |
5598 ]. |
5577 ] |
5599 ] |
5578 |
5600 |
5579 "Modified: / 27-10-2010 / 11:31:06 / cg" |
5601 "Modified: / 27-10-2010 / 11:31:06 / cg" |
|
5602 ! |
|
5603 |
|
5604 selectionCanged |
|
5605 self halt |
|
5606 |
|
5607 "Created: / 03-01-2012 / 15:26:36 / cg" |
5580 ! |
5608 ! |
5581 |
5609 |
5582 setEnforcedNameSpace |
5610 setEnforcedNameSpace |
5583 |nsName listOfKnownNameSpaces keepAsDefaultHolder| |
5611 |nsName listOfKnownNameSpaces keepAsDefaultHolder| |
5584 |
5612 |
6311 ! ! |
6339 ! ! |
6312 |
6340 |
6313 !ChangesBrowser class methodsFor:'documentation'! |
6341 !ChangesBrowser class methodsFor:'documentation'! |
6314 |
6342 |
6315 version |
6343 version |
6316 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.415 2011-12-25 10:38:22 cg Exp $' |
6344 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.416 2012-01-03 14:34:57 cg Exp $' |
6317 ! |
6345 ! |
6318 |
6346 |
6319 version_CVS |
6347 version_CVS |
6320 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.415 2011-12-25 10:38:22 cg Exp $' |
6348 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.416 2012-01-03 14:34:57 cg Exp $' |
6321 ! ! |
6349 ! ! |