ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.262 by elmex, Wed May 31 13:44:26 2006 UTC vs.
Revision 1.263 by elmex, Wed May 31 14:04:52 2006 UTC

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
3445sub rebuild_spell_list { 3451sub rebuild_spell_list {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines