| … | |
… | |
| 6 | use List::Util qw(min max); |
6 | use List::Util qw(min max); |
| 7 | |
7 | |
| 8 | use CFPlus; |
8 | use CFPlus; |
| 9 | use CFPlus::OpenGL; |
9 | use CFPlus::OpenGL; |
| 10 | use CFPlus::UI; |
10 | use CFPlus::UI; |
|
|
11 | use CFPlus::Macro; |
| 11 | |
12 | |
| 12 | our @ISA = CFPlus::UI::Base::; |
13 | our @ISA = CFPlus::UI::Base::; |
| 13 | |
14 | |
| 14 | my $magicmap_tex = |
15 | my $magicmap_tex = |
| 15 | new_from_file CFPlus::Texture CFPlus::find_rcfile "magicmap.png", |
16 | new_from_file CFPlus::Texture CFPlus::find_rcfile "magicmap.png", |
| … | |
… | |
| 675 | |
676 | |
| 676 | if ($ev->{button} == 3) { |
677 | if ($ev->{button} == 3) { |
| 677 | (new CFPlus::UI::Menu |
678 | (new CFPlus::UI::Menu |
| 678 | items => [ |
679 | items => [ |
| 679 | ["bind <i>" . (CFPlus::asxml $self->{select}) . "</i> to a key" |
680 | ["bind <i>" . (CFPlus::asxml $self->{select}) . "</i> to a key" |
| 680 | => sub { $::BIND_EDITOR->do_quick_binding ([$self->{select}], sub { $entry->grab_focus }) }] |
681 | => sub { CFPlus::Macro::quick_macro [$self->{select}], sub { $entry->grab_focus } }] |
| 681 | ], |
682 | ], |
| 682 | )->popup ($ev); |
683 | )->popup ($ev); |
| 683 | return 1; |
684 | return 1; |
| 684 | } |
685 | } |
| 685 | 0 |
686 | 0 |
