| … | |
… | |
| 3263 | $item->{count}++; |
3263 | $item->{count}++; |
| 3264 | } else { |
3264 | } else { |
| 3265 | $item->{count} = 1; |
3265 | $item->{count} = 1; |
| 3266 | $item->{text} = $item->{tooltip} = $text; |
3266 | $item->{text} = $item->{tooltip} = $text; |
| 3267 | } |
3267 | } |
| 3268 | $item->{id} = ++$self->{id}; |
3268 | $item->{id} += 0.2;#d# |
| 3269 | $item->{timeout} = $timeout; |
3269 | $item->{timeout} = $timeout; |
| 3270 | delete $item->{label}; |
3270 | delete $item->{label}; |
| 3271 | } else { |
3271 | } else { |
| 3272 | $self->{item}{$group} = { |
3272 | $self->{item}{$group} = { |
| 3273 | id => ++$self->{id}, |
3273 | id => ++$self->{id}, |
| … | |
… | |
| 3652 | |
3652 | |
| 3653 | delete $self->{spell}->{$spell->{name}}; |
3653 | delete $self->{spell}->{$spell->{name}}; |
| 3654 | $self->rebuild_spell_list; |
3654 | $self->rebuild_spell_list; |
| 3655 | } |
3655 | } |
| 3656 | |
3656 | |
|
|
3657 | sub clear_spells { |
|
|
3658 | my ($self) = @_; |
|
|
3659 | |
|
|
3660 | $self->{spell} = {}; |
|
|
3661 | $self->rebuild_spell_list; |
|
|
3662 | } |
|
|
3663 | |
| 3657 | ############################################################################# |
3664 | ############################################################################# |
| 3658 | |
3665 | |
| 3659 | package CFClient::UI::Root; |
3666 | package CFClient::UI::Root; |
| 3660 | |
3667 | |
| 3661 | our @ISA = CFClient::UI::Container::; |
3668 | our @ISA = CFClient::UI::Container::; |
