ExternalStreamMonitor.st
changeset 17622 35c4fcfb1fc9
parent 17616 7fae9311f5f3
child 17707 25241bc3394b
--- a/ExternalStreamMonitor.st	Wed Aug 16 20:52:39 2017 +0200
+++ b/ExternalStreamMonitor.st	Sun Aug 20 13:15:50 2017 +0200
@@ -357,7 +357,10 @@
                     handleString := (handleString ? '') leftPaddedTo:7
                 ] ifFalse:[
                     aStream isOpen ifTrue:[
-                        handleString := aStream fileDescriptor printString
+                        [
+                        ] on:StreamError do:[
+                            handleString := aStream fileDescriptor printString
+                        ].    
                     ].
                     handleString := (handleString ? '') leftPaddedTo:3
                 ].
@@ -415,6 +418,8 @@
         listView flush
     ].
     self installDelayedUpdate.
+
+    "Modified: / 18-08-2017 / 14:39:37 / cg"
 ! !
 
 !ExternalStreamMonitor methodsFor:'menu'!
@@ -456,8 +461,8 @@
                         ).
 
     updateProcess isNil ifTrue:[
-        labels := (resources array:#('Update' '-')) , labels.
-        selectors := #(updateView nil) , selectors
+        labels := labels,(resources array:#('-' 'Update' )).
+        selectors := selectors , #(nil updateView). 
     ].
 
     m := PopUpMenu labels:labels
@@ -472,7 +477,7 @@
     ].
     ^ m
 
-    "Modified: / 07-04-2017 / 14:25:40 / cg"
+    "Modified: / 18-08-2017 / 14:34:12 / cg"
 ! !
 
 !ExternalStreamMonitor methodsFor:'queries'!