| … | |
… | |
| 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 | } |
