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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.141 by root, Thu Apr 20 07:12:57 2006 UTC vs.
Revision 1.142 by elmex, Thu Apr 20 16:29:40 2006 UTC

 sub new {
    my $class = shift;
    my $self = $class->SUPER::new (
       type  => 'food',
+      scale => 1,
       @_
    );
    $self->{aspect} = $tex{$self->{type}}[0]{w} / $tex{$self->{type}}[0]{h};
 sub size_request {
    my ($self) = @_;
    my $tex = $tex{$self->{type}}[0];
-   @$tex{qw(w h)}
+   my ($w, $h) = map { $_ * $self->{scale} } @$tex{qw(w h)};
+   ($self->{vertical}) ? ($h, $w) : ($w, $h)
 }
 sub set_max {
    my ($self, $max) = @_;
    my ($self) = @_;
    my $tex = $tex{$self->{type}};
    my ($w, $h) = ($self->{w}, $self->{h});
+   if ($self->{vertical}) {
+      glRotate 90, 0, 0, 1;
+      glTranslate 0, -$self->{w}, 0;
+      ($w, $h) = ($h, $w);
+   }
    my $ycut = $self->{val} / ($self->{max_val} || 1);
    $ycut = 1 if $self->{val} > $self->{max_val};
    my $t1 = $tex->[0];
    my $self = $class->SUPER::new (
       @_,
    );
    $self->add ($self->{value} = new CFClient::UI::Label valign => 1, align => 0, template => "999");
-   $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1);
+   $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1, scale => ($self->{scale} || 0.5));
    $self->add ($self->{max}   = new CFClient::UI::Label valign => 1, align => 0, template => "999");
    $self
 }

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