| … | … | ||
|---|---|---|---|
| 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 |