--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/09 21:39:08	1.39
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/09 21:41:11	1.40
@@ -39,8 +39,9 @@
 
 sub size_allocate {
    my ($self, $w, $h) = @_;
-   $self->w ($w);
-   $self->h ($h);
+
+   $self->{w} = $w;
+   $self->{h} = $h;
 }
 
 sub focus_in {
@@ -375,7 +376,7 @@
 
    $self->{txts} = [
       map { new_from_file Crossfire::Client::Texture Crossfire::Client::find_rcfile $_ }
-         qw/d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png/
+         qw(d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png)
    ];
    $self
 }
@@ -396,8 +397,8 @@
 sub size_allocate {
    my ($self, $w, $h) = @_;
 
-   $self->w ($w);
-   $self->h ($h);
+   $self->SUPER::size_allocate ($w, $h);
+
    $h -= $self->{txts}->[1]->{height};
    $h -= $self->{txts}->[4]->{height};
    $w -= $self->{txts}->[2]->{width};