ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.160 by root, Mon Apr 24 03:33:51 2006 UTC vs.
Revision 1.161 by root, Mon Apr 24 03:43:51 2006 UTC

1751sub new { 1751sub new {
1752 my ($class, %arg) = @_; 1752 my ($class, %arg) = @_;
1753 1753
1754 my $self = $class->SUPER::new ( 1754 my $self = $class->SUPER::new (
1755 tooltip => $arg{type}, 1755 tooltip => $arg{type},
1756 can_events => 1,
1757 can_hover => 1,
1756 %arg, 1758 %arg,
1757 ); 1759 );
1758 1760
1759 $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999", can_events => 1, can_hover => 1); 1761 $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999");
1760 $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1, can_events => 1, can_hover => 1); 1762 $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1, can_hover => 1);
1761 $self->add ($self->{max} = new CFClient::UI::Label valign => -1, align => 0, template => "999", can_events => 1, can_hover => 1); 1763 $self->add ($self->{max} = new CFClient::UI::Label valign => -1, align => 0, template => "999");
1762 1764
1763 $self 1765 $self
1764} 1766}
1765 1767
1766sub set_fontsize { 1768sub set_fontsize {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines