#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 14 Feb 2019 15:48:59 +0100
changeset 18591 5ebe254f5515
parent 18590 b6158d4015f0
child 18592 9f291f8e0ba7
#BUGFIX by cg class: ExternalStreamMonitor changed: #updateStatus:
ExternalStreamMonitor.st
--- a/ExternalStreamMonitor.st	Thu Feb 14 15:48:37 2019 +0100
+++ b/ExternalStreamMonitor.st	Thu Feb 14 15:48:59 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by Claus Gittinger
 	      All Rights Reserved
@@ -306,7 +304,10 @@
         oldList := listView list.
         oldSelection := listView selection.
         oldSelection notNil ifTrue:[
-            oldSelection := oldSelection collect:[:lineNr | streams at:(lineNr - self numberOfHeadlines) ].
+            oldSelection := oldSelection 
+                                collect:[:lineNr | 
+                                    streams at:(lineNr - self numberOfHeadlines) ifAbsent:nil 
+                                ].
             newSelection := OrderedCollection new.
         ].
 
@@ -462,7 +463,7 @@
     self installDelayedUpdate.
 
     "Modified: / 11-10-2017 / 13:56:14 / cg"
-    "Modified: / 29-10-2018 / 15:33:31 / Claus Gittinger"
+    "Modified: / 14-02-2019 / 15:44:09 / Claus Gittinger"
 ! !
 
 !ExternalStreamMonitor methodsFor:'menu'!