--- a/TerminalView.st Wed Jun 10 20:48:15 1998 +0200
+++ b/TerminalView.st Thu Jun 11 19:11:45 1998 +0200
@@ -75,17 +75,18 @@
scr origin:0.0@0.0 corner:1.0@1.0.
vt52 := scr scrolledView.
+ top extent:(scr preferredExtent).
+ top label:'shell'.
+ top openAndWait.
+
vt52 startShell.
- top extent:(scr preferredExtent).
- top label:'shell'.
- top open
"
VT100TerminalView openShell
"
- "Modified: / 10.6.1998 / 17:15:31 / cg"
+ "Modified: / 11.6.1998 / 18:11:19 / cg"
! !
!TerminalView methodsFor:'accessing'!
@@ -471,7 +472,10 @@
|buffer n reading|
reading := true.
- Stream errorSignal catch:[
+ Stream streamErrorSignal handle:[:ex |
+ Transcript showCR:ex errorString.
+ Transcript showCR:OperatingSystem lastErrorString.
+ ] do:[
[true] whileTrue:[
Object abortSignal handle:[:ex |
self showCursor.
@@ -505,7 +509,7 @@
VT100TerminalView openShell
"
- "Modified: / 10.6.1998 / 17:46:23 / cg"
+ "Modified: / 11.6.1998 / 18:10:33 / cg"
!
startShell
@@ -617,7 +621,7 @@
! !
-!TerminalView ignoredMethodsFor:'misc'!
+!TerminalView methodsFor:'misc'!
removeTrailingBlankLines
^ self
@@ -667,5 +671,5 @@
!TerminalView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.20 1998-06-10 18:48:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.21 1998-06-11 17:11:45 cg Exp $'
! !