--- 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