/[cvs]/joko/Scripts/psh/lib/POE/Component/Terminal.pm
ViewVC logotype

Diff of /joko/Scripts/psh/lib/POE/Component/Terminal.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by cvsjoko, Fri Jun 14 21:22:10 2002 UTC revision 1.2 by cvsjoko, Sat Jun 15 03:45:21 2002 UTC
# Line 4  Line 4 
4  ##  ##
5  ## $Id$  ## $Id$
6  ##  ##
7    ## $Log$
8    ## Revision 1.2  2002/06/15 03:45:21  cvsjoko
9    ## + cvs id & log
10    ## + clearing inputbuffer just after getting the "enter"-key
11    ##
12    ##
13  package POE::Component::Terminal;  package POE::Component::Terminal;
14    
15  use strict;  use strict;
# Line 188  sub pollForKey { Line 194  sub pollForKey {
194        # send command        # send command
195        my $buf = $heap->{state}{InputBuffer};        my $buf = $heap->{state}{InputBuffer};
196        if ($buf) {        if ($buf) {
197            $heap->{state}{InputBuffer} = '';
198          $heap->{state}{RequestPending} = 1;          $heap->{state}{RequestPending} = 1;
199          #print "ord: ", ord($buf), "\n";          #print "ord: ", ord($buf), "\n";
200          my $response_target = {          my $response_target = {
# Line 196  sub pollForKey { Line 203  sub pollForKey {
203          };          };
204          $kernel->post( $self->{RequestSession} => $self->{RequestState} => $buf, $response_target);          $kernel->post( $self->{RequestSession} => $self->{RequestState} => $buf, $response_target);
205        }        }
       $heap->{state}{InputBuffer} = '';  
206    
207        # prepare new loop for fresh prompt        # prepare new loop for fresh prompt
208        print "\n";        print "\n";
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed