checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 11 Jun 1998 19:11:45 +0200
changeset 940 16c955286510
parent 939 54698a16b65c
child 941 137464350e42
checkin from browser
TerminalView.st
--- 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 $'
 ! !