#!/usr/bin/perl -w

use strict;
use warnings;

use Tk;
use Tk::Balloon;
use Tk::Dialog;
use Tk::DialogBox;


#--------------------------------------------

my $mw = MainWindow->new(
        );

#--------------------------------------------

my $balloonbutt = $mw->Button(
                -text                   => 'Test Balloon MouseOver',
        )
        ->grid(
                -column                 => 10,
                -row                    => 10,
                -padx                   => 10,
                -pady                   => 10,
        );
my $ball = $balloonbutt->Balloon(
                -state                  => "balloon",
                -cancelcommand          => sub { return 1 },
        );
$ball->attach(
                $balloonbutt,
                -balloonposition        => 'mouse',
                -msg                    => "Balloon Test",
                -cancelcommand          => sub { return 1 },
                -initwait               => 200,
        );

#--------------------------------------------

$mw->Button(
                -text                   => 'Browse',
                -command                => sub {
                                my $types = [
                                                [ 'Modellfiles' ,    '*.fif *.nas *.bdf' ],
                                                [ 'All Files'   ,    '*'                 ]
                                        ];
                                my $file = $mw->getOpenFile(
                                                -filetypes      => $types,
                                                -title          => "Test getOpenFile",
                                        );
                        },
        )
        ->grid(
                -column                 => 20,
                -row                    => 10,
                -padx                   => 10,
                -pady                   => 10,
        );

#--------------------------------------------

MainLoop();