TerminalView.st
changeset 1339 17bdf3424085
parent 1329 e0dff849cf82
child 1341 3467ffd6eb35
--- a/TerminalView.st	Sun Apr 25 00:48:18 1999 +0200
+++ b/TerminalView.st	Mon Apr 26 16:42:53 1999 +0200
@@ -935,8 +935,8 @@
                 self waitUntilVisible.
 
                 Stream streamErrorSignal handle:[:ex |
-                    Transcript showCR:ex errorString.
-                    Transcript showCR:OperatingSystem lastErrorString.
+                    Transcript show:'Terminal [error]: '; showCR:ex errorString.
+                    Transcript show:'Terminal [info]: '; showCR:OperatingSystem lastErrorString.
                 ] do:[
                     [true] whileTrue:[
                         Object abortSignal handle:[:ex |
@@ -1289,5 +1289,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.69 1999-04-23 12:49:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.70 1999-04-26 14:42:53 cg Exp $'
 ! !