Hello,
I've been having size problems with balloons. In the example below,
the first balloon to appear is the size of my main window. After that
balloon closes, future balloons are sized according to their contents.
In another script I'm working on, the balloons always stay the size of
the main window.
Can anyone advise me on getting balloons to show up properly the first
and every time?
Thanks,
Jim
use Tk;
use Tk::Balloon;
my $mw = MainWindow->new;
my $canvas = $mw->Canvas(
)->pack(
-expand=>1,
-fill=>'both',
);
my $id = $canvas->createText(5,5,
-text => 'hello',
-anchor=>'nw',
);
my %messages = ();
$messages{$id} = "there";
my $balloon = $canvas->Balloon();
$balloon->attach($canvas,
-balloonposition => 'mouse',
-msg => \%messages,
);
MainLoop();
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
