| … | |
… | |
| 363 | } |
363 | } |
| 364 | |
364 | |
| 365 | package CFClient::Binder; |
365 | package CFClient::Binder; |
| 366 | |
366 | |
| 367 | my @ALLOWED_MODIFIER_KEYS = ( |
367 | my @ALLOWED_MODIFIER_KEYS = ( |
| 368 | (CFClient::SDLK_LSHIFT), |
368 | CFClient::SDLK_LSHIFT, |
| 369 | (CFClient::SDLK_LCTRL ), |
369 | CFClient::SDLK_LCTRL , |
| 370 | (CFClient::SDLK_LALT ), |
370 | CFClient::SDLK_LALT , |
| 371 | (CFClient::SDLK_LMETA ), |
371 | CFClient::SDLK_LMETA , |
| 372 | |
372 | |
| 373 | (CFClient::SDLK_RSHIFT), |
373 | CFClient::SDLK_RSHIFT, |
| 374 | (CFClient::SDLK_RCTRL ), |
374 | CFClient::SDLK_RCTRL , |
| 375 | (CFClient::SDLK_RALT ), |
375 | CFClient::SDLK_RALT , |
| 376 | (CFClient::SDLK_RMETA ), |
376 | CFClient::SDLK_RMETA , |
| 377 | ); |
377 | ); |
| 378 | |
378 | |
| 379 | my %ALLOWED_MODIFIERS = ( |
379 | my %ALLOWED_MODIFIERS = ( |
| 380 | (CFClient::KMOD_LSHIFT) => "LSHIFT", |
380 | CFClient::KMOD_LSHIFT => "LSHIFT", |
| 381 | (CFClient::KMOD_LCTRL ) => "LCTRL", |
381 | CFClient::KMOD_LCTRL => "LCTRL", |
| 382 | (CFClient::KMOD_LALT ) => "LALT", |
382 | CFClient::KMOD_LALT => "LALT", |
| 383 | (CFClient::KMOD_LMETA ) => "LMETA", |
383 | CFClient::KMOD_LMETA => "LMETA", |
| 384 | |
384 | |
| 385 | (CFClient::KMOD_RSHIFT) => "RSHIFT", |
385 | CFClient::KMOD_RSHIFT => "RSHIFT", |
| 386 | (CFClient::KMOD_RCTRL ) => "RCTRL", |
386 | CFClient::KMOD_RCTRL => "RCTRL", |
| 387 | (CFClient::KMOD_RALT ) => "RALT", |
387 | CFClient::KMOD_RALT => "RALT", |
| 388 | (CFClient::KMOD_RMETA ) => "RMETA", |
388 | CFClient::KMOD_RMETA => "RMETA", |
| 389 | ); |
389 | ); |
| 390 | |
390 | |
| 391 | my %DIRECT_BIND_CHARS = map { $_ => 1 } qw/0 1 2 3 4 5 6 7 8 9/; |
391 | my %DIRECT_BIND_CHARS = map { $_ => 1 } qw/0 1 2 3 4 5 6 7 8 9/; |
| 392 | my @DIRECT_BIND_KEYS = ( |
392 | my @DIRECT_BIND_KEYS = ( |
| 393 | CFClient::SDLK_F1, |
393 | CFClient::SDLK_F1, |
