… | |
… | |
3827 | if ($ev->{button} == 1) { |
3827 | if ($ev->{button} == 1) { |
3828 | $::CONN->user_send ("cast $spell->{name}"); |
3828 | $::CONN->user_send ("cast $spell->{name}"); |
3829 | } elsif ($ev->{button} == 2) { |
3829 | } elsif ($ev->{button} == 2) { |
3830 | $::CONN->user_send ("invoke $spell->{name}"); |
3830 | $::CONN->user_send ("invoke $spell->{name}"); |
3831 | } elsif ($ev->{button} == 3) { |
3831 | } elsif ($ev->{button} == 3) { |
|
|
3832 | my $shortname = CFPlus::shorten $spell->{name}, 14; |
3832 | (new CFPlus::UI::Menu |
3833 | (new CFPlus::UI::Menu |
3833 | items => [ |
3834 | items => [ |
3834 | ["bind <i>cast $spell->{name}</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["cast $spell->{name}"]) }], |
3835 | ["bind <i>cast $shortname</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["cast $spell->{name}"]) }], |
3835 | ["bind <i>invoke $spell->{name}</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["invoke $spell->{name}"]) }], |
3836 | ["bind <i>invoke $shortname</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["invoke $spell->{name}"]) }], |
3836 | ], |
3837 | ], |
3837 | )->popup ($ev); |
3838 | )->popup ($ev); |
3838 | } else { |
3839 | } else { |
3839 | return 0; |
3840 | return 0; |
3840 | } |
3841 | } |