equal
deleted
inserted
replaced
1831 hist isEmpty ifTrue:[^ nil]. |
1831 hist isEmpty ifTrue:[^ nil]. |
1832 |
1832 |
1833 removeCol := OrderedCollection new. |
1833 removeCol := OrderedCollection new. |
1834 hist do:[:aFileItem| |
1834 hist do:[:aFileItem| |
1835 "aFileItem fileName exists" true ifTrue:[ |
1835 "aFileItem fileName exists" true ifTrue:[ |
1836 menu addItem:(MenuItem label: aFileItem fileName asString value:[ |
1836 menu addItem:(MenuItem |
1837 self setCurrentFileName:(aFileItem fileName). |
1837 label: aFileItem fileName asString |
1838 self openApplByFileItem:aFileItem |
1838 itemValue:[ |
1839 ]). |
1839 self setCurrentFileName:(aFileItem fileName). |
|
1840 self openApplByFileItem:aFileItem |
|
1841 ]). |
1840 ] ifFalse:[ |
1842 ] ifFalse:[ |
1841 removeCol add:aFileItem. |
1843 removeCol add:aFileItem. |
1842 ] |
1844 ] |
1843 ]. |
1845 ]. |
1844 "/ remove all not existing history entries |
1846 "/ remove all not existing history entries |
2041 ! ! |
2043 ! ! |
2042 |
2044 |
2043 !FileBrowserV2 class methodsFor:'documentation'! |
2045 !FileBrowserV2 class methodsFor:'documentation'! |
2044 |
2046 |
2045 version_CVS |
2047 version_CVS |
2046 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.208 2013-05-21 20:13:50 cg Exp $' |
2048 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.209 2013-06-21 00:44:41 cg Exp $' |
2047 ! |
2049 ! |
2048 |
2050 |
2049 version_HG |
2051 version_HG |
2050 |
2052 |
2051 ^ '$Changeset: <not expanded> $' |
2053 ^ '$Changeset: <not expanded> $' |