… | |
… | |
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::; |