#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Fri, 30 Aug 2019 11:25:00 +0200
changeset 19100 5354b3495d48
parent 19099 ad018bf47cfe
child 19101 d2161c8d9307
#FEATURE by exept class: NewLauncher added: #startOSProcessMonitor comment/format in: #startProcessMonitor class: NewLauncher class changed: #systemMenu
NewLauncher.st
--- a/NewLauncher.st	Fri Aug 30 11:08:52 2019 +0200
+++ b/NewLauncher.st	Fri Aug 30 11:25:00 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997-1998 by eXept Software AG
 	      All Rights Reserved
@@ -2547,6 +2549,11 @@
             itemValue: startProcessMonitor
           )
          (MenuItem
+            activeHelpKey: osProcesses
+            label: 'OS Processes'
+            itemValue: startOSProcessMonitor
+          )
+         (MenuItem
             activeHelpKey: systemSemaphores
             label: 'Semaphores'
             itemValue: openApplication:
@@ -5023,14 +5030,20 @@
 in this release'.
 !
 
+startOSProcessMonitor
+    "open an OSProcessMonitor view (showing OS processes started by me)"
+
+    self openApplication:OSProcessMonitor.
+!
+
 startProcessMonitor
-    "open an ProcessMonitor view"
+    "open an ProcessMonitor view (showing smalltalk threads)"
 
     self openApplication:(
-	(UserPreferences current useProcessMonitorV2
-	and:[ProcessMonitorV2 notNil])
-	    ifTrue:['ProcessMonitorV2']
-	    ifFalse:['ProcessMonitor']).
+        (UserPreferences current useProcessMonitorV2
+        and:[ProcessMonitorV2 notNil])
+            ifTrue:['ProcessMonitorV2']
+            ifFalse:['ProcessMonitor']).
 !
 
 startSQLScratchpad