summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/HList.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/HList.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/HList.pm27
1 files changed, 25 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/HList.pm b/Master/tlpkg/tlperl/lib/Tk/HList.pm
index d259ca9ce24..7761f097373 100644
--- a/Master/tlpkg/tlperl/lib/Tk/HList.pm
+++ b/Master/tlpkg/tlperl/lib/Tk/HList.pm
@@ -680,6 +680,29 @@ sub children
@info;
}
-1;
-
+sub BalloonInfo
+{
+ my ($listbox,$balloon,$X,$Y,@opt) = @_;
+ my $e = $listbox->XEvent;
+ return if !$e;
+ my $path = $listbox->GetNearest($e->y, 1);
+ $path = '' unless defined($path);
+ foreach my $opt (@opt)
+ {
+ my $info = $balloon->GetOption($opt,$listbox);
+ if ($opt =~ /^-(statusmsg|balloonmsg)$/
+ && UNIVERSAL::isa($info,'HASH'))
+ {
+ $balloon->Subclient($path);
+ if (defined $info->{$path})
+ {
+ return $info->{$path};
+ }
+ return '';
+ }
+ return $info if (defined $info);
+ }
+ return '';
+}
+1;