79 "returns the priority of the update task |
79 "returns the priority of the update task |
80 " |
80 " |
81 ^ 8 |
81 ^ 8 |
82 ! ! |
82 ! ! |
83 |
83 |
|
84 !DirectoryContentsBrowser class methodsFor:'image specs'! |
|
85 |
|
86 detailsMenuIcon2 |
|
87 "This resource specification was automatically generated |
|
88 by the ImageEditor of ST/X." |
|
89 |
|
90 "Do not manually edit this!! If it is corrupted, |
|
91 the ImageEditor may not be able to read the specification." |
|
92 |
|
93 " |
|
94 self detailsMenuIcon2 inspect |
|
95 ImageEditor openOnClass:self andSelector:#detailsMenuIcon2 |
|
96 Icon flushCachedIcons |
|
97 " |
|
98 |
|
99 <resource: #image> |
|
100 |
|
101 ^Icon |
|
102 constantNamed:#'DirectoryContentsBrowser class detailsMenuIcon2' |
|
103 ifAbsentPut:[(Depth1Image new) width: 11; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'* AT@B @D@@@@@@a') ; yourself); yourself] |
|
104 ! |
|
105 |
|
106 detailsMenuIconR |
|
107 "This resource specification was automatically generated |
|
108 by the ImageEditor of ST/X." |
|
109 |
|
110 "Do not manually edit this!! If it is corrupted, |
|
111 the ImageEditor may not be able to read the specification." |
|
112 |
|
113 " |
|
114 self detailsMenuIconR inspect |
|
115 ImageEditor openOnClass:self andSelector:#detailsMenuIconR |
|
116 Icon flushCachedIcons |
|
117 " |
|
118 |
|
119 <resource: #image> |
|
120 |
|
121 ^Icon |
|
122 constantNamed:#'DirectoryContentsBrowser class detailsMenuIconR' |
|
123 ifAbsentPut:[(Depth1Image new) width: 5; height: 7; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 5; height: 7; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' DB TJA@ @@a') ; yourself); yourself] |
|
124 ! ! |
|
125 |
84 !DirectoryContentsBrowser class methodsFor:'interface specs'! |
126 !DirectoryContentsBrowser class methodsFor:'interface specs'! |
|
127 |
|
128 detailsMenuIcon |
|
129 "This resource specification was automatically generated |
|
130 by the ImageEditor of ST/X." |
|
131 |
|
132 "Do not manually edit this!! If it is corrupted, |
|
133 the ImageEditor may not be able to read the specification." |
|
134 |
|
135 " |
|
136 self detailsMenuIcon inspect |
|
137 ImageEditor openOnClass:self andSelector:#detailsMenuIcon |
|
138 Icon flushCachedIcons |
|
139 " |
|
140 |
|
141 <resource: #image> |
|
142 |
|
143 ^Icon |
|
144 constantNamed:#'DirectoryContentsBrowser class detailsMenuIcon' |
|
145 ifAbsentPut:[(Depth1Image new) width: 7; height: 5; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 7; height: 5; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@W49DPDb') ; yourself); yourself] |
|
146 ! |
85 |
147 |
86 tableColumns |
148 tableColumns |
87 "This resource specification was automatically generated |
149 "This resource specification was automatically generated |
88 by the DataSetBuilder of ST/X." |
150 by the DataSetBuilder of ST/X." |
89 |
151 |
416 #label: 'New' |
481 #label: 'New' |
417 #translateLabel: true |
482 #translateLabel: true |
418 #submenuChannel: #newMenu |
483 #submenuChannel: #newMenu |
419 ) |
484 ) |
420 #(#MenuItem |
485 #(#MenuItem |
421 #label: 'Update' |
|
422 #translateLabel: true |
|
423 #value: #doUpdate |
|
424 ) |
|
425 #(#MenuItem |
|
426 #label: 'Properties...' |
486 #label: 'Properties...' |
427 #translateLabel: true |
487 #translateLabel: true |
428 #value: #doShowProperties |
488 #value: #doShowProperties |
429 #enabled: #hasSelection |
489 #enabled: #hasSelection |
430 ) |
490 ) |
431 #(#MenuItem |
491 #(#MenuItem |
432 #label: 'Others' |
492 #label: 'More' |
433 #submenu: |
493 #submenu: |
434 #(#Menu |
494 #(#Menu |
435 #( |
495 #( |
436 #(#MenuItem |
496 #(#MenuItem |
437 #label: 'File In' |
497 #label: 'File In' |
445 #translateLabel: true |
505 #translateLabel: true |
446 #value: #fileFileInToNameSpace |
506 #value: #fileFileInToNameSpace |
447 #enabled: #hasSelection |
507 #enabled: #hasSelection |
448 ) |
508 ) |
449 #(#MenuItem |
509 #(#MenuItem |
450 #label: 'Directory Up' |
510 #label: '-' |
451 #translateLabel: true |
|
452 #value: #doGoDirectoryUp |
|
453 #enabled: #enableDirectoryUp |
|
454 #shortcutKeyCharacter: #CursorLeft |
|
455 ) |
511 ) |
456 #(#MenuItem |
512 #(#MenuItem |
457 #label: 'Open in TextEditor' |
513 #label: 'Open in TextEditor' |
458 #translateLabel: true |
514 #translateLabel: true |
459 #value: #doShowFileContents |
515 #value: #doShowFileContents |
460 #enabled: #hasSelection |
516 #enabled: #hasSelection |
|
517 ) |
|
518 #(#MenuItem |
|
519 #label: '-' |
461 ) |
520 ) |
462 #(#MenuItem |
521 #(#MenuItem |
463 #label: 'Select All' |
522 #label: 'Select All' |
464 #translateLabel: true |
523 #translateLabel: true |
465 #value: #doSelectAll |
524 #value: #doSelectAll |
577 #enabled: #viewDetails |
644 #enabled: #viewDetails |
578 #indication: #viewPreview |
645 #indication: #viewPreview |
579 ) |
646 ) |
580 #(#MenuItem |
647 #(#MenuItem |
581 #label: '-' |
648 #label: '-' |
|
649 #isVisible: false |
582 ) |
650 ) |
583 #(#MenuItem |
651 #(#MenuItem |
584 #label: 'Show Hidden Files' |
652 #label: 'Show Hidden Files' |
|
653 #translateLabel: true |
|
654 #indication: #showHiddenFiles |
|
655 #isVisible: false |
|
656 ) |
|
657 #(#MenuItem |
|
658 #label: 'Update' |
|
659 #translateLabel: true |
|
660 #value: #doUpdate |
|
661 #isVisible: false |
|
662 ) |
|
663 ) |
|
664 nil |
|
665 nil |
|
666 ) |
|
667 ! |
|
668 |
|
669 viewDetailsMenuSpec |
|
670 "This resource specification was automatically generated |
|
671 by the MenuEditor of ST/X." |
|
672 |
|
673 "Do not manually edit this!! If it is corrupted, |
|
674 the MenuEditor may not be able to read the specification." |
|
675 |
|
676 " |
|
677 MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu |
|
678 (Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp |
|
679 " |
|
680 |
|
681 <resource: #menu> |
|
682 |
|
683 ^ |
|
684 #(#Menu |
|
685 #( |
|
686 #(#MenuItem |
|
687 #label: 'Suffix' |
|
688 #translateLabel: true |
|
689 #hideMenuOnActivated: false |
|
690 #enabled: #viewDetails |
|
691 #indication: #viewType |
|
692 ) |
|
693 #(#MenuItem |
|
694 #label: 'Permissions' |
|
695 #translateLabel: true |
|
696 #hideMenuOnActivated: false |
|
697 #enabled: #viewDetails |
|
698 #indication: #viewPermissions |
|
699 ) |
|
700 #(#MenuItem |
|
701 #label: 'Owner' |
|
702 #translateLabel: true |
|
703 #hideMenuOnActivated: false |
|
704 #enabled: #viewDetails |
|
705 #indication: #viewOwner |
|
706 ) |
|
707 #(#MenuItem |
|
708 #label: 'Group' |
|
709 #translateLabel: true |
|
710 #hideMenuOnActivated: false |
|
711 #enabled: #viewDetails |
|
712 #indication: #viewGroup |
|
713 ) |
|
714 #(#MenuItem |
|
715 #label: 'Size' |
|
716 #translateLabel: true |
|
717 #hideMenuOnActivated: false |
|
718 #enabled: #viewDetails |
|
719 #indication: #viewSize |
|
720 ) |
|
721 #(#MenuItem |
|
722 #label: 'Date && Time' |
|
723 #translateLabel: true |
|
724 #hideMenuOnActivated: false |
|
725 #enabled: #viewDetails |
|
726 #indication: #viewTime |
|
727 ) |
|
728 #(#MenuItem |
|
729 #label: 'File Info' |
|
730 #translateLabel: true |
|
731 #hideMenuOnActivated: false |
|
732 #enabled: #viewDetails |
|
733 #indication: #viewDescription |
|
734 ) |
|
735 #(#MenuItem |
|
736 #label: 'Preview' |
|
737 #translateLabel: true |
|
738 #hideMenuOnActivated: false |
|
739 #enabled: #viewDetails |
|
740 #indication: #viewPreview |
|
741 ) |
|
742 #(#MenuItem |
|
743 #label: '-' |
|
744 ) |
|
745 #(#MenuItem |
|
746 #label: 'Hidden Files' |
585 #translateLabel: true |
747 #translateLabel: true |
586 #indication: #showHiddenFiles |
748 #indication: #showHiddenFiles |
587 ) |
749 ) |
588 ) |
750 ) |
589 nil |
751 nil |
1720 ] ifFalse:[ |
1886 ] ifFalse:[ |
1721 (aItem hasMimeType and:[aItem mimeType isImage]) ifTrue:[ |
1887 (aItem hasMimeType and:[aItem mimeType isImage]) ifTrue:[ |
1722 Exception handle:[:ex| |
1888 Exception handle:[:ex| |
1723 icon := nil. |
1889 icon := nil. |
1724 ] do:[ |scale extent w h | |
1890 ] do:[ |scale extent w h | |
1725 icon := Image fromFile:(aItem pathName). |
1891 icon := Image fromFile:(aItem fileName). |
1726 icon notNil ifTrue:[ |
1892 icon notNil ifTrue:[ |
1727 extent := icon extent. |
1893 extent := icon extent. |
1728 w := column width - 4. |
1894 w := column width - 4. |
1729 h := column height. |
1895 h := column height. |
1730 |
1896 |