#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Perl6::Say;
use FindBin qw/$Bin/;
use lib $Bin;
use Tk;
use Tk::Balloon;
use Tk::PNG;
use Tk::MyOwnBalloon;

my $mw = Tk::MainWindow->new();
$mw->packPropagate(0);

# -- Tk::Baloon (Original)

my $widget = $mw->Button(
    -text       => 'press me...',
    -command    => sub{ say "push!"; },
)->pack();

my $b = $mw->Balloon();

$b->attach($widget,
    -position => 'widget',
    -balloonmsg => "Balloon help message",
);


# -- Baloon mit Schatten (modifiziert)

my $widget2 = $mw->Button(
    -text       => 'press me...',
    -command    => sub{ say "push (2)!"; },
)->pack();

my $b2 = $mw->MyOwnBalloon();

$b2->attach($widget2,
    -position => 'widget',
    -balloonmsg => "Balloon (mod.) help message",
);



$mw->MainLoop();