| … | |
… | |
| 1728 | my $self = $class->SUPER::new ( |
1728 | my $self = $class->SUPER::new ( |
| 1729 | tooltip => $arg{type}, |
1729 | tooltip => $arg{type}, |
| 1730 | %arg, |
1730 | %arg, |
| 1731 | ); |
1731 | ); |
| 1732 | |
1732 | |
| 1733 | $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999"); |
1733 | $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999", can_events => 1, can_hover => 1); |
| 1734 | $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1); |
1734 | $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1, can_events => 1, can_hover => 1); |
| 1735 | $self->add ($self->{max} = new CFClient::UI::Label valign => -1, align => 0, template => "999"); |
1735 | $self->add ($self->{max} = new CFClient::UI::Label valign => -1, align => 0, template => "999", can_events => 1, can_hover => 1); |
| 1736 | |
1736 | |
| 1737 | $self |
1737 | $self |
| 1738 | } |
1738 | } |
| 1739 | |
1739 | |
| 1740 | sub set_fontsize { |
1740 | sub set_fontsize { |
