628 |
628 |
629 instance doubleClickAction:[:anIndex| |
629 instance doubleClickAction:[:anIndex| |
630 | item | |
630 | item | |
631 item := instance contentsBrowser browserItemList at:anIndex ifAbsent:nil. |
631 item := instance contentsBrowser browserItemList at:anIndex ifAbsent:nil. |
632 item notNil ifTrue:[ |
632 item notNil ifTrue:[ |
633 ((instance viewFiles and:[item isDirectory not]) or:[(instance viewFiles not and:[item isDirectory])]) ifTrue:[ |
633 ((instance viewFiles and:[item isDirectory not]) |
|
634 " or:[(instance viewFiles not and:[item isDirectory])] " ) ifTrue:[ |
634 instance doAccept. |
635 instance doAccept. |
635 ] |
636 ] |
636 ] |
637 ] |
637 ]. |
638 ]. |
638 ! |
639 ! |
639 |
640 |
640 viewDetailsIcon |
641 viewDetailsIcon |
641 ^ FileBrowserV2 viewDetailsIcon |
642 ^ FileBrowserV2 viewDetailsIcon |
642 ! ! |
643 ! ! |
643 |
644 |
644 !FileDialogV2 class methodsFor:'active help'! |
645 !FileDialogV2 class methodsFor:'help specs'! |
645 |
646 |
646 flyByHelpSpec |
647 flyByHelpSpec |
|
648 "This resource specification was automatically generated |
|
649 by the UIHelpTool of ST/X." |
|
650 |
|
651 "Do not manually edit this!! If it is corrupted, |
|
652 the UIHelpTool may not be able to read the specification." |
|
653 |
|
654 " |
|
655 UIHelpTool openOnClass:FileDialogV2 |
|
656 " |
|
657 |
647 <resource: #help> |
658 <resource: #help> |
648 |
659 |
649 |spec hist| |
660 ^ super flyByHelpSpec addPairsFrom:#( |
650 |
661 |
651 spec := super flyByHelpSpec addPairsFrom:#( |
662 #fileHome |
|
663 'Goto Home' |
|
664 |
|
665 #fileBrowse |
|
666 'Browse' |
652 |
667 |
653 #directoryUp |
668 #directoryUp |
654 'Directory Up' |
669 'Directory Up' |
655 |
670 |
656 #directoryBack |
671 #directoryBack |
657 'Directory Back' |
672 'Directory Back' |
658 |
673 |
659 #directoryForward |
674 #directoryForward |
660 'Directory Forward' |
675 'Directory Forward' |
661 |
676 |
662 #directoryHistory |
677 ) |
663 'Directory' |
678 ! |
|
679 |
|
680 helpSpec |
|
681 "This resource specification was automatically generated |
|
682 by the UIHelpTool of ST/X." |
|
683 |
|
684 "Do not manually edit this!! If it is corrupted, |
|
685 the UIHelpTool may not be able to read the specification." |
|
686 |
|
687 " |
|
688 UIHelpTool openOnClass:FileDialogV2 |
|
689 " |
|
690 |
|
691 <resource: #help> |
|
692 |
|
693 ^ super helpSpec addPairsFrom:#( |
664 |
694 |
665 #fileHome |
695 #fileHome |
666 'Home Directory' |
696 '' |
667 |
697 |
668 #fileGotoDefault |
698 #fileBrowse |
669 'Default Directory (ST/X Start Directory)' |
699 'Browse' |
670 |
700 |
671 #fileHistory |
701 ) |
672 'File History' |
|
673 |
|
674 ). |
|
675 |
|
676 "/ hist := self directoryHistory. |
|
677 "/ hist notNil ifTrue:[ |
|
678 "/ hist canForward ifTrue:[ |
|
679 "/ spec at:#directoryForward put:(self classResources string:'Forward to: %1' with:hist nextForwardItem). |
|
680 "/ ]. |
|
681 "/ hist canBackward ifTrue:[ |
|
682 "/ spec at:#directoryBack put:(self classResources string:'Back to: %1' with:hist nextBackwardItem). |
|
683 "/ ]. |
|
684 "/ ]. |
|
685 ^ spec. |
|
686 |
|
687 " |
|
688 self flyByHelpSpec |
|
689 " |
|
690 ! ! |
702 ! ! |
691 |
703 |
692 !FileDialogV2 class methodsFor:'interface specs'! |
704 !FileDialogV2 class methodsFor:'interface specs'! |
693 |
705 |
694 windowSpec |
706 windowSpec |
929 isButton: true |
941 isButton: true |
930 labelImage: (ResourceRetriever AbstractFileBrowser goHomeIcon) |
942 labelImage: (ResourceRetriever AbstractFileBrowser goHomeIcon) |
931 ) |
943 ) |
932 (MenuItem |
944 (MenuItem |
933 label: '-' |
945 label: '-' |
|
946 isVisible: browseVisibleHolder |
|
947 ) |
|
948 (MenuItem |
|
949 activeHelpKey: fileBrowse |
|
950 label: 'Browse' |
|
951 itemValue: doBrowseDirectory |
|
952 translateLabel: true |
|
953 isButton: true |
|
954 isVisible: browseVisibleHolder |
|
955 labelImage: (ResourceRetriever ToolbarIconLibrary fileBrowser24x24Icon) |
|
956 ) |
|
957 (MenuItem |
|
958 label: '-' |
934 ) |
959 ) |
935 (MenuItem |
960 (MenuItem |
936 label: 'New Directory' |
961 label: 'New Directory' |
937 itemValue: newDirectory |
962 itemValue: newDirectory |
938 translateLabel: true |
963 translateLabel: true |