/[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.8 by cvsjoko, Sat Jun 15 08:08:51 2002 UTC revision 1.9 by cvsjoko, Sat Jun 15 08:15:50 2002 UTC
# Line 5  Line 5 
5  ## $Id$  ## $Id$
6  ##  ##
7  ## $Log$  ## $Log$
8    ## Revision 1.9  2002/06/15 08:15:50  cvsjoko
9    ## + bugfixes in ReadKey-behavious for Linux
10    ##
11  ## Revision 1.8  2002/06/15 08:08:51  cvsjoko  ## Revision 1.8  2002/06/15 08:08:51  cvsjoko
12  ## + modifications in Term::ReadKey behaviour  ## + modifications in Term::ReadKey behaviour
13  ##  ##
# Line 126  sub start { Line 129  sub start {
129    $heap->{state}{RequestPending} = 0;    $heap->{state}{RequestPending} = 0;
130        
131    # initially call worker-state    # initially call worker-state
132    ReadMode 3;    ReadMode 4;
133    $kernel->post($session, "pollForKey");    $kernel->post($session, "pollForKey");
134    
135    return;    return;
# Line 222  sub pollForKey { Line 225  sub pollForKey {
225            
226      # CTRL+C pressed?      # CTRL+C pressed?
227      if (ord($key) == $self->{conf}{KeyCTRLC}) {      if (ord($key) == $self->{conf}{KeyCTRLC}) {
228        ReadMode 0;        ReadMode 1;
229        print "\n";        print "\n";
230        exit;        exit;
231      }      }
# Line 274  sub pollForKey { Line 277  sub pollForKey {
277    
278    }    }
279    
280    #$kernel->post($session, "pollForKey");    $kernel->post($session, "pollForKey");
281    #$kernel->run_one_timeslice();    #$kernel->run_one_timeslice();
282    #$kernel->post($session, "pollForKey");    #$kernel->post($session, "pollForKey");
283    #$kernel->yield($session, "pollForKey");    #$kernel->yield($session, "pollForKey");
284    #$kernel->delay("pollForKey", 0.1);    #$kernel->delay("pollForKey", 0.1);
285    $kernel->delay("pollForKey", 0.001);    #$kernel->delay("pollForKey", 0.001);
286    
287  }  }
288    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed