1923 by the MenuEditor of ST/X." |
1923 by the MenuEditor of ST/X." |
1924 |
1924 |
1925 "Do not manually edit this!! If it is corrupted, |
1925 "Do not manually edit this!! If it is corrupted, |
1926 the MenuEditor may not be able to read the specification." |
1926 the MenuEditor may not be able to read the specification." |
1927 |
1927 |
1928 |
|
1929 " |
1928 " |
1930 MenuEditor new openOnClass:NewLauncher andSelector:#fileMenu |
1929 MenuEditor new openOnClass:NewLauncher andSelector:#fileMenu |
1931 (Menu new fromLiteralArrayEncoding:(NewLauncher fileMenu)) startUp |
1930 (Menu new fromLiteralArrayEncoding:(NewLauncher fileMenu)) startUp |
1932 " |
1931 " |
1933 |
1932 |
1939 (MenuItem |
1938 (MenuItem |
1940 activeHelpKey: fileFileBrowser |
1939 activeHelpKey: fileFileBrowser |
1941 label: 'File Browser' |
1940 label: 'File Browser' |
1942 itemValue: openFileBrowser |
1941 itemValue: openFileBrowser |
1943 nameKey: fileBrowser |
1942 nameKey: fileBrowser |
1944 submenuChannel: menuFileHistory |
1943 translateLabel: true |
1945 labelImage: (ResourceRetriever ToolbarIconLibrary startFileBrowserIcon 'File Browser') |
1944 labelImage: (ResourceRetriever ToolbarIconLibrary startFileBrowserIcon 'File Browser') |
1946 ) |
1945 ) |
1947 (MenuItem |
1946 (MenuItem |
1948 label: '-' |
1947 label: '-' |
1949 ) |
1948 ) |
1951 activeHelpKey: fileSaveImage |
1950 activeHelpKey: fileSaveImage |
1952 enabled: enableDangerousMenuItemsInRemoteLauncher |
1951 enabled: enableDangerousMenuItemsInRemoteLauncher |
1953 label: 'Save Image' |
1952 label: 'Save Image' |
1954 itemValue: saveImage |
1953 itemValue: saveImage |
1955 nameKey: saveImage |
1954 nameKey: saveImage |
|
1955 translateLabel: true |
1956 labelImage: (ResourceRetriever ToolbarIconLibrary saveImageIcon 'Save Image') |
1956 labelImage: (ResourceRetriever ToolbarIconLibrary saveImageIcon 'Save Image') |
1957 ) |
1957 ) |
1958 (MenuItem |
1958 (MenuItem |
1959 activeHelpKey: fileSaveImageAs |
1959 activeHelpKey: fileSaveImageAs |
1960 enabled: enableDangerousMenuItemsInRemoteLauncher |
1960 enabled: enableDangerousMenuItemsInRemoteLauncher |
1961 label: 'Save Image As...' |
1961 label: 'Save Image As...' |
1962 itemValue: saveImageAs |
1962 itemValue: saveImageAs |
1963 nameKey: saveImageAs |
1963 nameKey: saveImageAs |
|
1964 translateLabel: true |
1964 ) |
1965 ) |
1965 (MenuItem |
1966 (MenuItem |
1966 activeHelpKey: fileSaveSessionChangesAs |
1967 activeHelpKey: fileSaveSessionChangesAs |
1967 enabled: enableDangerousMenuItemsInRemoteLauncher |
1968 enabled: enableDangerousMenuItemsInRemoteLauncher |
1968 label: 'Save Session Changes As...' |
1969 label: 'Save Session Changes As...' |
1976 activeHelpKey: fileExit |
1977 activeHelpKey: fileExit |
1977 enabled: enableDangerousMenuItemsInRemoteLauncher |
1978 enabled: enableDangerousMenuItemsInRemoteLauncher |
1978 label: 'Exit Smalltalk...' |
1979 label: 'Exit Smalltalk...' |
1979 itemValue: exit |
1980 itemValue: exit |
1980 nameKey: exitSmalltalk |
1981 nameKey: exitSmalltalk |
|
1982 translateLabel: true |
1981 isVisible: isMainLauncherHolder |
1983 isVisible: isMainLauncherHolder |
1982 ) |
1984 ) |
1983 (MenuItem |
1985 (MenuItem |
1984 activeHelpKey: fileClose |
1986 activeHelpKey: fileClose |
1985 label: 'Close...' |
1987 label: 'Close...' |
1986 itemValue: closeRequest |
1988 itemValue: closeRequest |
|
1989 translateLabel: true |
1987 isVisible: isNotMainLauncherHolder |
1990 isVisible: isNotMainLauncherHolder |
1988 ) |
1991 ) |
1989 ) |
1992 ) |
1990 nil |
1993 nil |
1991 nil |
1994 nil |
2144 by the MenuEditor of ST/X." |
2147 by the MenuEditor of ST/X." |
2145 |
2148 |
2146 "Do not manually edit this!! If it is corrupted, |
2149 "Do not manually edit this!! If it is corrupted, |
2147 the MenuEditor may not be able to read the specification." |
2150 the MenuEditor may not be able to read the specification." |
2148 |
2151 |
2149 |
|
2150 " |
2152 " |
2151 MenuEditor new openOnClass:NewLauncher andSelector:#menu |
2153 MenuEditor new openOnClass:NewLauncher andSelector:#menu |
2152 (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp |
2154 (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp |
2153 " |
2155 " |
2154 |
2156 |
2155 <resource: #menu> |
2157 <resource: #menu> |
2156 |
2158 |
2157 ^ |
2159 ^ |
2158 #(Menu |
2160 #(Menu |
2159 ( |
2161 ( |
2160 (MenuItem |
2162 (MenuItem |
2161 label: 'About' |
2163 label: 'About' |
2162 nameKey: about |
2164 nameKey: about |
|
2165 translateLabel: true |
2163 submenuChannel: aboutMenu |
2166 submenuChannel: aboutMenu |
2164 labelImage: (ResourceRetriever nil menuIcon) |
2167 labelImage: (ResourceRetriever nil menuIcon) |
2165 keepLinkedMenu: true |
|
2166 ) |
2168 ) |
2167 (MenuItem |
2169 (MenuItem |
2168 label: 'File' |
2170 label: 'File' |
2169 nameKey: file |
2171 nameKey: file |
|
2172 translateLabel: true |
2170 submenuChannel: fileMenu |
2173 submenuChannel: fileMenu |
2171 keepLinkedMenu: true |
|
2172 ) |
2174 ) |
2173 (MenuItem |
2175 (MenuItem |
2174 label: 'Classes' |
2176 label: 'Classes' |
2175 nameKey: classes |
2177 nameKey: classes |
|
2178 translateLabel: true |
2176 submenuChannel: classesMenu |
2179 submenuChannel: classesMenu |
2177 keepLinkedMenu: true |
|
2178 ) |
2180 ) |
2179 (MenuItem |
2181 (MenuItem |
2180 label: 'Tools' |
2182 label: 'Tools' |
2181 nameKey: tools |
2183 nameKey: tools |
|
2184 translateLabel: true |
2182 submenuChannel: toolsMenu |
2185 submenuChannel: toolsMenu |
2183 keepLinkedMenu: true |
|
2184 ) |
2186 ) |
2185 (MenuItem |
2187 (MenuItem |
2186 label: 'System' |
2188 label: 'System' |
2187 nameKey: system |
2189 nameKey: system |
|
2190 translateLabel: true |
2188 submenuChannel: systemMenu |
2191 submenuChannel: systemMenu |
2189 keepLinkedMenu: true |
|
2190 ) |
2192 ) |
2191 (MenuItem |
2193 (MenuItem |
2192 label: 'Settings' |
2194 label: 'Settings' |
2193 nameKey: settings |
2195 nameKey: settings |
|
2196 translateLabel: true |
2194 isVisible: useOldSettingsApplication |
2197 isVisible: useOldSettingsApplication |
2195 submenuChannel: settingsMenu |
2198 submenuChannel: settingsMenu |
2196 keepLinkedMenu: true |
|
2197 ) |
2199 ) |
2198 (MenuItem |
2200 (MenuItem |
2199 label: 'Windows' |
2201 label: 'Windows' |
2200 nameKey: windows |
2202 nameKey: windows |
|
2203 translateLabel: true |
2201 submenuChannel: windowsMenu |
2204 submenuChannel: windowsMenu |
2202 keepLinkedMenu: true |
|
2203 ) |
2205 ) |
2204 (MenuItem |
2206 (MenuItem |
2205 label: 'Demos' |
2207 label: 'Demos' |
2206 nameKey: demos |
2208 nameKey: demos |
|
2209 translateLabel: true |
2207 submenuChannel: demosMenu |
2210 submenuChannel: demosMenu |
2208 keepLinkedMenu: true |
|
2209 ) |
2211 ) |
2210 (MenuItem |
2212 (MenuItem |
2211 label: 'MENU_Help' |
2213 label: 'MENU_Help' |
2212 nameKey: help |
2214 nameKey: help |
|
2215 translateLabel: true |
2213 startGroup: conditionalRight |
2216 startGroup: conditionalRight |
2214 submenuChannel: helpMenu |
2217 submenuChannel: helpMenu |
2215 keepLinkedMenu: true |
|
2216 ) |
2218 ) |
2217 ) |
2219 ) |
2218 nil |
2220 nil |
2219 nil |
2221 nil |
2220 ) |
2222 ) |
4784 |
4786 |
4785 "Created: / 02-02-2012 / 12:06:10 / cg" |
4787 "Created: / 02-02-2012 / 12:06:10 / cg" |
4786 ! |
4788 ! |
4787 |
4789 |
4788 timestampTranscriptMessages |
4790 timestampTranscriptMessages |
4789 ^ Transcript class timestampMessages |
4791 ^ Transcript class perform: #timestampMessages ifNotUnderstood:[false] |
|
4792 |
|
4793 "Modified: / 25-07-2013 / 12:16:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4790 ! |
4794 ! |
4791 |
4795 |
4792 timestampTranscriptMessages:aBoolean |
4796 timestampTranscriptMessages:aBoolean |
4793 ^ Transcript class timestampMessages:aBoolean |
4797 ^ Transcript class timestampMessages:aBoolean |
4794 ! ! |
4798 ! ! |
5074 ! ! |
5078 ! ! |
5075 |
5079 |
5076 !NewLauncher class methodsFor:'documentation'! |
5080 !NewLauncher class methodsFor:'documentation'! |
5077 |
5081 |
5078 version |
5082 version |
5079 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.485 2014-01-24 13:24:53 cg Exp $' |
5083 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.486 2014-02-05 18:57:45 cg Exp $' |
5080 ! |
5084 ! |
5081 |
5085 |
5082 version_CVS |
5086 version_CVS |
5083 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.485 2014-01-24 13:24:53 cg Exp $' |
5087 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.486 2014-02-05 18:57:45 cg Exp $' |
5084 ! |
5088 ! |
5085 |
5089 |
5086 version_SVN |
5090 version_SVN |
5087 ^ '$Id: NewLauncher.st,v 1.485 2014-01-24 13:24:53 cg Exp $' |
5091 ^ '$Id: NewLauncher.st,v 1.486 2014-02-05 18:57:45 cg Exp $' |
5088 ! ! |
5092 ! ! |
5089 |
5093 |