1915 (Menu new fromLiteralArrayEncoding:(DataSetBuilder menu)) startUp |
1915 (Menu new fromLiteralArrayEncoding:(DataSetBuilder menu)) startUp |
1916 " |
1916 " |
1917 |
1917 |
1918 <resource: #menu> |
1918 <resource: #menu> |
1919 |
1919 |
1920 ^ |
1920 ^ |
1921 |
1921 #(Menu |
1922 #(#Menu |
1922 ( |
1923 |
1923 (MenuItem |
1924 #( |
1924 label: 'File' |
1925 #(#MenuItem |
1925 translateLabel: true |
1926 #label: 'File' |
1926 submenu: |
1927 #translateLabel: true |
1927 (Menu |
1928 #activeHelpKey: #file |
1928 ( |
1929 #submenu: |
1929 (MenuItem |
1930 #(#Menu |
1930 activeHelpKey: fileNew |
1931 |
1931 label: 'New' |
1932 #( |
1932 itemValue: doNew |
1933 #(#MenuItem |
1933 translateLabel: true |
1934 #label: 'New' |
|
1935 #translateLabel: true |
|
1936 #value: #doNew |
|
1937 #activeHelpKey: #fileNew |
|
1938 ) |
|
1939 #(#MenuItem |
|
1940 #label: '-' |
|
1941 ) |
|
1942 #(#MenuItem |
|
1943 #label: 'Load...' |
|
1944 #translateLabel: true |
|
1945 #value: #doLoad |
|
1946 #activeHelpKey: #fileLoad |
|
1947 ) |
|
1948 #(#MenuItem |
|
1949 #label: '-' |
|
1950 ) |
|
1951 #(#MenuItem |
|
1952 #label: 'Save' |
|
1953 #translateLabel: true |
|
1954 #value: #doSave |
|
1955 #activeHelpKey: #fileSave |
|
1956 ) |
|
1957 #(#MenuItem |
|
1958 #label: 'Save As...' |
|
1959 #translateLabel: true |
|
1960 #value: #doSaveAs |
|
1961 #activeHelpKey: #fileSaveAs |
|
1962 ) |
|
1963 #(#MenuItem |
|
1964 #label: '-' |
|
1965 ) |
|
1966 #(#MenuItem |
|
1967 #label: 'Pick Columns...' |
|
1968 #translateLabel: true |
|
1969 #value: #doPickColumns |
|
1970 #activeHelpKey: #pickColumns |
|
1971 ) |
|
1972 #(#MenuItem |
|
1973 #label: '-' |
|
1974 ) |
|
1975 #(#MenuItem |
|
1976 #label: 'Browse Class' |
|
1977 #translateLabel: true |
|
1978 #value: #doBrowseClass |
|
1979 #activeHelpKey: #fileBrowseClass |
|
1980 ) |
|
1981 #(#MenuItem |
|
1982 #label: '-' |
|
1983 ) |
|
1984 #(#MenuItem |
|
1985 #label: 'Exit' |
|
1986 #translateLabel: true |
|
1987 #value: #closeRequest |
|
1988 #activeHelpKey: #fileExit |
|
1989 ) |
|
1990 ) nil |
|
1991 nil |
|
1992 ) |
1934 ) |
|
1935 (MenuItem |
|
1936 label: '-' |
|
1937 ) |
|
1938 (MenuItem |
|
1939 activeHelpKey: fileLoad |
|
1940 label: 'Load...' |
|
1941 itemValue: doLoad |
|
1942 translateLabel: true |
|
1943 ) |
|
1944 (MenuItem |
|
1945 label: '-' |
|
1946 ) |
|
1947 (MenuItem |
|
1948 activeHelpKey: fileSave |
|
1949 label: 'Save' |
|
1950 itemValue: doSave |
|
1951 translateLabel: true |
|
1952 ) |
|
1953 (MenuItem |
|
1954 activeHelpKey: fileSaveAs |
|
1955 label: 'Save As...' |
|
1956 itemValue: doSaveAs |
|
1957 translateLabel: true |
|
1958 ) |
|
1959 (MenuItem |
|
1960 label: '-' |
|
1961 ) |
|
1962 (MenuItem |
|
1963 activeHelpKey: pickColumns |
|
1964 label: 'Pick Columns...' |
|
1965 itemValue: doPickColumns |
|
1966 translateLabel: true |
|
1967 ) |
|
1968 (MenuItem |
|
1969 label: '-' |
|
1970 isVisible: isStandAlone |
|
1971 ) |
|
1972 (MenuItem |
|
1973 activeHelpKey: fileBrowseClass |
|
1974 label: 'Browse Class' |
|
1975 itemValue: doBrowseClass |
|
1976 translateLabel: true |
|
1977 isVisible: isStandAlone |
|
1978 ) |
|
1979 (MenuItem |
|
1980 label: '-' |
|
1981 isVisible: isStandAlone |
|
1982 ) |
|
1983 (MenuItem |
|
1984 activeHelpKey: fileExit |
|
1985 label: 'Exit' |
|
1986 itemValue: closeRequest |
|
1987 translateLabel: true |
|
1988 isVisible: isStandAlone |
|
1989 ) |
|
1990 ) |
|
1991 nil |
|
1992 nil |
1993 ) |
1993 ) |
1994 #(#MenuItem |
1994 ) |
1995 #label: 'Edit' |
1995 (MenuItem |
1996 #translateLabel: true |
1996 label: 'Edit' |
1997 #activeHelpKey: #edit |
1997 translateLabel: true |
1998 #submenuChannel: #menuEdit |
1998 submenuChannel: menuEdit |
|
1999 ) |
|
2000 (MenuItem |
|
2001 label: 'Add' |
|
2002 translateLabel: true |
|
2003 submenu: |
|
2004 (Menu |
|
2005 ( |
|
2006 (MenuItem |
|
2007 activeHelpKey: addColumn |
|
2008 enabled: columnIsNotEditing |
|
2009 label: 'Column' |
|
2010 itemValue: doCreateColumn |
|
2011 translateLabel: true |
|
2012 labelImage: (ResourceRetriever nil newColumnIcon 'Column') |
|
2013 ) |
|
2014 ) |
|
2015 nil |
|
2016 nil |
1999 ) |
2017 ) |
2000 #(#MenuItem |
2018 ) |
2001 #label: 'Add' |
2019 (MenuItem |
2002 #translateLabel: true |
2020 label: 'Generate' |
2003 #submenu: |
2021 translateLabel: true |
2004 #(#Menu |
2022 submenu: |
2005 |
2023 (Menu |
2006 #( |
2024 ( |
2007 #(#MenuItem |
2025 (MenuItem |
2008 #label: 'Column' |
2026 activeHelpKey: fileDefineClass |
2009 #translateLabel: true |
2027 label: 'Define Row Class...' |
2010 #value: #doCreateColumn |
2028 itemValue: doDefineRowClass |
2011 #activeHelpKey: #addColumn |
2029 translateLabel: true |
2012 #enabled: #columnIsNotEditing |
|
2013 #labelImage: #(#ResourceRetriever nil #newColumnIcon 'Column') |
|
2014 ) |
|
2015 ) nil |
|
2016 nil |
|
2017 ) |
2030 ) |
|
2031 (MenuItem |
|
2032 activeHelpKey: browseRowClass |
|
2033 label: 'Browse Row Class' |
|
2034 itemValue: doBrowseRowClass |
|
2035 translateLabel: true |
|
2036 ) |
|
2037 (MenuItem |
|
2038 label: '-' |
|
2039 ) |
|
2040 (MenuItem |
|
2041 activeHelpKey: generateCode |
|
2042 label: 'Generate Code' |
|
2043 itemValue: doGenerateCode |
|
2044 translateLabel: true |
|
2045 ) |
|
2046 ) |
|
2047 nil |
|
2048 nil |
2018 ) |
2049 ) |
2019 #(#MenuItem |
2050 ) |
2020 #label: 'Generate' |
2051 (MenuItem |
2021 #translateLabel: true |
2052 label: 'History' |
2022 #activeHelpKey: #generate |
2053 translateLabel: true |
2023 #submenu: |
2054 isVisible: isStandAlone |
2024 #(#Menu |
2055 submenuChannel: menuHistory |
2025 |
2056 ) |
2026 #( |
2057 (MenuItem |
2027 #(#MenuItem |
2058 label: 'Help' |
2028 #label: 'Define Row Class...' |
2059 translateLabel: true |
2029 #translateLabel: true |
2060 startGroup: right |
2030 #value: #doDefineRowClass |
2061 submenuChannel: menuHelp |
2031 #activeHelpKey: #fileDefineClass |
2062 ) |
2032 ) |
2063 ) |
2033 #(#MenuItem |
2064 nil |
2034 #label: 'Browse Row Class' |
2065 nil |
2035 #translateLabel: true |
|
2036 #value: #doBrowseRowClass |
|
2037 #activeHelpKey: #browseRowClass |
|
2038 ) |
|
2039 #(#MenuItem |
|
2040 #label: '-' |
|
2041 ) |
|
2042 #(#MenuItem |
|
2043 #label: 'Generate Code' |
|
2044 #translateLabel: true |
|
2045 #value: #doGenerateCode |
|
2046 #activeHelpKey: #generateCode |
|
2047 ) |
|
2048 ) nil |
|
2049 nil |
|
2050 ) |
|
2051 ) |
|
2052 "/ #(#MenuItem |
|
2053 "/ #label: 'Settings' |
|
2054 "/ #translateLabel: true |
|
2055 "/ #activeHelpKey: #settings |
|
2056 "/ #submenu: |
|
2057 "/ #(#Menu |
|
2058 "/ |
|
2059 "/ #( |
|
2060 "/ #(#MenuItem |
|
2061 "/ #label: 'Fonts' |
|
2062 "/ #translateLabel: true |
|
2063 "/ #submenuChannel: #menuFont |
|
2064 "/ ) |
|
2065 "/ ) nil |
|
2066 "/ nil |
|
2067 "/ ) |
|
2068 "/ ) |
|
2069 #(#MenuItem |
|
2070 #label: 'History' |
|
2071 #translateLabel: true |
|
2072 #activeHelpKey: #history |
|
2073 #submenuChannel: #menuHistory |
|
2074 ) |
|
2075 #(#MenuItem |
|
2076 #label: 'Help' |
|
2077 #translateLabel: true |
|
2078 #startGroup: #right |
|
2079 #submenuChannel: #menuHelp |
|
2080 ) |
|
2081 ) nil |
|
2082 nil |
|
2083 ) |
2066 ) |
2084 |
|
2085 "Modified: / 19.5.1998 / 23:10:01 / cg" |
|
2086 ! |
2067 ! |
2087 |
2068 |
2088 menuEdit |
2069 menuEdit |
2089 "This resource specification was automatically generated |
2070 "This resource specification was automatically generated |
2090 by the MenuEditor of ST/X." |
2071 by the MenuEditor of ST/X." |