--- a/InspectorView.st	Wed Aug 31 12:50:59 2016 +0200
+++ b/InspectorView.st	Wed Aug 31 18:47:59 2016 +0200
@@ -1853,7 +1853,7 @@
 
     <resource: #programMenu>
 
-    |items m sel|
+    |items m sel operationItems|
 
     sel := self selection.
 
@@ -1965,6 +1965,11 @@
     items := items , (self sortOrderItems).
     items := items , (self numberBaseItems).
 
+    operationItems := (self optionalOperationMenuItemsFor:sel).
+    operationItems notEmptyOrNil ifTrue:[
+        items := items, #(('-')) , operationItems
+    ].
+    
     m := PopUpMenu
           itemList:items
           resources:resources.
@@ -2096,6 +2101,17 @@
     "Modified: / 03-08-2011 / 15:03:36 / cg"
 !
 
+optionalOperationMenuItemsFor:anObject
+    "chance to add instance-specific operation menu items.
+     See SerialPort as an example"
+     
+    ^ anObject inspectorExtraMenuOperations
+
+    "
+     SerialPort new inspect    
+    "
+!
+
 optionalStreamSelectionItems
     |sel|