… | |
… | |
288 | if ($ev->{button} == 1) { |
288 | if ($ev->{button} == 1) { |
289 | $::CONN->user_send ("ready_skill $name"); |
289 | $::CONN->user_send ("ready_skill $name"); |
290 | } elsif ($ev->{button} == 2) { |
290 | } elsif ($ev->{button} == 2) { |
291 | $::CONN->user_send ("use_skill $name"); |
291 | $::CONN->user_send ("use_skill $name"); |
292 | } elsif ($ev->{button} == 3) { |
292 | } elsif ($ev->{button} == 3) { |
|
|
293 | my $shortname = CFPlus::shorten $name, 14; |
293 | (new CFPlus::UI::Menu |
294 | (new CFPlus::UI::Menu |
294 | items => [ |
295 | items => [ |
295 | ["bind <i>ready_skill $name</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["ready_skill $name"]) }], |
296 | ["bind <i>ready_skill $shortname</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["ready_skill $name"]) }], |
296 | ["bind <i>use_skill $name</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["use_skill $name"]) }], |
297 | ["bind <i>use_skill $shortname</i> to a key" => sub { $::BIND_EDITOR->do_quick_binding (["use_skill $name"]) }], |
297 | ], |
298 | ], |
298 | )->popup ($ev); |
299 | )->popup ($ev); |
299 | } else { |
300 | } else { |
300 | return 0; |
301 | return 0; |
301 | } |
302 | } |