#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Fri, 08 Nov 2019 20:41:43 +0100
changeset 6183 9370e384470b
parent 6182 ff49f5c3a2e9
child 6185 cdf3556a2bdd
#FEATURE by exept class: VT100TerminalView changed: #reportTerminalType
VT100TerminalView.st
--- a/VT100TerminalView.st	Sat Nov 02 01:26:10 2019 +0100
+++ b/VT100TerminalView.st	Fri Nov 08 20:41:43 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
               All Rights Reserved
@@ -633,14 +631,16 @@
         "/ report terminal type
         self endEntry.
         Debug ifTrue:[ Transcript showCR:'report terminal type'].
-        inStream nextPut:(Character esc).
-        inStream nextPut:$[. 
-        inStream nextPut:$?. 
-        inStream nextPut:$1. 
-        inStream nextPut:$;. 
-        inStream nextPut:$1. 
-        inStream nextPut:$0. 
-        inStream nextPut:$c. 
+        inStream notNil ifTrue:[
+            inStream nextPut:(Character esc).
+            inStream nextPut:$[. 
+            inStream nextPut:$?. 
+            inStream nextPut:$1. 
+            inStream nextPut:$;. 
+            inStream nextPut:$1. 
+            inStream nextPut:$0. 
+            inStream nextPut:$c.
+        ].
         ^ self
     ].