NewLauncher.st
changeset 18070 cfeeb45af116
parent 18018 c91ebbc9947c
child 18185 59085d1d4e36
equal deleted inserted replaced
18069:d4a380bc5227 18070:cfeeb45af116
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1997-1998 by eXept Software AG
     4  COPYRIGHT (c) 1997-1998 by eXept Software AG
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  2874           )
  2876           )
  2875          (MenuItem
  2877          (MenuItem
  2876             label: '-'
  2878             label: '-'
  2877           )
  2879           )
  2878          (MenuItem
  2880          (MenuItem
  2879             activeHelpKey: toolsMisc
       
  2880             label: 'Misc'
  2881             label: 'Misc'
  2881             nameKey: misc
  2882             nameKey: misc
       
  2883             submenuChannel: toolsMiscMenu
       
  2884           )
       
  2885          )
       
  2886         nil
       
  2887         nil
       
  2888       )
       
  2889 !
       
  2890 
       
  2891 toolsMiscMenu
       
  2892     "This resource specification was automatically generated
       
  2893      by the MenuEditor of ST/X."
       
  2894 
       
  2895     "Do not manually edit this!! If it is corrupted,
       
  2896      the MenuEditor may not be able to read the specification."
       
  2897 
       
  2898 
       
  2899     "
       
  2900      MenuEditor new openOnClass:NewLauncher andSelector:#toolsMiscMenu
       
  2901      (Menu new fromLiteralArrayEncoding:(NewLauncher toolsMiscMenu)) startUp
       
  2902     "
       
  2903 
       
  2904     <resource: #menu>
       
  2905 
       
  2906     ^ 
       
  2907      #(Menu
       
  2908         (
       
  2909          (MenuItem
       
  2910             activeHelpKey: toolsMiscProjects
       
  2911             label: 'Projects'
       
  2912             isVisible: false
  2882             submenu: 
  2913             submenu: 
  2883            (Menu
  2914            (Menu
  2884               (
  2915               (
  2885                (MenuItem
  2916                (MenuItem
  2886                   activeHelpKey: toolsMiscProjects
  2917                   activeHelpKey: toolsMiscProjectsNewProject
  2887                   label: 'Projects'
  2918                   label: 'New Project'
  2888                   isVisible: false
  2919                   itemValue: newProject
  2889                   submenu: 
       
  2890                  (Menu
       
  2891                     (
       
  2892                      (MenuItem
       
  2893                         activeHelpKey: toolsMiscProjectsNewProject
       
  2894                         label: 'New Project'
       
  2895                         itemValue: newProject
       
  2896                       )
       
  2897                      (MenuItem
       
  2898                         label: '-'
       
  2899                       )
       
  2900                      (MenuItem
       
  2901                         activeHelpKey: toolsMiscProjectsSelectProject
       
  2902                         label: 'Select Project...'
       
  2903                         itemValue: selectProject
       
  2904                       )
       
  2905                      )
       
  2906                     nil
       
  2907                     nil
       
  2908                   )
       
  2909                 )
       
  2910                (MenuItem
       
  2911                   label: '-'
       
  2912                   isVisible: false
       
  2913                 )
       
  2914                (MenuItem
       
  2915                   activeHelpKey: toolsMiscNewLauncher
       
  2916                   label: 'Reopen Launcher'
       
  2917                   itemValue: startNewLauncher
       
  2918                 )
       
  2919                (MenuItem
       
  2920                   activeHelpKey: demosRemoteLauncher
       
  2921                   enabled: canOpenRemoteLauncher
       
  2922                   label: 'Remote Launcher...'
       
  2923                   itemValue: startRemoteLauncher
       
  2924                 )
       
  2925                (MenuItem
       
  2926                   activeHelpKey: demosPDALauncher
       
  2927                   label: 'PDA Launcher...'
       
  2928                   itemValue: startPDALauncher
       
  2929                   isVisible: hasPDALauncher
       
  2930                 )
  2920                 )
  2931                (MenuItem
  2921                (MenuItem
  2932                   label: '-'
  2922                   label: '-'
  2933                 )
  2923                 )
  2934                (MenuItem
  2924                (MenuItem
  2935                   activeHelpKey: toolsMiscNewChangesBrowser
  2925                   activeHelpKey: toolsMiscProjectsSelectProject
  2936                   label: 'New Changes Browser'
  2926                   label: 'Select Project...'
  2937                   itemValue: startNewChangesBrowser
  2927                   itemValue: selectProject
  2938                 )
       
  2939                (MenuItem
       
  2940                   activeHelpKey: toolsMiscOldChangesBrowser
       
  2941                   label: 'Old Changes Browser'
       
  2942                   itemValue: startOldChangesBrowser
       
  2943                 )
       
  2944                (MenuItem
       
  2945                   label: '-'
       
  2946                   isVisible: canDoTerminal
       
  2947                 )
       
  2948                (MenuItem
       
  2949                   activeHelpKey: toolsTerminal
       
  2950                   label: 'Terminal'
       
  2951                   itemValue: openTerminal
       
  2952                   isVisible: canDoTerminal
       
  2953                 )
       
  2954                (MenuItem
       
  2955                   label: 'Text Diff'
       
  2956                   itemValue: openTextDiffTool
       
  2957                 )
       
  2958                (MenuItem
       
  2959                   label: '-'
       
  2960                   isVisible: canDoTerminal
       
  2961                 )
       
  2962                (MenuItem
       
  2963                   label: 'Inspect Global Variables'
       
  2964                   itemValue: inspectGlobalVariables
       
  2965                 )
       
  2966                (MenuItem
       
  2967                   label: 'Inspect Workspace Variables'
       
  2968                   itemValue: inspectWorkspaceVariables
       
  2969                 )
       
  2970                (MenuItem
       
  2971                   label: 'Remove all Workspace Variables'
       
  2972                   itemValue: removeAllWorkspaceVariables
       
  2973                 )
  2928                 )
  2974                )
  2929                )
  2975               nil
  2930               nil
  2976               nil
  2931               nil
  2977             )
  2932             )
       
  2933           )
       
  2934          (MenuItem
       
  2935             label: '-'
       
  2936             isVisible: false
       
  2937           )
       
  2938          (MenuItem
       
  2939             activeHelpKey: toolsMiscNewLauncher
       
  2940             label: 'Reopen Launcher'
       
  2941             itemValue: startNewLauncher
       
  2942           )
       
  2943          (MenuItem
       
  2944             activeHelpKey: demosRemoteLauncher
       
  2945             enabled: canOpenRemoteLauncher
       
  2946             label: 'Remote Launcher...'
       
  2947             itemValue: startRemoteLauncher
       
  2948           )
       
  2949          (MenuItem
       
  2950             activeHelpKey: demosPDALauncher
       
  2951             label: 'PDA Launcher...'
       
  2952             itemValue: startPDALauncher
       
  2953             isVisible: hasPDALauncher
       
  2954           )
       
  2955          (MenuItem
       
  2956             label: '-'
       
  2957           )
       
  2958          (MenuItem
       
  2959             activeHelpKey: toolsMiscNewChangesBrowser
       
  2960             label: 'New Changes Browser'
       
  2961             itemValue: startNewChangesBrowser
       
  2962           )
       
  2963          (MenuItem
       
  2964             activeHelpKey: toolsMiscOldChangesBrowser
       
  2965             label: 'Old Changes Browser'
       
  2966             itemValue: startOldChangesBrowser
       
  2967           )
       
  2968          (MenuItem
       
  2969             label: '-'
       
  2970             isVisible: canDoTerminal
       
  2971           )
       
  2972          (MenuItem
       
  2973             activeHelpKey: toolsTerminal
       
  2974             label: 'Terminal'
       
  2975             itemValue: openTerminal
       
  2976             isVisible: canDoTerminal
       
  2977           )
       
  2978          (MenuItem
       
  2979             label: 'Text Diff'
       
  2980             itemValue: openTextDiffTool
       
  2981           )
       
  2982          (MenuItem
       
  2983             label: 'System'
       
  2984             submenu: 
       
  2985            (Menu
       
  2986               (
       
  2987                (MenuItem
       
  2988                   label: 'Suspend Firefox'
       
  2989                   itemValue: menuSuspendFirefox
       
  2990                 )
       
  2991                (MenuItem
       
  2992                   label: 'Resume Firefox'
       
  2993                   itemValue: menuResumeFirefox
       
  2994                 )
       
  2995                )
       
  2996               nil
       
  2997               nil
       
  2998             )
       
  2999           )
       
  3000          (MenuItem
       
  3001             label: '-'
       
  3002             isVisible: canDoTerminal
       
  3003           )
       
  3004          (MenuItem
       
  3005             label: 'Inspect Global Variables'
       
  3006             itemValue: inspectGlobalVariables
       
  3007           )
       
  3008          (MenuItem
       
  3009             label: 'Inspect Workspace Variables'
       
  3010             itemValue: inspectWorkspaceVariables
       
  3011           )
       
  3012          (MenuItem
       
  3013             label: 'Remove all Workspace Variables'
       
  3014             itemValue: removeAllWorkspaceVariables
  2978           )
  3015           )
  2979          )
  3016          )
  2980         nil
  3017         nil
  2981         nil
  3018         nil
  2982       )
  3019       )
  5026 
  5063 
  5027     "Created: / 20-06-2004 / 16:08:09 / masca"
  5064     "Created: / 20-06-2004 / 16:08:09 / masca"
  5028     "Modified: / 20-04-2005 / 18:59:28 / janfrog"
  5065     "Modified: / 20-04-2005 / 18:59:28 / janfrog"
  5029 ! !
  5066 ! !
  5030 
  5067 
       
  5068 !NewLauncher methodsFor:'user actions-tools'!
       
  5069 
       
  5070 menuResumeFirefox
       
  5071     OperatingSystem executeCommand:'killall -CONT firefox'.
       
  5072     OperatingSystem executeCommand:'killall -CONT plugin-container'.
       
  5073 !
       
  5074 
       
  5075 menuSuspendFirefox
       
  5076     OperatingSystem executeCommand:'killall -STOP firefox'.
       
  5077     OperatingSystem executeCommand:'killall -STOP plugin-container'.
       
  5078 ! !
       
  5079 
  5031 !NewLauncher methodsFor:'user actions-windows'!
  5080 !NewLauncher methodsFor:'user actions-windows'!
  5032 
  5081 
  5033 redrawAllWindows
  5082 redrawAllWindows
  5034     device redrawAllWindows.
  5083     device redrawAllWindows.
  5035 ! !
  5084 ! !