equal
deleted
inserted
replaced
983 #(#MenuItem |
983 #(#MenuItem |
984 #label: 'View' |
984 #label: 'View' |
985 #translateLabel: true |
985 #translateLabel: true |
986 #isVisible: #isEmbeddedApplication |
986 #isVisible: #isEmbeddedApplication |
987 #value: #viewFile |
987 #value: #viewFile |
988 #enabled: #hasOneSelectionInList |
988 #enabled: #canViewFile |
989 ) |
989 ) |
990 #(#MenuItem |
990 #(#MenuItem |
991 #label: 'Copy Filenames' |
991 #label: 'Copy Filenames' |
992 #translateLabel: true |
992 #translateLabel: true |
993 #value: #copyFilesToClipboard |
993 #value: #copyFilesToClipboard |
1409 |
1409 |
1410 viewFile |
1410 viewFile |
1411 |
1411 |
1412 | master item file tempDir| |
1412 | master item file tempDir| |
1413 |
1413 |
|
1414 self canViewFile ifFalse:[^ self]. |
1414 master := self masterApplication. |
1415 master := self masterApplication. |
1415 self selectionHolder value size = 1 ifFalse:[ |
1416 self selectionHolder value size = 1 ifFalse:[ |
1416 Dialog warn:'only one file have to be selected'. |
1417 Dialog warn:'only one file have to be selected'. |
1417 ^ self. |
1418 ^ self. |
1418 ]. |
1419 ]. |
1470 |
1471 |
1471 errorListVisibilityHolder isNil ifTrue:[ |
1472 errorListVisibilityHolder isNil ifTrue:[ |
1472 errorListVisibilityHolder := false asValue. |
1473 errorListVisibilityHolder := false asValue. |
1473 ]. |
1474 ]. |
1474 ^ errorListVisibilityHolder |
1475 ^ errorListVisibilityHolder |
1475 ! |
|
1476 |
|
1477 hasListEntriesHolder |
|
1478 "return/create the 'hasListEntriesHolder' value holder (automatically generated)" |
|
1479 |
|
1480 hasListEntriesHolder isNil ifTrue:[ |
|
1481 hasListEntriesHolder := false asValue. |
|
1482 ]. |
|
1483 ^ hasListEntriesHolder |
|
1484 ! |
|
1485 |
|
1486 hasOneSelectionInList |
|
1487 |
|
1488 | sel | |
|
1489 sel := self selectionHolder value. |
|
1490 ^ (sel notNil and:[sel notEmpty and:[sel size = 1]]) |
|
1491 ! |
1476 ! |
1492 |
1477 |
1493 hasSelectionInList |
1478 hasSelectionInList |
1494 |
1479 |
1495 | sel | |
1480 | sel | |
1782 self extractAllTo:dir. |
1767 self extractAllTo:dir. |
1783 ]. |
1768 ]. |
1784 selectOrAll == #selection ifTrue:[ |
1769 selectOrAll == #selection ifTrue:[ |
1785 self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean |
1770 self extractSelectionTo:dir askForExtractOptions:askForExtractOptionsBoolean |
1786 ]. |
1771 ]. |
1787 self updateFileBrowserIfPresentWith:dir. |
1772 "/ self updateFileBrowserIfPresentWith:dir. |
1788 ! ! |
1773 ! ! |
1789 |
1774 |
1790 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'! |
1775 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands extract private'! |
1791 |
1776 |
1792 extractAllTo:aDirectory |
1777 extractAllTo:aDirectory |
2086 ! |
2071 ! |
2087 |
2072 |
2088 canDelete |
2073 canDelete |
2089 |
2074 |
2090 ^ (self hasOneSelectionInList and:[archiver class canRemoveFiles]) |
2075 ^ (self hasOneSelectionInList and:[archiver class canRemoveFiles]) |
|
2076 ! |
|
2077 |
|
2078 canViewFile |
|
2079 |
|
2080 ^ self archiver class canViewFile and:[self hasOneSelectionInList] |
|
2081 ! |
|
2082 |
|
2083 hasListEntriesHolder |
|
2084 "return/create the 'hasListEntriesHolder' value holder (automatically generated)" |
|
2085 |
|
2086 hasListEntriesHolder isNil ifTrue:[ |
|
2087 hasListEntriesHolder := false asValue. |
|
2088 ]. |
|
2089 ^ hasListEntriesHolder |
|
2090 ! |
|
2091 |
|
2092 hasOneSelectionInList |
|
2093 |
|
2094 | sel | |
|
2095 sel := self selectionHolder value. |
|
2096 ^ (sel notNil and:[sel notEmpty and:[sel size = 1]]) |
2091 ! |
2097 ! |
2092 |
2098 |
2093 selRemoveFilesForDirs:aSel |
2099 selRemoveFilesForDirs:aSel |
2094 |
2100 |
2095 |stringCol newSel string| |
2101 |stringCol newSel string| |
4503 ! ! |
4509 ! ! |
4504 |
4510 |
4505 !FileApplicationNoteBook class methodsFor:'documentation'! |
4511 !FileApplicationNoteBook class methodsFor:'documentation'! |
4506 |
4512 |
4507 version |
4513 version |
4508 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.14 2002-10-14 16:02:16 penk Exp $' |
4514 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.15 2002-10-15 13:12:25 penk Exp $' |
4509 ! ! |
4515 ! ! |