… | |
… | |
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, |