use strict;

use Tk;
#
# MainWindow
#
my $mw = MainWindow->new;
#
# Menu
#
my $m = $mw->Menu(qw/-type menubar/);
$mw->configure(-menu => $m);

my $ma = $m->cascade(-tearoff => 0, -label => '~Ansicht');

my $pr_sicht = 1;

$ma->checkbutton(
        -label => 'Projekt-Explorer',
        -variable => \$pr_sicht,
        -command => sub {
                # Einblenden/Ausblenden???
        }
);

#
# PanedWindow
#
my $panel = $mw->Panedwindow(qw/-orient horizontal/)->pack;

my $fr_left = $mw->Frame(qw/-height 100 -width 100/)->pack;;
my $fr_right = $mw->Frame(qw/-height 100 -width 100/)->pack;

$panel->add($fr_left, $fr_right);

MainLoop;