TerminalSession.st
changeset 3285 dded4dc30bac
parent 3276 180b977dcbe5
child 3302 aad2814c1e87
--- a/TerminalSession.st	Mon May 19 16:41:29 2014 +0200
+++ b/TerminalSession.st	Mon May 26 14:32:19 2014 +0200
@@ -619,20 +619,22 @@
             ] ifFalse:[
                 line := outStream nextLine,Character cr.
                 n := line size.
-                self collectOutputAndCheckForPrompt:line count:n.
                 pluggableProcessInputAction notNil ifTrue:[
                     pluggableProcessInputAction value:line value:n.
+                ].
+                collectedOutput notNil ifTrue:[
+                    self collectOutputAndCheckForPrompt:line count:n.
                 ]
             ]
         ] ifFalse:[
             n := outStream nextAvailableBytes:bufferSize into:buffer startingAt:1.
             n > 0 ifTrue:[
+                pluggableProcessInputAction notNil ifTrue:[
+                    pluggableProcessInputAction value:buffer value:n.
+                ].
                 collectedOutput notNil ifTrue:[
                     self collectOutputAndCheckForPrompt:buffer count:n
                 ].
-                pluggableProcessInputAction notNil ifTrue:[
-                    pluggableProcessInputAction value:buffer value:n.
-                ]
             ].
         ].
     ].
@@ -722,11 +724,11 @@
 !TerminalSession class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.19 2014-05-09 23:50:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.20 2014-05-26 12:32:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.19 2014-05-09 23:50:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.20 2014-05-26 12:32:19 cg Exp $'
 ! !