1819 ( |
1819 ( |
1820 (MenuItem |
1820 (MenuItem |
1821 label: 'Split...' |
1821 label: 'Split...' |
1822 itemValue: splitSelectedFiles |
1822 itemValue: splitSelectedFiles |
1823 translateLabel: true |
1823 translateLabel: true |
|
1824 enabled: hasFileSelection |
1824 ) |
1825 ) |
1825 (MenuItem |
1826 (MenuItem |
1826 label: 'Join...' |
1827 label: 'Join...' |
1827 itemValue: joinSelectedFiles |
1828 itemValue: joinSelectedFiles |
1828 translateLabel: true |
1829 translateLabel: true |
|
1830 enabled: hasFileSelection |
1829 ) |
1831 ) |
1830 (MenuItem |
1832 (MenuItem |
1831 label: 'Copy Corrupted File To...' |
1833 label: 'Copy Corrupted File To...' |
1832 itemValue: copySelectionToRepairingCorruptedFiles |
1834 itemValue: copySelectionToRepairingCorruptedFiles |
1833 translateLabel: true |
1835 translateLabel: true |
|
1836 enabled: hasFileSelection |
1834 ) |
1837 ) |
1835 (MenuItem |
1838 (MenuItem |
1836 label: '-' |
1839 label: '-' |
1837 ) |
1840 ) |
1838 (MenuItem |
1841 (MenuItem |
1839 label: 'Rot13...' |
1842 label: 'Rot13...' |
1840 itemValue: filterSelectedFiles: |
1843 itemValue: filterSelectedFiles: |
1841 translateLabel: true |
1844 translateLabel: true |
1842 argument: rot13 |
1845 argument: rot13 |
|
1846 enabled: hasFileSelection |
1843 ) |
1847 ) |
1844 (MenuItem |
1848 (MenuItem |
1845 label: '-' |
1849 label: '-' |
1846 ) |
1850 ) |
1847 (MenuItem |
1851 (MenuItem |
|
1852 enabled: hasFileSelection |
1848 label: 'Truncate...' |
1853 label: 'Truncate...' |
1849 itemValue: truncateSelectedFilesToZeroSize |
1854 itemValue: truncateSelectedFilesToZeroSize |
1850 translateLabel: true |
1855 translateLabel: true |
1851 ) |
1856 ) |
1852 (MenuItem |
1857 (MenuItem |
1866 ) |
1871 ) |
1867 (MenuItem |
1872 (MenuItem |
1868 label: '-' |
1873 label: '-' |
1869 ) |
1874 ) |
1870 (MenuItem |
1875 (MenuItem |
1871 enabled: hasSelection |
1876 enabled: hasFileSelection |
1872 label: 'File Differences' |
1877 label: 'File Differences' |
1873 itemValue: openDiffView |
1878 itemValue: openDiffView |
1874 translateLabel: true |
1879 translateLabel: true |
1875 isVisible: hasTwoFilesSelectedHolder |
1880 isVisible: hasTwoFilesSelectedHolder |
1876 ) |
1881 ) |
1877 (MenuItem |
1882 (MenuItem |
1878 enabled: hasSelection |
1883 enabled: hasFileSelection |
1879 label: 'File Differences...' |
1884 label: 'File Differences...' |
1880 itemValue: openDiffView |
1885 itemValue: openDiffView |
1881 translateLabel: true |
1886 translateLabel: true |
1882 isVisible: hasNotTwoFilesSelectedHolder |
1887 isVisible: hasNotTwoFilesSelectedHolder |
1883 ) |
1888 ) |
2268 enabled: hasCBrowser |
2273 enabled: hasCBrowser |
2269 label: 'C Browser' |
2274 label: 'C Browser' |
2270 itemValue: openCBrowser |
2275 itemValue: openCBrowser |
2271 isVisible: hasCBrowser |
2276 isVisible: hasCBrowser |
2272 ) |
2277 ) |
2273 (MenuItem |
2278 (MenuItem |
2274 enabled: canOpenMontocelloBrowser |
2279 enabled: canOpenMonticelloBrowser |
2275 label: 'Monticello Browser' |
2280 label: 'Monticello Browser' |
2276 itemValue: doOpenMonticelloBrowser |
2281 itemValue: doOpenMonticelloBrowser |
2277 ) |
2282 ) |
2278 (MenuItem |
2283 (MenuItem |
2279 enabled: hasJavaAndSelection |
2284 enabled: hasJavaAndSelection |
2435 itemValue: fileFindFile |
2440 itemValue: fileFindFile |
2436 ) |
2441 ) |
2437 (MenuItem |
2442 (MenuItem |
2438 label: 'Same Contents as Selected...' |
2443 label: 'Same Contents as Selected...' |
2439 itemValue: fileFindDuplicateFile |
2444 itemValue: fileFindDuplicateFile |
|
2445 enabled: hasFileSelection |
2440 ) |
2446 ) |
2441 (MenuItem |
2447 (MenuItem |
2442 label: 'Duplicate Files' |
2448 label: 'Duplicate Files' |
2443 itemValue: fileFindDuplicates |
2449 itemValue: fileFindDuplicates |
2444 ) |
2450 ) |
7993 ! |
7999 ! |
7994 |
8000 |
7995 splitSelectedFiles |
8001 splitSelectedFiles |
7996 |selectedFiles numFiles msg sizeString kiloBytes| |
8002 |selectedFiles numFiles msg sizeString kiloBytes| |
7997 |
8003 |
7998 selectedFiles := self currentSelectedObjects. |
8004 selectedFiles := self currentSelectedFiles. |
7999 (numFiles := selectedFiles size) == 0 ifTrue:[^ self]. |
8005 (numFiles := selectedFiles size) == 0 ifTrue:[^ self]. |
8000 |
8006 |
8001 msg := (numFiles > 1) |
8007 msg := (numFiles > 1) |
8002 ifTrue:'Split each of the %1 files into pieces of size (in kB):' |
8008 ifTrue:'Split each of the %1 files into pieces of size (in kB):' |
8003 ifFalse:'Split %2 into pieces of size (in kB):'. |
8009 ifFalse:'Split %2 into pieces of size (in kB):'. |
8177 or:[SaugFix::MP3PlayerApplication notNil ]] |
8183 or:[SaugFix::MP3PlayerApplication notNil ]] |
8178 ! |
8184 ! |
8179 |
8185 |
8180 hasMP3PlayerAndSelection |
8186 hasMP3PlayerAndSelection |
8181 |
8187 |
8182 ^ [ self currentSelectedFiles size > 0 |
8188 ^ [ self currentSelectedFiles notEmptyOrNil |
8183 and:[ self hasMP3Player value]] |
8189 and:[ self hasMP3Player value]] |
8184 ! |
8190 ! |
8185 |
8191 |
8186 hasResourceFileSelected |
8192 hasResourceFileSelected |
8187 |
8193 ^ (self currentSelectedFiles) |
8188 ^ self currentSelectedFiles |
8194 contains:[:fn | |
8189 conform:[:fn | |
|
8190 fn suffix asLowercase = 'rs' |
8195 fn suffix asLowercase = 'rs' |
8191 ]. |
8196 ]. |
8192 ! |
8197 ! |
8193 |
8198 |
8194 hasSlideShow |
8199 hasSlideShow |