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

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

 our $BUTTON_STATE;
 sub check_tooltip {
    if (!$GRAB) {
       for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) {
-         if (exists $widget->{tooltip}) {
+         if (length $widget->{tooltip}) {
             if ($TOOLTIP->{owner} != $widget) {
                $TOOLTIP->{owner} = $widget;
                my $tip = $widget->{tooltip};
 sub new {
    my ($class, %arg) = @_;
    my $self = $class->SUPER::new (
       tooltip => $arg{type},
+      can_events => 1,
+      can_hover => 1,
       %arg,
    );
-   $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999", can_events => 1, can_hover => 1);
+   $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, can_events => 1, can_hover => 1);
+   $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1, can_hover => 1);
-   $self->add ($self->{max}   = new CFClient::UI::Label valign => -1, align => 0, template => "999", can_events => 1, can_hover => 1);
+   $self->add ($self->{max}   = new CFClient::UI::Label valign => -1, align => 0, template => "999");
    $self
 }
 sub set_fontsize {
 }
 sub size_request {
    my ($self) = @_;
-   $self->child->set_max_size ($::WIDTH * 0.2);
+   $self->child->set_max_size ($::WIDTH * 0.3);
    my ($w, $h) = @{$self->child}{qw(req_w req_h)};
    ($w + 4, $h + 4)
 }

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