diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/HList.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/HList.pm | 27 |
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; |