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