NewLauncher.st
changeset 9329 0d3599eccc38
parent 9254 f3c13516fdaa
child 9363 fec2b2d67865
equal deleted inserted replaced
9328:1adad8b2c2b7 9329:0d3599eccc38
  1250             )
  1250             )
  1251           )
  1251           )
  1252          (MenuItem
  1252          (MenuItem
  1253             label: 'Special Browsers'
  1253             label: 'Special Browsers'
  1254             translateLabel: true
  1254             translateLabel: true
       
  1255             submenuChannel: classesSpecialBrowserMenu
       
  1256           )
       
  1257          (MenuItem
       
  1258             activeHelpKey: classesClassTreeBrowser
       
  1259             label: 'Class Tree'
       
  1260             itemValue: openApplication:
       
  1261             translateLabel: true
       
  1262             argument: 'ClassTreeGraphView'
       
  1263             showBusyCursorWhilePerforming: true
       
  1264           )
       
  1265          (MenuItem
       
  1266             label: '-'
       
  1267           )
       
  1268          (MenuItem
       
  1269             activeHelpKey: classesImplementors
       
  1270             label: 'Implementors Of...'
       
  1271             itemValue: browseImplementors
       
  1272             translateLabel: true
       
  1273             showBusyCursorWhilePerforming: true
       
  1274           )
       
  1275          (MenuItem
       
  1276             activeHelpKey: classesSenders
       
  1277             label: 'Senders Of...'
       
  1278             itemValue: browseSenders
       
  1279             translateLabel: true
       
  1280             showBusyCursorWhilePerforming: true
       
  1281           )
       
  1282          (MenuItem
       
  1283             label: '-'
       
  1284           )
       
  1285          (MenuItem
       
  1286             activeHelpKey: classesSpecial
       
  1287             label: 'Special'
       
  1288             nameKey: special
       
  1289             translateLabel: true
  1255             submenu: 
  1290             submenu: 
  1256            (Menu
  1291            (Menu
       
  1292               (
       
  1293                (MenuItem
       
  1294                   activeHelpKey: classesSpecialReferencesToUnboundGlobals
       
  1295                   label: 'References to Unbound Globals'
       
  1296                   itemValue: browseUnboundGlobals
       
  1297                   translateLabel: true
       
  1298                 )
       
  1299                (MenuItem
       
  1300                   activeHelpKey: classesSpecialReferencesToUndeclared
       
  1301                   label: 'References to Undeclared'
       
  1302                   itemValue: browseUndeclared
       
  1303                   translateLabel: true
       
  1304                 )
       
  1305                (MenuItem
       
  1306                   activeHelpKey: classesSpecialReferencesToUndeclared
       
  1307                   label: 'Clear Undeclared Variables'
       
  1308                   itemValue: clearUndeclaredVariables
       
  1309                   translateLabel: true
       
  1310                 )
       
  1311                )
       
  1312               nil
       
  1313               nil
       
  1314             )
       
  1315           )
       
  1316          )
       
  1317         nil
       
  1318         nil
       
  1319       )
       
  1320 !
       
  1321 
       
  1322 classesSpecialBrowserMenu
       
  1323     "This resource specification was automatically generated
       
  1324      by the MenuEditor of ST/X."
       
  1325 
       
  1326     "Do not manually edit this!! If it is corrupted,
       
  1327      the MenuEditor may not be able to read the specification."
       
  1328 
       
  1329     "
       
  1330      MenuEditor new openOnClass:NewLauncher andSelector:#classesMenu
       
  1331      (Menu new fromLiteralArrayEncoding:(NewLauncher classesMenu)) startUp
       
  1332     "
       
  1333 
       
  1334     <resource: #menu>
       
  1335 
       
  1336     ^ 
       
  1337      #(Menu
  1257               (
  1338               (
  1258                (MenuItem
  1339                (MenuItem
  1259                   activeHelpKey: classesClassBrowser
  1340                   activeHelpKey: classesClassBrowser
  1260                   label: 'Class Browser On...'
  1341                   label: 'Class Browser On...'
  1261                   itemValue: startClassBrowser
  1342                   itemValue: startClassBrowser
  1309                 )
  1390                 )
  1310                )
  1391                )
  1311               nil
  1392               nil
  1312               nil
  1393               nil
  1313             )
  1394             )
  1314           )
       
  1315          (MenuItem
       
  1316             activeHelpKey: classesClassTreeBrowser
       
  1317             label: 'Class Tree'
       
  1318             itemValue: openApplication:
       
  1319             translateLabel: true
       
  1320             argument: 'ClassTreeGraphView'
       
  1321             showBusyCursorWhilePerforming: true
       
  1322           )
       
  1323          (MenuItem
       
  1324             label: '-'
       
  1325           )
       
  1326          (MenuItem
       
  1327             activeHelpKey: classesImplementors
       
  1328             label: 'Implementors Of...'
       
  1329             itemValue: browseImplementors
       
  1330             translateLabel: true
       
  1331             showBusyCursorWhilePerforming: true
       
  1332           )
       
  1333          (MenuItem
       
  1334             activeHelpKey: classesSenders
       
  1335             label: 'Senders Of...'
       
  1336             itemValue: browseSenders
       
  1337             translateLabel: true
       
  1338             showBusyCursorWhilePerforming: true
       
  1339           )
       
  1340          (MenuItem
       
  1341             label: '-'
       
  1342           )
       
  1343          (MenuItem
       
  1344             activeHelpKey: classesSpecial
       
  1345             label: 'Special'
       
  1346             nameKey: special
       
  1347             translateLabel: true
       
  1348             submenu: 
       
  1349            (Menu
       
  1350               (
       
  1351                (MenuItem
       
  1352                   activeHelpKey: classesSpecialReferencesToUnboundGlobals
       
  1353                   label: 'References to Unbound Globals'
       
  1354                   itemValue: browseUnboundGlobals
       
  1355                   translateLabel: true
       
  1356                 )
       
  1357                (MenuItem
       
  1358                   activeHelpKey: classesSpecialReferencesToUndeclared
       
  1359                   label: 'References to Undeclared'
       
  1360                   itemValue: browseUndeclared
       
  1361                   translateLabel: true
       
  1362                 )
       
  1363                (MenuItem
       
  1364                   activeHelpKey: classesSpecialReferencesToUndeclared
       
  1365                   label: 'Clear Undeclared Variables'
       
  1366                   itemValue: clearUndeclaredVariables
       
  1367                   translateLabel: true
       
  1368                 )
       
  1369                )
       
  1370               nil
       
  1371               nil
       
  1372             )
       
  1373           )
       
  1374          )
       
  1375         nil
       
  1376         nil
       
  1377       )
       
  1378 !
  1395 !
  1379 
  1396 
  1380 demosMenu
  1397 demosMenu
  1381     "This resource specification was automatically generated
  1398     "This resource specification was automatically generated
  1382      by the MenuEditor of ST/X."
  1399      by the MenuEditor of ST/X."
  2981          (MenuItem
  2998          (MenuItem
  2982             activeHelpKey: windowsMigrateAllWindows
  2999             activeHelpKey: windowsMigrateAllWindows
  2983             label: 'Migrate All To...'
  3000             label: 'Migrate All To...'
  2984             itemValue: migrateAllWindows
  3001             itemValue: migrateAllWindows
  2985             translateLabel: true
  3002             translateLabel: true
       
  3003             isVisible: windowMigrationFunctionsAreShown
  2986           )
  3004           )
  2987          (MenuItem
  3005          (MenuItem
  2988             label: '-'
  3006             label: '-'
  2989           )
  3007           )
  2990          (MenuItem
  3008          (MenuItem
  2991             activeHelpKey: windowsViewTree
  3009             activeHelpKey: windowsViewTree
  2992             label: 'Window Tree'
  3010             label: 'Window Tree'
  2993             itemValue: startWindowTreeView
  3011             itemValue: startWindowTreeView
  2994             translateLabel: true
  3012             translateLabel: true
       
  3013             isVisible: windowTreeViewAvailable
  2995           )
  3014           )
  2996          (MenuItem
  3015          (MenuItem
  2997             activeHelpKey: windowsViewTreeAllViews
  3016             activeHelpKey: windowsViewTreeAllViews
  2998             label: 'Window Tree (All Windows)'
  3017             label: 'Window Tree (All Windows)'
  2999             itemValue: openApplication:
  3018             itemValue: openApplication:
  3000             translateLabel: true
  3019             translateLabel: true
  3001             argument: 'WindowTreeView'
  3020             argument: 'WindowTreeView'
       
  3021             isVisible: windowTreeViewAvailable
  3002           )
  3022           )
  3003          (MenuItem
  3023          (MenuItem
  3004             activeHelpKey: windowsViewTreeAllScreens
  3024             activeHelpKey: windowsViewTreeAllScreens
  3005             label: 'Window Tree (All on All Screens)'
  3025             label: 'Window Tree (All on All Screens)'
  3006             itemValue: startWindowTreeViewForAll
  3026             itemValue: startWindowTreeViewForAll
  3007             translateLabel: true
  3027             translateLabel: true
       
  3028             isVisible: windowTreeViewAvailable
  3008           )
  3029           )
  3009          (MenuItem
  3030          (MenuItem
  3010             label: 'FlyBy Window Information'
  3031             label: 'FlyBy Window Information'
  3011             itemValue: showFlyByWindowInformation
  3032             itemValue: showFlyByWindowInformation
  3012             translateLabel: true
  3033             translateLabel: true
  3031          (MenuItem
  3052          (MenuItem
  3032             activeHelpKey: windowsSelectAndMigrate
  3053             activeHelpKey: windowsSelectAndMigrate
  3033             label: 'Select and Migrate To...'
  3054             label: 'Select and Migrate To...'
  3034             itemValue: viewMigrate
  3055             itemValue: viewMigrate
  3035             translateLabel: true
  3056             translateLabel: true
       
  3057             isVisible: windowMigrationFunctionsAreShown
  3036           )
  3058           )
  3037          (MenuItem
  3059          (MenuItem
  3038             label: '-'
  3060             label: '-'
  3039           )
  3061           )
  3040          (MenuItem
  3062          (MenuItem
  3054          (MenuItem
  3076          (MenuItem
  3055             activeHelpKey: windowsFindAndMigrate
  3077             activeHelpKey: windowsFindAndMigrate
  3056             label: 'Find by Name and Migrate To...'
  3078             label: 'Find by Name and Migrate To...'
  3057             itemValue: findAndMigrateWindow
  3079             itemValue: findAndMigrateWindow
  3058             translateLabel: true
  3080             translateLabel: true
       
  3081             isVisible: windowMigrationFunctionsAreShown
  3059           )
  3082           )
  3060          (MenuItem
  3083          (MenuItem
  3061             activeHelpKey: windowsFindAndMigrateBack
  3084             activeHelpKey: windowsFindAndMigrateBack
  3062             label: 'Find by Name and Migrate Back...'
  3085             label: 'Find by Name and Migrate Back...'
  3063             itemValue: findAndMigrateWindowBack
  3086             itemValue: findAndMigrateWindowBack
  3064             translateLabel: true
  3087             translateLabel: true
       
  3088             isVisible: windowMigrationFunctionsAreShown
  3065           )
  3089           )
  3066          (MenuItem
  3090          (MenuItem
  3067             label: '-'
  3091             label: '-'
  3068           )
  3092           )
  3069          (MenuItem
  3093          (MenuItem
  4273 !
  4297 !
  4274 
  4298 
  4275 useOldSettingsApplication
  4299 useOldSettingsApplication
  4276 
  4300 
  4277     ^ self useNewSettingsApplication not
  4301     ^ self useNewSettingsApplication not
       
  4302 !
       
  4303 
       
  4304 windowMigrationFunctionsAreShown
       
  4305     ^ XWorkstation notNil
  4278 ! !
  4306 ! !
  4279 
  4307 
  4280 !NewLauncher methodsFor:'startup & release'!
  4308 !NewLauncher methodsFor:'startup & release'!
  4281 
  4309 
  4282 allButOpenInterface:anInterface
  4310 allButOpenInterface:anInterface
  4736 ! !
  4764 ! !
  4737 
  4765 
  4738 !NewLauncher class methodsFor:'documentation'!
  4766 !NewLauncher class methodsFor:'documentation'!
  4739 
  4767 
  4740 version
  4768 version
  4741     ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $'
  4769     ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.401 2009-12-22 11:03:57 cg Exp $'
  4742 !
  4770 !
  4743 
  4771 
  4744 version_CVS
  4772 version_CVS
  4745     ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $'
  4773     ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.401 2009-12-22 11:03:57 cg Exp $'
  4746 ! !
  4774 ! !