--- a/TerminalView.st Mon Jun 07 18:19:08 1999 +0200
+++ b/TerminalView.st Tue Jun 08 16:11:07 1999 +0200
@@ -1612,7 +1612,7 @@
(nLines := s size) == 0 ifTrue:[^ self].
(nLines == 1 and:[(s at:1) size == 0]) ifTrue:[^ self].
s keysAndValuesDo:[:idx :line |
- inStream nextPutAll:line.
+ line notNil ifTrue:[inStream nextPutAll:line].
idx ~~ nLines ifTrue:[
inStream nextPut:(Character return).
]
@@ -1624,5 +1624,5 @@
!TerminalView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.84 1999-05-08 18:13:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.85 1999-06-08 14:11:07 stefan Exp $'
! !