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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.115 by root, Sat Apr 15 19:35:20 2006 UTC vs.
Revision 1.116 by root, Sat Apr 15 21:16:50 2006 UTC

 sub harmonize {
    my ($vals) = @_;
    my $rem = 0;
-   for ($vals) {
+   for (@$vals) {
       my $i = int $_ + $rem;
       $rem += $_ - $i;
       $_ = $i;
    }
 }
    my $self = $class->SUPER::new (
       fg       => [1, 1, 1],
       fontsize => $::FONTSIZE,
       text     => "",
       align    => -1,
+      valign   => -1,
       padding  => 2,
       layout   => new CFClient::Layout,
       %arg
    );
    my $x =
       $self->{align} < 0 ? $self->{padding}
     : $self->{align} > 0 ? $self->{w} - $tex->{w} - $self->{padding}
     :                      ($self->{w} - $tex->{w}) * 0.5;
-   $tex->draw_quad (int $x, int +($self->{h} - $tex->{h}) * 0.5);
+   my $y =
+      $self->{valign} < 0 ? $self->{padding}
+    : $self->{valign} > 0 ? $self->{h} - $tex->{h} - $self->{padding}
+    :                       ($self->{h} - $tex->{h}) * 0.5;
+   $tex->draw_quad (int $x, int $y);
    glDisable GL_TEXTURE_2D;
    glDisable GL_BLEND;
 }
       bg        => [0, 0, 0, 0.2],
       active_bg => [1, 1, 1, 0.5],
       active_fg => [0, 0, 0],
       can_hover => 1,
       can_focus => 1,
+      valign    => 0,
       @_
    )
 }
 sub _set_text {

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