equal
deleted
inserted
replaced
702 layout: (LayoutFrame -60 1 1 0.0 -50 1 1 1.0) |
702 layout: (LayoutFrame -60 1 1 0.0 -50 1 1 1.0) |
703 activeHelpKey: modeLabel |
703 activeHelpKey: modeLabel |
704 level: -1 |
704 level: -1 |
705 translateLabel: true |
705 translateLabel: true |
706 labelChannel: modeLabelHolder |
706 labelChannel: modeLabelHolder |
|
707 postBuildCallback: postBuildEditModeInfoLabel: |
707 adjust: right |
708 adjust: right |
708 ) |
709 ) |
709 (LabelSpec |
710 (LabelSpec |
710 label: 'L' |
711 label: 'L' |
711 name: 'LineLabel' |
712 name: 'LineLabel' |
758 ) |
759 ) |
759 ) |
760 ) |
760 |
761 |
761 ) |
762 ) |
762 ) |
763 ) |
|
764 |
|
765 "Modified: / 11-09-2006 / 12:24:32 / cg" |
763 ! ! |
766 ! ! |
764 |
767 |
765 !FileBrowserV2 class methodsFor:'menu specs'! |
768 !FileBrowserV2 class methodsFor:'menu specs'! |
|
769 |
|
770 editModeInfoLabelMenu |
|
771 "This resource specification was automatically generated |
|
772 by the MenuEditor of ST/X." |
|
773 |
|
774 "Do not manually edit this!! If it is corrupted, |
|
775 the MenuEditor may not be able to read the specification." |
|
776 |
|
777 " |
|
778 MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#editModeInfoLabelMenu |
|
779 (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser editModeInfoLabelMenu)) startUp |
|
780 " |
|
781 |
|
782 <resource: #menu> |
|
783 |
|
784 ^ |
|
785 #(Menu |
|
786 ( |
|
787 (MenuItem |
|
788 label: 'Insert' |
|
789 itemValue: editModeInsert |
|
790 translateLabel: true |
|
791 ) |
|
792 (MenuItem |
|
793 label: 'Overwrite' |
|
794 itemValue: editModeOverwrite |
|
795 translateLabel: true |
|
796 ) |
|
797 (MenuItem |
|
798 label: 'Insert Selecting' |
|
799 itemValue: editModeInsertAndSelect |
|
800 translateLabel: true |
|
801 ) |
|
802 ) |
|
803 nil |
|
804 nil |
|
805 ) |
|
806 |
|
807 "Created: / 11-09-2006 / 12:23:59 / cg" |
|
808 ! |
766 |
809 |
767 encodingMenu |
810 encodingMenu |
768 "This resource specification was automatically generated |
811 "This resource specification was automatically generated |
769 by the MenuEditor of ST/X." |
812 by the MenuEditor of ST/X." |
770 |
813 |
1313 applicationNamed:#FileApplicationNoteBook |
1356 applicationNamed:#FileApplicationNoteBook |
1314 ifPresentDo:[:appl | appl modeLabelHolder]. |
1357 ifPresentDo:[:appl | appl modeLabelHolder]. |
1315 ] |
1358 ] |
1316 ! |
1359 ! |
1317 |
1360 |
|
1361 modeLabelMenuHolder |
|
1362 ^ self |
|
1363 applicationNamed:#FileApplicationNoteBook |
|
1364 ifPresentDo:[:appl | appl modeLabelMenu]. |
|
1365 |
|
1366 "Created: / 11-09-2006 / 12:26:44 / cg" |
|
1367 ! |
|
1368 |
1318 selectedDeviceDrive |
1369 selectedDeviceDrive |
1319 |
1370 |
1320 selectedDeviceDrive isNil ifTrue:[ |
1371 selectedDeviceDrive isNil ifTrue:[ |
1321 selectedDeviceDrive := self listOfDeviceDrives first asValue. |
1372 selectedDeviceDrive := self listOfDeviceDrives first asValue. |
1322 selectedDeviceDrive addDependent:self. |
1373 selectedDeviceDrive addDependent:self. |
1758 aWidget level:-1. |
1809 aWidget level:-1. |
1759 aWidget acceptIfUnchanged:true. |
1810 aWidget acceptIfUnchanged:true. |
1760 aWidget crAction:[ self crPressedInPathField ]. |
1811 aWidget crAction:[ self crPressedInPathField ]. |
1761 ! |
1812 ! |
1762 |
1813 |
|
1814 postBuildEditModeInfoLabel:aLabel |
|
1815 aLabel menuHolder:self; menuMessage:#modeLabelMenuHolder. |
|
1816 |
|
1817 "Created: / 11-09-2006 / 12:24:54 / cg" |
|
1818 ! |
|
1819 |
1763 postBuildFilterBox:aWidget |
1820 postBuildFilterBox:aWidget |
1764 |
1821 |
1765 self filterValueBox value:aWidget. |
1822 self filterValueBox value:aWidget. |
1766 self filterBackgroundColor value:aWidget backgroundColor. |
1823 self filterBackgroundColor value:aWidget backgroundColor. |
1767 ! |
1824 ! |
1794 ! ! |
1851 ! ! |
1795 |
1852 |
1796 !FileBrowserV2 class methodsFor:'documentation'! |
1853 !FileBrowserV2 class methodsFor:'documentation'! |
1797 |
1854 |
1798 version |
1855 version |
1799 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.154 2006-08-09 12:48:50 cg Exp $' |
1856 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.155 2006-09-11 10:46:30 cg Exp $' |
1800 ! ! |
1857 ! ! |
1801 |
1858 |
1802 FileBrowserV2 initialize! |
1859 FileBrowserV2 initialize! |