… | |
… | |
3386 | |
3386 | |
3387 | for (@$cmds) { |
3387 | for (@$cmds) { |
3388 | $self->{cmdbox}->add (my $hb = new CFClient::UI::HBox); |
3388 | $self->{cmdbox}->add (my $hb = new CFClient::UI::HBox); |
3389 | |
3389 | |
3390 | my $i = $idx; |
3390 | my $i = $idx; |
|
|
3391 | $hb->add (new CFClient::UI::Label text => $_); |
3391 | $hb->add (new CFClient::UI::Button |
3392 | $hb->add (new CFClient::UI::Button |
3392 | text => "delete", |
3393 | text => "delete", |
3393 | tooltip => "Deletes the action from the record", |
3394 | tooltip => "Deletes the action from the record", |
3394 | on_activate => sub { |
3395 | on_activate => sub { |
3395 | $self->{cmdbox}->remove ($hb); |
3396 | $self->{cmdbox}->remove ($hb); |
3396 | $cmds->[$i] = undef; |
3397 | $cmds->[$i] = undef; |
3397 | }); |
3398 | }); |
3398 | |
3399 | |
3399 | $hb->add (new CFClient::UI::Label text => $_); |
|
|
3400 | |
3400 | |
3401 | $idx++ |
3401 | $idx++ |
3402 | } |
3402 | } |
3403 | } |
3403 | } |
3404 | |
3404 | |
… | |
… | |
3435 | text => $spell->{name}, |
3435 | text => $spell->{name}, |
3436 | can_hover => 1, |
3436 | can_hover => 1, |
3437 | can_events => 1, |
3437 | can_events => 1, |
3438 | tooltip => $spell->{message}, |
3438 | tooltip => $spell->{message}, |
3439 | expand => 1); |
3439 | expand => 1); |
|
|
3440 | |
|
|
3441 | $self->{spellbox}->add (2, $self->{tbl_idx}, new CFClient::UI::Label |
|
|
3442 | text => (sprintf "lvl: %2d sp: %2d dmg: %2d", |
|
|
3443 | $spell->{level}, ($spell->{mana} || $spell->{grace}), $spell->{damage}), |
|
|
3444 | expand => 1); |
|
|
3445 | |
3440 | $self->{spellbox}->add (2, $self->{tbl_idx}++, new CFClient::UI::Button |
3446 | $self->{spellbox}->add (3, $self->{tbl_idx}++, new CFClient::UI::Button |
3441 | text => "bind to key", |
3447 | text => "bind to key", |
3442 | on_activate => sub { $::BIND_EDITOR->do_quick_binding (["cast $spell->{name}"]) }); |
3448 | on_activate => sub { $::BIND_EDITOR->do_quick_binding (["cast $spell->{name}"]) }); |
3443 | } |
3449 | } |
3444 | |
3450 | |
3445 | sub rebuild_spell_list { |
3451 | sub rebuild_spell_list { |