--- 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 $'
! !