--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/07/02 16:25:19	1.50
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/07/02 21:07:26	1.51
@@ -440,7 +440,7 @@
    $spell->{message} =~ s/\n+$//;
    $spell->{message} ||= "Server did not provide a description for this spell.";
 
-   $::SETUP_SPELLS->add_spell ($spell);
+   $::SPELL_PAGE->add_spell ($spell);
 
    $self->{map_widget}->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message});
    $self->{map_widget}->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message});
@@ -448,7 +448,8 @@
 
 sub spell_delete {
    my ($self, $spell) = @_;
-   $::SETUP_SPELLS->remove_spell ($spell);
+
+   $::SPELL_PAGE->remove_spell ($spell);
 }
 
 sub addme_success {
@@ -538,7 +539,7 @@
          } else {
             $::FLOORBOX->add (1, $row, new CFClient::UI::Button
                text        => "More...",
-               on_activate => sub { $::INV_WINDOW->toggle_visibility; 0 },
+               on_activate => sub { ::toggle_player_page ($::INVENTORY_PAGE); 0 },
             );
             last;
          }