TerminalView.st
changeset 2538 2ee2ed3bad39
parent 2506 f12c7c321131
child 2539 6b2eb5c6d749
--- a/TerminalView.st	Thu Jul 10 14:41:19 2003 +0200
+++ b/TerminalView.st	Sat Jul 12 16:50:17 2003 +0200
@@ -1155,7 +1155,7 @@
             [
                 self waitUntilVisible.
 
-                Stream streamErrorSignal handle:[:ex |
+                StreamError handle:[:ex |
                     Transcript show:'Terminal(PTY-reader) [error]: '; showCR:ex errorString.
                 ] do:[
                     [true] whileTrue:[
@@ -1267,12 +1267,12 @@
 
     OperatingSystem isMSWINDOWSlike ifTrue:[
         "use two pipes to COMMAND.COM"
-        stxToCommandPipe := ExternalStream makePipe.
+        stxToCommandPipe := NonPositionableExternalStream makePipe.
         stxToCommandPipe isNil ifTrue:[
             ^ self warn:'Could not create pipe to COMMAND.COM.'.
         ].
 
-        commandToStxPipe := ExternalStream makePipe.
+        commandToStxPipe := NonPositionableExternalStream makePipe.
         commandToStxPipe isNil ifTrue:[
             ^ self warn:'Could not create pipe from COMMAND.COM.'.
         ].
@@ -1296,7 +1296,7 @@
         args  := (shellAndArgs at:2) ? ''.
     ] ifFalse:[
         "Use a pseudo-tty"
-        pty := ExternalStream makePTYPair.
+        pty := NonPositionableExternalStream makePTYPair.
         pty isNil ifTrue:[
             self warn:'Cannot open pty.'.
             ^ self.
@@ -1856,7 +1856,7 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.116 2003-05-10 11:53:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.117 2003-07-12 14:50:17 stefan Exp $'
 ! !
 
 TerminalView initialize!