[Haver-commits] r214 - trunk/haver-gtk/lib/Haver/Client/Gtk

[haver]

Author: bdonlan
Date: 2004-05-31 18:53:50 -0400 (Mon, 31 May 2004)
New Revision: 214

Modified:
   trunk/haver-gtk/lib/Haver/Client/Gtk/Pages.pm
Log:
Fixed crash on del_page(). Removed unnecesary $page->{string}


Modified: trunk/haver-gtk/lib/Haver/Client/Gtk/Pages.pm
===================================================================
--- trunk/haver-gtk/lib/Haver/Client/Gtk/Pages.pm       2004-05-31 22:43:04 UTC 
(rev 213)
+++ trunk/haver-gtk/lib/Haver/Client/Gtk/Pages.pm       2004-05-31 22:53:50 UTC 
(rev 214)
@@ -69,10 +69,10 @@
        my $name = $page->{name};
        
        $page->{parent} = $self;
-       $page->{string} = $name; # XXX: why is this here?
        $page->{pagenum} = scalar @{$self->{pagenum}};
        
        push @{$self->{pagenum}}, $page;
+       $self->{pagenam}{$name} = [] unless $self->{pagenam}{$name};
        push @{$self->{pagenam}{$name}}, $page;
 
        $self->{notebook}->append_page($page->{frame}, $page->{label});
@@ -111,11 +111,11 @@
        
        $self->{notebook}->remove_page($page->{pagenum});
 
-       $self->{pagenam}{$page->{string}} = 
-       grep { $_ != $page } $self->{pagenam}{$page->{string}};
+       @{$self->{pagenam}{$page->{name}}} = 
+       grep { $_ != $page } @{$self->{pagenam}{$page->{name}}};
 
-       if ([EMAIL PROTECTED]>{pagenam}{$page->{string}}}) {
-               delete $self->{pagenam}{$page->{string}};
+       if ([EMAIL PROTECTED]>{pagenam}{$page->{name}}}) {
+               delete $self->{pagenam}{$page->{name}};
        }
        
        splice @{$self->{pagenum}}, $page->{pagenum}, 1;