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

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

-revision 1.4 by cvsjoko,
Sat Jun 15 04:28:10 2002 UTC
+revision 1.5 by cvsjoko,
Sat Jun 15 05:19:36 2002 UTC
 Line 5
  ## $Id$
  ##
  ## $Log$
+ ## Revision 1.5  2002/06/15 05:19:36  cvsjoko
+ ## + modified order/way of key-handling-logic
+ ##
  ## Revision 1.4  2002/06/15 04:28:10  cvsjoko
  ## immediate polling, no delay
  ##
-Line 194 
 sub pollForKey {
+Line 197 
 sub pollForKey {
    }
    my $key = ReadKey(-1);
-   if ($key) {
+   if ( defined $key ) {
-     # normal key?
-     if ($key =~ m/[a-zA-Z? ]/) {
-       $heap->{state}{InputBuffer} .= $key;
-       #print $key;
-     }
      # enter pressed?
      if ($key eq $self->{conf}{EnterKey}) {
        # send command
-Line 222 
 sub pollForKey {
+Line 219 
 sub pollForKey {
      }
      # backspace pressed?
-     if (ord($key) == 8) {
+     elsif (ord($key) == 8) {
        $heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1);
      }
+     # normal key?
+     #elsif ($key =~ m/[a-zA-Z? ]/) {
+     else {
+       $heap->{state}{InputBuffer} .= $key;
+       #print $key;
+     }
      # mark "KeyPressed" for next poll
      $heap->{state}{KeyPressed} = 1;

 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.5
 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.5
-Removed from v.1.4
+Added in v.1.5

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26