[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.12 by root, Fri Apr 7 20:55:32 2006 UTC vs.
Revision 1.14 by root, Fri Apr 7 21:07:29 2006 UTC

 use strict;
 use SDL::OpenGL;
 use SDL::OpenGL::Constants;
 our $FOCUS;  # the widget with current focus
-our %ACTIVE_WIDGETS;
+our @ACTIVE_WIDGETS;
 # class methods for events
 sub feed_sdl_key_down_event    { $FOCUS->key_down ($_[0])    if $FOCUS }
 sub feed_sdl_key_up_event      { $FOCUS->key_up ($_[0])      if $FOCUS }
 sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS }
    bless { @_ }, $class
 }
 sub activate {
-   $ACTIVE_WIDGETS{$_[0]} = $_[0];
+   push @ACTIVE_WIDGETS, $_[0];
 }
 sub deactivate {
-   delete $ACTIVE_WIDGETS{$_[0]};
+   @ACTIVE_WIDGETS =
+      sort { $a->{z} <=> $b->{z} }
+         grep { $_ != $_[0] }
+            @ACTIVE_WIDGETS;
+}
+sub size_request {
+   die "size_request is abtract";
 }
 sub focus_in {
    my ($widget) = @_;
    $FOCUS = $widget;
    my ($widget, $sdlev) = @_;
 }
 sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }
 sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }
+sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} }
 sub draw {
    my ($self) = @_;
    glPushMatrix;
    my $self = $class->SUPER::new (x => $x, y => $y, z => $z);
    $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text;
    $self
+}
+sub size_request {
+   my ($self) = @_;
+   (
+      $self->{texture}{width},
+      $self->{texture}{height},
+   )
 }
 sub _draw {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines