--- deliantra/Deliantra-Client/DC/UI.pm	2006/07/30 13:16:44	1.340
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/08/13 03:20:56	1.341
@@ -8,6 +8,7 @@
 use Event;
 
 use CFPlus;
+use CFPlus::Pod;
 use CFPlus::Texture;
 
 our ($FOCUS, $HOVER, $GRAB); # various widgets
@@ -2979,6 +2980,9 @@
 sub set_tooltip_from {
    my ($self, $widget) = @_;
 
+   $widget->{tooltip} = CFPlus::Pod::as_label CFPlus::Pod::section tooltip => $1
+      if $widget->{tooltip} =~ /^#(.*)$/;
+
    my $tooltip = $widget->{tooltip};
 
    if ($ENV{CFPLUS_DEBUG} & 2) {