--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/23 02:20:57	1.154
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/04/23 02:22:54	1.155
@@ -20,6 +20,11 @@
 
             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;