TerminalView.st
changeset 1316 dc06a0e3109c
parent 1315 5c79a9740759
child 1317 dace272367a7
--- a/TerminalView.st	Wed Apr 21 12:15:36 1999 +0200
+++ b/TerminalView.st	Wed Apr 21 12:21:44 1999 +0200
@@ -330,9 +330,10 @@
     (inStream notNil 
     and:[inStream isExternalStream
     and:[inStream isOpen]]) ifTrue:[
+        numberOfColumns := (innerWidth // font width).
         (OperatingSystem 
             setWindowSizeOnFileDescriptor:inStream fileDescriptor
-            width:(innerWidth // font width)
+            width:numberOfColumns
             height:(nFullLinesShown)) ifFalse:[
 "/            Transcript showCR:'VT100: cannot change windowSize'.
         ].
@@ -1230,5 +1231,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.61 1999-04-21 10:15:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.62 1999-04-21 10:21:44 cg Exp $'
 ! !