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 |
12 |
|
## + modifications in Term::ReadKey behaviour |
13 |
|
## |
14 |
## Revision 1.7 2002/06/15 07:56:40 cvsjoko |
## Revision 1.7 2002/06/15 07:56:40 cvsjoko |
15 |
## + bugfixes for win32 (additional keys) |
## + bugfixes for win32 (additional keys) |
16 |
## |
## |
261 |
$heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1); |
$heap->{state}{InputBuffer} = substr($heap->{state}{InputBuffer}, 0, -1); |
262 |
} |
} |
263 |
|
|
264 |
|
# unknown key? |
265 |
|
elsif (ord($key) == 0) { |
266 |
|
} |
267 |
|
|
268 |
# normal key? |
# normal key? |
269 |
#elsif ($key =~ m/[a-zA-Z? ]/) { |
#elsif ($key =~ m/[a-zA-Z? ]/) { |
270 |
else { |
else { |
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 |
|
|