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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.154 by root, Sun Apr 23 02:20:57 2006 UTC vs.
Revision 1.156 by elmex, Sun Apr 23 02:50:42 2006 UTC

       for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) {
          if (exists $widget->{tooltip}) {
             if ($TOOLTIP->{owner} != $widget) {
                $TOOLTIP->{owner} = $widget;
+               my $tip = $widget->{tooltip};
+               $tip = $tip->($widget) if CODE:: eq ref $tip;
                $TOOLTIP->set_text ($widget->{tooltip});
                $TOOLTIP->move ($widget->coord2global ($widget->{w}, 0));
                $TOOLTIP->show;
             }
    my $self = $class->SUPER::new (
       tooltip => $arg{type},
       %arg,
    );
-   $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999");
+   $self->add ($self->{value} = new CFClient::UI::Label valign => +1, align => 0, template => "999", can_events => 1, can_hover => 1);
-   $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1);
+   $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1, can_events => 1, can_hover => 1);
-   $self->add ($self->{max}   = new CFClient::UI::Label valign => -1, align => 0, template => "999");
+   $self->add ($self->{max}   = new CFClient::UI::Label valign => -1, align => 0, template => "999", can_events => 1, can_hover => 1);
    $self
 }
 sub set_fontsize {

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