… | |
… | |
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) = @_; |