Parent Directory | Revision Log | Patch
revision 150 by dpavlin, Sun Aug 5 15:16:10 2007 UTC | revision 152 by dpavlin, Sun Aug 5 15:24:22 2007 UTC | |
---|---|---|
# | Line 242 sub key_pressed { | Line 242 sub key_pressed { |
242 | my ( $key, $state ) = %$h; | my ( $key, $state ) = %$h; |
243 | if ( $state ) { | if ( $state ) { |
244 | $pending_key = $key; | $pending_key = $key; |
245 | $key_down->{$key}++; | |
246 | } else { | } else { |
247 | undef $pending_key; | undef $pending_key; |
248 | $key_down->{$key} = 0; | |
249 | } | } |
250 | } | } |
251 | return $pending_key; | return $pending_key; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |