extensions.st
changeset 18144 e89e3cf7acb3
parent 18139 4f3c66d0dd31
child 18160 3739b4556f30
--- a/extensions.st	Wed May 23 05:53:50 2018 +0200
+++ b/extensions.st	Wed May 23 09:03:36 2018 +0200
@@ -1912,6 +1912,29 @@
     ^ #notificationClassBrowserIcon
 ! !
 
+!OSProcess methodsFor:'inspecting'!
+
+inspectorExtraMenuOperations
+    "extra operation-menu entries to be shown in an inspector.
+     Answers a collection of pairs contining aString and action aBlock.
+     aString is the label of the menu item.
+     aBlock is evaluated when the menu item is selected.
+     To be redefined in objects which think that it makes sense to offer
+     often used operations in an inspector.
+     See SerialPort as an example."
+
+    |superItems|
+
+    superItems := super inspectorExtraMenuOperations.
+    ^ superItems , 
+            {
+                { 'Terminate Group' . [self terminateGroup ] } .
+                { 'Terminate'       . [self terminate] } .
+            }.
+
+    "Created: / 23-05-2018 / 07:53:35 / Claus Gittinger"
+! !
+
 !Object methodsFor:'inspecting'!
 
 inspector2TabClass