296 'Hide Toolbar' |
296 'Hide Toolbar' |
297 |
297 |
298 #hideFilenameEntryField |
298 #hideFilenameEntryField |
299 'Hide Filename Field' |
299 'Hide Filename Field' |
300 |
300 |
|
301 #showFileDetails |
|
302 'Show File Details' |
|
303 |
|
304 #hideFileDetails |
|
305 'Hide File Details' |
|
306 |
|
307 #toggleDetails |
|
308 'Show/Hide File Details' |
|
309 |
301 ). |
310 ). |
302 |
311 |
303 ^ spec. |
312 ^ spec. |
|
313 ! |
|
314 |
|
315 helpSpec |
|
316 "This resource specification was automatically generated |
|
317 by the UIHelpTool of ST/X." |
|
318 |
|
319 "Do not manually edit this!! If it is corrupted, |
|
320 the UIHelpTool may not be able to read the specification." |
|
321 |
|
322 " |
|
323 UIHelpTool openOnClass:FileBrowserV2 |
|
324 " |
|
325 |
|
326 <resource: #help> |
|
327 |
|
328 ^super helpSpec addPairsFrom:#( |
|
329 |
|
330 |
|
331 ) |
304 ! ! |
332 ! ! |
305 |
333 |
306 !FileBrowserV2 class methodsFor:'icon'! |
334 !FileBrowserV2 class methodsFor:'icon'! |
307 |
335 |
308 defaultIcon |
336 defaultIcon |
339 |
367 |
340 hideToolBarIcon |
368 hideToolBarIcon |
341 <resource: #programImage> |
369 <resource: #programImage> |
342 |
370 |
343 ^ ToolbarIconLibrary hideToolbarIconH26 |
371 ^ ToolbarIconLibrary hideToolbarIconH26 |
|
372 ! ! |
|
373 |
|
374 !FileBrowserV2 class methodsFor:'image specs'! |
|
375 |
|
376 viewDetailsIcon |
|
377 "This resource specification was automatically generated |
|
378 by the ImageEditor of ST/X." |
|
379 |
|
380 "Do not manually edit this!! If it is corrupted, |
|
381 the ImageEditor may not be able to read the specification." |
|
382 |
|
383 " |
|
384 self viewDetailsIcon inspect |
|
385 ImageEditor openOnClass:self andSelector:#viewDetailsIcon |
|
386 Icon flushCachedIcons |
|
387 " |
|
388 |
|
389 <resource: #image> |
|
390 |
|
391 ^Icon |
|
392 constantNamed:#'FileBrowserV2 class viewDetailsIcon' |
|
393 ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@]+X@@@@@]+X@@@@@]+X@@@@@]+X@@@@@@@@b') ; yourself); yourself] |
|
394 ! |
|
395 |
|
396 viewNoDetailsIcon |
|
397 "This resource specification was automatically generated |
|
398 by the ImageEditor of ST/X." |
|
399 |
|
400 "Do not manually edit this!! If it is corrupted, |
|
401 the ImageEditor may not be able to read the specification." |
|
402 |
|
403 " |
|
404 self viewNoDetailsIcon inspect |
|
405 ImageEditor openOnClass:self andSelector:#viewNoDetailsIcon |
|
406 Icon flushCachedIcons |
|
407 " |
|
408 |
|
409 <resource: #image> |
|
410 |
|
411 ^Icon |
|
412 constantNamed:#'FileBrowserV2 class viewNoDetailsIcon' |
|
413 ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A<@@@@@@A<@@@@@@A<@@@@@@A<@@@@@@@@@b') ; yourself); yourself] |
344 ! ! |
414 ! ! |
345 |
415 |
346 !FileBrowserV2 class methodsFor:'interface specs'! |
416 !FileBrowserV2 class methodsFor:'interface specs'! |
347 |
417 |
348 windowSpec |
418 windowSpec |
672 #translateLabel: true |
742 #translateLabel: true |
673 #submenu: |
743 #submenu: |
674 #(#Menu |
744 #(#Menu |
675 #( |
745 #( |
676 #(#MenuItem |
746 #(#MenuItem |
677 #label: 'View File List' |
747 #label: 'Show' |
|
748 #translateLabel: true |
|
749 #submenu: |
|
750 #(#Menu |
|
751 #( |
|
752 #(#MenuItem |
|
753 #label: 'Hidden Files' |
|
754 #translateLabel: true |
|
755 #indication: #showHiddenFiles |
|
756 ) |
|
757 #(#MenuItem |
|
758 #label: '-' |
|
759 ) |
|
760 #(#MenuItem |
|
761 #label: 'Directory Tree' |
|
762 #translateLabel: true |
|
763 #indication: #showDirectoryTreeHolder |
|
764 ) |
|
765 #(#MenuItem |
|
766 #label: 'Directory Description' |
|
767 #translateLabel: true |
|
768 #indication: #viewDirectoryDescription |
|
769 ) |
|
770 #(#MenuItem |
|
771 #label: 'Regular Files in TreeView (Left)' |
|
772 #translateLabel: true |
|
773 #indication: #viewFilesInDirectoryTree |
|
774 ) |
|
775 #(#MenuItem |
|
776 #label: 'Directories in ContentsView (Right)' |
|
777 #translateLabel: true |
|
778 #indication: #viewDirectoriesInDirectoryContentsBrowser |
|
779 ) |
|
780 #(#MenuItem |
|
781 #label: 'File Applications' |
|
782 #translateLabel: true |
|
783 #enabled: #enableViewNoteBookApplication |
|
784 #indication: #viewNoteBookApplicationHolder |
|
785 ) |
|
786 #(#MenuItem |
|
787 #label: '-' |
|
788 ) |
|
789 #(#MenuItem |
|
790 #label: 'Open Multiple Applications' |
|
791 #translateLabel: true |
|
792 #indication: #openMultipleApplicationsForType |
|
793 ) |
|
794 ) |
|
795 nil |
|
796 nil |
|
797 ) |
|
798 ) |
|
799 #(#MenuItem |
|
800 #label: 'Sort' |
|
801 #translateLabel: true |
|
802 #submenuChannel: #sortMenu |
|
803 ) |
|
804 #(#MenuItem |
|
805 #label: 'Details' |
678 #translateLabel: true |
806 #translateLabel: true |
679 #submenuChannel: #viewInContentsBrowserMenu |
807 #submenuChannel: #viewInContentsBrowserMenu |
680 ) |
|
681 #(#MenuItem |
|
682 #label: 'Sort File List' |
|
683 #translateLabel: true |
|
684 #submenuChannel: #sortMenu |
|
685 ) |
|
686 #(#MenuItem |
|
687 #label: 'View Directory Tree' |
|
688 #translateLabel: true |
|
689 #indication: #showDirectoryTreeHolder |
|
690 ) |
|
691 #(#MenuItem |
|
692 #label: 'View Directory Description' |
|
693 #translateLabel: true |
|
694 #indication: #viewDirectoryDescription |
|
695 ) |
|
696 #(#MenuItem |
|
697 #label: 'View Files in Tree' |
|
698 #translateLabel: true |
|
699 #indication: #viewFilesInDirectoryTree |
|
700 ) |
|
701 #(#MenuItem |
|
702 #label: 'View Directories in Contents' |
|
703 #translateLabel: true |
|
704 #indication: #viewDirectoriesInDirectoryContentsBrowser |
|
705 ) |
|
706 #(#MenuItem |
|
707 #label: 'View File Applications' |
|
708 #translateLabel: true |
|
709 #enabled: #enableViewNoteBookApplication |
|
710 #indication: #viewNoteBookApplicationHolder |
|
711 ) |
|
712 #(#MenuItem |
|
713 #label: 'Open Multiple Applications' |
|
714 #translateLabel: true |
|
715 #indication: #openMultipleApplicationsForType |
|
716 ) |
808 ) |
717 #(#MenuItem |
809 #(#MenuItem |
718 #label: '-' |
810 #label: '-' |
719 ) |
811 ) |
720 #(#MenuItem |
812 #(#MenuItem |
969 #isButton: true |
1061 #isButton: true |
970 #value: #doAddTerminal |
1062 #value: #doAddTerminal |
971 #activeHelpKey: #addTerminal |
1063 #activeHelpKey: #addTerminal |
972 #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #shell20x20WithoutTextIcon) |
1064 #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #shell20x20WithoutTextIcon) |
973 ) |
1065 ) |
|
1066 #(#MenuItem |
|
1067 #label: 'viewDetails' |
|
1068 #isButton: true |
|
1069 #startGroup: #right |
|
1070 "/ #value: #toggleFileDetailsFor: |
|
1071 #activeHelpKey: #toggleDetails |
|
1072 #labelImage: #(#ResourceRetriever nil #viewDetailsIcon) |
|
1073 #submenuChannel: #viewDetailsMenuSpec |
|
1074 #indication: #viewDetails |
|
1075 ) |
974 ) |
1076 ) |
975 nil |
1077 nil |
976 nil |
1078 nil |
977 ) |
1079 ) |
978 ! |
1080 ! |
1171 self filenameEntryFieldVisibleHolder value:false. |
1273 self filenameEntryFieldVisibleHolder value:false. |
1172 ! |
1274 ! |
1173 |
1275 |
1174 hideToolbar |
1276 hideToolbar |
1175 self toolBarVisibleHolder value:false. |
1277 self toolBarVisibleHolder value:false. |
|
1278 ! |
|
1279 |
|
1280 toggleFileDetailsFor:anItem |
|
1281 |viewDetails| |
|
1282 |
|
1283 viewDetails := self viewDetails value not. |
|
1284 self viewDetails value:viewDetails. |
|
1285 |
|
1286 viewDetails ifTrue:[ |
|
1287 anItem activeHelpKey:#hideFileDetails. |
|
1288 anItem label:(self class viewNoDetailsIcon). |
|
1289 ] ifFalse:[ |
|
1290 anItem activeHelpKey:#showFileDetails. |
|
1291 anItem label:(self class viewDetailsIcon). |
|
1292 ]. |
1176 ! ! |
1293 ! ! |
1177 |
1294 |
1178 !FileBrowserV2 methodsFor:'aspects'! |
1295 !FileBrowserV2 methodsFor:'aspects'! |
1179 |
1296 |
1180 fileEntryFieldHolder |
1297 fileEntryFieldHolder |