--- deliantra/Deliantra-Client/DC/UI.pm 2006/05/31 13:44:26 1.262 +++ deliantra/Deliantra-Client/DC/UI.pm 2006/05/31 14:04:52 1.263 @@ -3388,6 +3388,7 @@ $self->{cmdbox}->add (my $hb = new CFClient::UI::HBox); my $i = $idx; + $hb->add (new CFClient::UI::Label text => $_); $hb->add (new CFClient::UI::Button text => "delete", tooltip => "Deletes the action from the record", @@ -3396,7 +3397,6 @@ $cmds->[$i] = undef; }); - $hb->add (new CFClient::UI::Label text => $_); $idx++ } @@ -3437,7 +3437,13 @@ can_events => 1, tooltip => $spell->{message}, expand => 1); - $self->{spellbox}->add (2, $self->{tbl_idx}++, new CFClient::UI::Button + + $self->{spellbox}->add (2, $self->{tbl_idx}, new CFClient::UI::Label + text => (sprintf "lvl: %2d sp: %2d dmg: %2d", + $spell->{level}, ($spell->{mana} || $spell->{grace}), $spell->{damage}), + expand => 1); + + $self->{spellbox}->add (3, $self->{tbl_idx}++, new CFClient::UI::Button text => "bind to key", on_activate => sub { $::BIND_EDITOR->do_quick_binding (["cast $spell->{name}"]) }); }