--- a/ExternalStreamMonitor.st	Sun May 20 10:56:08 2018 +0200
+++ b/ExternalStreamMonitor.st	Mon May 21 09:44:22 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by Claus Gittinger
 	      All Rights Reserved
@@ -247,7 +249,8 @@
 
     shown ifTrue:[
         newList := ExternalStream allSubInstances.
-
+        newList := newList reject:#isExecutor.
+        
         self filterSocketsOnlyHolder value ifTrue:[
             newList := newList select:[:eachStream | eachStream isSocket].
         ].
@@ -346,6 +349,9 @@
                             detail := detail,':',aStream port printString
                         ].
                     ] ifFalse:[
+                        aStream isPipeStream ifTrue:[
+                            detail := aStream commandString.
+                        ].    
                     ].
                 ].
                 
@@ -457,11 +463,13 @@
                          'Close'
                          '-'
                          'Inspect'
+                         'References'
                         ).
     selectors := #(
                          menuCloseSelected
                          nil
                          inspectStream
+                         menuReferences
                         ).
 
     updateProcess isNil ifTrue:[
@@ -525,9 +533,21 @@
 menuCloseSelected
     "close the selected stream(s)"
 
-    self selectedStreamsDo:[:eachStream | eachStream close]
+    self selectedStreamsDo:[:eachStream | eachStream close].
+    self updateList.
 
     "Created: / 07-04-2017 / 14:26:04 / cg"
+!
+
+menuReferences
+    "show references to the selected stream"
+
+    self selectedStreamsDo:[:eachStream |
+        (ReferenceFinder findAllPathsTo:eachStream) inspect
+        "/ eachStream allReferences inspect
+    ]
+
+    "Modified (format): / 07-04-2017 / 14:27:45 / cg"
 ! !
 
 !ExternalStreamMonitor class methodsFor:'documentation'!