… | … | ||
---|---|---|---|
1474 | } | 1474 | } |
1475 | 1475 | ||
1476 | sub size_request { | 1476 | sub size_request { |
1477 | my ($self) = @_; | 1477 | my ($self) = @_; |
1478 | 1478 | ||
1479 | (30, 100) | 1479 | my $tex = $tex{$self->{gauge}}[0]; |
1480 | |||
1481 | @$tex{qw(w h)} | ||
1480 | } | 1482 | } |
1481 | 1483 | ||
1482 | sub set_max { | 1484 | sub set_max { |
1483 | my ($self, $max) = @_; | 1485 | my ($self, $max) = @_; |
1486 | |||
1484 | $self->{max_val} = $max; | 1487 | $self->{max_val} = $max; |
1485 | } | 1488 | } |
1486 | 1489 | ||
1487 | sub set_value { | 1490 | sub set_value { |
1488 | my ($self, $val, $max) = @_; | 1491 | my ($self, $val, $max) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |