equal
deleted
inserted
replaced
1645 " |
1645 " |
1646 |
1646 |
1647 <resource: #menu> |
1647 <resource: #menu> |
1648 |
1648 |
1649 ^ |
1649 ^ |
1650 #(#Menu |
1650 #(Menu |
1651 #( |
1651 ( |
1652 #(#MenuItem |
1652 (MenuItem |
1653 #enabled: #hasSelection |
1653 enabled: hasFileSelection |
1654 #label: 'Copy Selected Filenames to Clipboard' |
1654 label: 'Copy Selected Filenames to Clipboard' |
1655 #itemValue: #copySelectedFilenames |
1655 itemValue: copySelectedFilenames |
1656 #translateLabel: true |
1656 translateLabel: true |
1657 ) |
1657 ) |
1658 #(#MenuItem |
1658 (MenuItem |
1659 #enabled: #fileListIsNotEmpty |
1659 enabled: fileListIsNotEmpty |
1660 #label: 'Copy All Filenames to Clipboard' |
1660 label: 'Copy All Filenames to Clipboard' |
1661 #itemValue: #copyFileList |
1661 itemValue: copyFileList |
1662 #translateLabel: true |
1662 translateLabel: true |
1663 ) |
1663 ) |
1664 #(#MenuItem |
1664 (MenuItem |
1665 #label: '-' |
1665 label: '-' |
1666 ) |
1666 ) |
1667 #(#MenuItem |
1667 (MenuItem |
1668 #label: 'Settings...' |
1668 label: 'Settings...' |
1669 #itemValue: #openSettingsDialog |
1669 itemValue: openSettingsDialog |
1670 #translateLabel: true |
1670 translateLabel: true |
1671 ) |
1671 ) |
1672 ) |
1672 ) |
1673 nil |
1673 nil |
1674 nil |
1674 nil |
1675 ) |
1675 ) |
6083 !AbstractFileBrowser methodsFor:'private'! |
6083 !AbstractFileBrowser methodsFor:'private'! |
6084 |
6084 |
6085 theSingleSelectedDirectoryOrHomeDir |
6085 theSingleSelectedDirectoryOrHomeDir |
6086 |dir| |
6086 |dir| |
6087 |
6087 |
6088 dir := self theSingleSelectedDirectoryOrNil |
6088 dir := self theSingleSelectedDirectoryOrNil. |
6089 dir isNil ifTrue:[ dir := Filename homeDirectory]. |
6089 dir isNil ifTrue:[ dir := Filename homeDirectory]. |
6090 ^ dir. |
6090 ^ dir. |
6091 ! |
6091 ! |
6092 |
6092 |
6093 theSingleSelectedDirectoryOrNil |
6093 theSingleSelectedDirectoryOrNil |
6880 ! ! |
6880 ! ! |
6881 |
6881 |
6882 !AbstractFileBrowser class methodsFor:'documentation'! |
6882 !AbstractFileBrowser class methodsFor:'documentation'! |
6883 |
6883 |
6884 version |
6884 version |
6885 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.235 2004-05-24 07:53:04 penk Exp $' |
6885 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.236 2004-06-01 11:15:49 cg Exp $' |
6886 ! ! |
6886 ! ! |