| … | |
… | |
| 391 | # (Bindings are stored in $::CFG->{bindings}->{$mod}->{$sym}) |
391 | # (Bindings are stored in $::CFG->{bindings}->{$mod}->{$sym}) |
| 392 | sub open_binding_dialog { |
392 | sub open_binding_dialog { |
| 393 | my ($cmd) = @_; |
393 | my ($cmd) = @_; |
| 394 | |
394 | |
| 395 | my $w = new CFClient::UI::FancyFrame |
395 | my $w = new CFClient::UI::FancyFrame |
| 396 | title => "Bind Action"; |
396 | title => "Bind Action", |
|
|
397 | x => "center", |
|
|
398 | y => "center"; |
| 397 | |
399 | |
| 398 | $w->add (my $vb = new CFClient::UI::VBox); |
400 | $w->add (my $vb = new CFClient::UI::VBox); |
| 399 | $vb->add (new CFClient::UI::Label |
401 | $vb->add (new CFClient::UI::Label |
| 400 | text => "Press a modifier (CTRL, ALT and/or SHIFT) and a key." |
402 | text => "Press a modifier (CTRL, ALT and/or SHIFT) and a key." |
| 401 | ."You can only bind 0-9 and F1-F15 without modifiers." |
403 | ."You can only bind 0-9 and F1-F15 without modifiers." |
| … | |
… | |
| 431 | |
433 | |
| 432 | $w->destroy |
434 | $w->destroy |
| 433 | }); |
435 | }); |
| 434 | |
436 | |
| 435 | $entry->focus_in; |
437 | $entry->focus_in; |
| 436 | $w->center; |
|
|
| 437 | $w->show; |
438 | $w->show; |
| 438 | } |
439 | } |
| 439 | |
440 | |
| 440 | sub keycombo_to_name { |
441 | sub keycombo_to_name { |
| 441 | my ($mod, $sym) = @_; |
442 | my ($mod, $sym) = @_; |
