--- a/TerminalView.st	Thu Jun 11 23:17:53 1998 +0200
+++ b/TerminalView.st	Thu Jun 11 23:27:43 1998 +0200
@@ -518,18 +518,22 @@
                             self showCursor.
                         ] do:[
                             outStream readWait.
-                            buffer := String new:1024.
-                            n := outStream nextAvailableBytes:1024 into:buffer startingAt:1.
-
-                            n > 0 ifTrue:[
-                                self pushEvent:#processInput:n: with:buffer with:n.
+                            (self sensor hasKeyPressEventFor:self) ifTrue:[
+                                Processor yield
                             ] ifFalse:[
-                                n == 0 ifTrue:[
-                                    outStream atEnd ifTrue:[
-                                        outStream close. outStream := nil.
-                                        inStream close.  inStream := nil.
-                                        
-                                        Processor activeProcess terminate.
+                                buffer := String new:1024.
+                                n := outStream nextAvailableBytes:1024 into:buffer startingAt:1.
+
+                                n > 0 ifTrue:[
+                                    self pushEvent:#processInput:n: with:buffer with:n.
+                                ] ifFalse:[
+                                    n == 0 ifTrue:[
+                                        outStream atEnd ifTrue:[
+                                            outStream close. outStream := nil.
+                                            inStream close.  inStream := nil.
+                                            
+                                            Processor activeProcess terminate.
+                                        ]
                                     ]
                                 ]
                             ]
@@ -546,7 +550,7 @@
      VT100TerminalView openShell
     "
 
-    "Modified: / 11.6.1998 / 18:10:33 / cg"
+    "Modified: / 11.6.1998 / 23:26:25 / cg"
 !
 
 startShell
@@ -712,5 +716,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.24 1998-06-11 21:17:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.25 1998-06-11 21:27:43 cg Exp $'
 ! !