… | |
… | |
463 | |
463 | |
464 | $self->{entry} = new CFClient::UI::Entry |
464 | $self->{entry} = new CFClient::UI::Entry |
465 | on_changed => sub { |
465 | on_changed => sub { |
466 | $self->update_labels; |
466 | $self->update_labels; |
467 | }, |
467 | }, |
|
|
468 | on_button_down => sub { |
|
|
469 | my ($entry, $ev, $x, $y) = @_; |
|
|
470 | |
|
|
471 | if ($ev->{button} == 3) { |
|
|
472 | (new CFClient::UI::Menu |
|
|
473 | items => [ |
|
|
474 | ["bind to a key" => sub { $::BIND_EDITOR->do_quick_binding ([$self->{select}], sub { $entry->focus_in }) }] |
|
|
475 | ], |
|
|
476 | )->popup ($ev); |
|
|
477 | return 1; |
|
|
478 | } |
|
|
479 | 0 |
|
|
480 | }, |
468 | on_key_down => sub { |
481 | on_key_down => sub { |
469 | my ($entry, $ev) = @_; |
482 | my ($entry, $ev) = @_; |
470 | |
483 | |
471 | my $self = $entry->{parent}{parent}; |
484 | my $self = $entry->{parent}{parent}; |
472 | |
485 | |