Anyone have an example of attaching a Tk balloon to a Tk menu list when the list is configured per the "unclunky" (slick,sophisticated, new-fashioned) way of Mastering Perl/Tk (1st Ed) on page 261 like so...?
map { $menubar->cascade( -label => '~' . $_->[0], -menuitems => $_->[1
+]) } [ 'Choices', char_string ];
sub char_string {
[
['command', 'foo', -command => sub { $char_string = "this"} ],
['command', 'bar', -command => sub { $char_string = "that"} ],
]
}
That works fine without balloons. But for adding balloons to menus, the CPAN docs show an example similar to...
$b->attach( $menu, -state => 'balloon',
-msg => [
'Do this...',
'Do that...',
],
);
...which requires a scalar "$menu". With the map construction I no not how to get such a scalar. I could get scalars for "$menu" as I do the "clunky" way from page 259. But I hate to go back to clunkyness.
Anybody got an example? My Perl is very rusty from not using it much these past 5 years. So please translate answers into noobish if possible. Thanks.