#!/usr/bin/perl

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;

#
# 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);

$ma->checkbutton(
        -label => 'Projekt-Explorer',
        -variable => \$pr_sicht,
        -command => sub {
                unless( $pr_sicht ){
                   $panel->packForget;
                }
                else{
                   $panel->pack;
                }
        }
);

MainLoop;