/[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.7 by cvsjoko, Sat Jun 15 07:56:40 2002 UTC revision 1.8 by cvsjoko, Sat Jun 15 08:08:51 2002 UTC
# Line 5  Line 5 
5  ## $Id$  ## $Id$
6  ##  ##
7  ## $Log$  ## $Log$
8    ## Revision 1.8  2002/06/15 08:08:51  cvsjoko
9    ## + modifications in Term::ReadKey behaviour
10    ##
11  ## Revision 1.7  2002/06/15 07:56:40  cvsjoko  ## Revision 1.7  2002/06/15 07:56:40  cvsjoko
12  ## + bugfixes for win32 (additional keys)  ## + bugfixes for win32 (additional keys)
13  ##  ##
# Line 123  sub start { Line 126  sub start {
126    $heap->{state}{RequestPending} = 0;    $heap->{state}{RequestPending} = 0;
127        
128    # initially call worker-state    # initially call worker-state
129    ReadMode 4;    ReadMode 3;
130    $kernel->post($session, "pollForKey");    $kernel->post($session, "pollForKey");
131    
132    return;    return;
# Line 219  sub pollForKey { Line 222  sub pollForKey {
222            
223      # CTRL+C pressed?      # CTRL+C pressed?
224      if (ord($key) == $self->{conf}{KeyCTRLC}) {      if (ord($key) == $self->{conf}{KeyCTRLC}) {
225        ReadMode 1;        ReadMode 0;
226        print "\n";        print "\n";
227        exit;        exit;
228      }      }
# Line 255  sub pollForKey { Line 258  sub pollForKey {
258        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);
259      }      }
260    
261        # unknown key?
262        elsif (ord($key) == 0) {
263        }
264    
265      # normal key?      # normal key?
266      #elsif ($key =~ m/[a-zA-Z? ]/) {      #elsif ($key =~ m/[a-zA-Z? ]/) {
267      else {      else {
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed