--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/15 19:35:20	1.115
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/15 21:16:50	1.116
@@ -76,7 +76,7 @@
 
    my $rem = 0;
 
-   for ($vals) {
+   for (@$vals) {
       my $i = int $_ + $rem;
       $rem += $_ - $i;
       $_ = $i;
@@ -952,6 +952,7 @@
       fontsize => $::FONTSIZE,
       text     => "",
       align    => -1,
+      valign   => -1,
       padding  => 2,
       layout   => new CFClient::Layout,
       %arg
@@ -1038,7 +1039,12 @@
     : $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;
@@ -1063,6 +1069,7 @@
       active_fg => [0, 0, 0],
       can_hover => 1,
       can_focus => 1,
+      valign    => 0,
       @_
    )
 }