TerminalView.st
changeset 2678 f475a905c54c
parent 2597 c7e8bfde1852
child 2778 796ab4177728
--- a/TerminalView.st	Thu Mar 11 17:42:31 2004 +0100
+++ b/TerminalView.st	Fri Mar 19 19:58:02 2004 +0100
@@ -1158,7 +1158,7 @@
                 self waitUntilVisible.
 
                 StreamError handle:[:ex |
-                    Transcript show:'Terminal(PTY-reader) [error]: '; showCR:ex errorString.
+                    Transcript show:'Terminal(PTY-reader) [error]: '; showCR:ex description.
                 ] do:[
                     [true] whileTrue:[
                         Object abortSignal handle:[:ex |
@@ -1205,7 +1205,7 @@
                         ]
                     ]
                 ]
-            ] valueOnUnwindDo:[
+            ] ifCurtailed:[
                 readerProcess := nil    
             ]
         ] fork. "/ forkAt:9.
@@ -1857,7 +1857,7 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.122 2003-12-31 18:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.123 2004-03-19 18:58:02 stefan Exp $'
 ! !
 
 TerminalView initialize!