Tk::Balloon and unclunky menus.

aplonis has asked for the wisdom of the Perl Monks concerning the following question:

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"} ],
    ]
}
[download]

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...',
    ],
);
[download]

...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.

Back to Seekers of Perl Wisdom