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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.252 by root, Sun May 28 23:21:28 2006 UTC vs.
Revision 1.253 by root, Sun May 28 23:28:12 2006 UTC

    if (!$GRAB) {
       for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) {
          if (length $widget->{tooltip}) {
             if ($TOOLTIP->{owner} != $widget) {
+               $TOOLTIP->hide;
                $TOOLTIP->{owner} = $widget;
                my $tip = $widget->{tooltip};
                $tip = $tip->($widget) if CODE:: eq ref $tip;
                $TOOLTIP->set_tooltip_from ($widget);
-               my ($x, $y) = $widget->coord2global ($widget->{w}, 0);
-               ($x, $y) = $widget->coord2global (-$TOOLTIP->{w}, 0)
-                  if $x + $TOOLTIP->{w} > $::WIDTH;
-               $TOOLTIP->move ($x, $y);
                $TOOLTIP->show;
             }
             return;
          }
    my ($self, $w, $h, $changed) = @_;
    return unless $changed;
    $self->SUPER::size_allocate ($w - 4, $h - 4, $changed);
+}
+sub visibility_change {
+   my ($self, $visible) = @_;
+   return unless $visible;
+   $self->{root}->on_post_alloc ("move_$self" => sub {
+      my $widget = $self->{owner};
+      my ($x, $y) = $widget->coord2global ($widget->{w}, 0);
+      ($x, $y) = $widget->coord2global (-$self->{w}, 0)
+         if $x + $self->{w} > $::WIDTH;
+      $self->move ($x, $y);
+   });
 }
 sub _draw {
    my ($self) = @_;

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