#!/usr/bin/perl -w

use strict;
use Tk;

my $mw = MainWindow->new;
my $toplevel = $mw->toplevel;

# Die Menueleiste wird in den Kopf des Fensters gehaengt
my $menubar = $toplevel->Menu(-type => 'menubar');
$toplevel->configure(-menu => $menubar);

# Nun bauen wir ein Datei-Menue
my $datei = $menubar->cascade(-label => '~Datei',
                              -tearoff => 0);

$datei->command(-label => 'Neu', -command => \&neu);
$datei->command(-label => 'Öffnen...', -command => \&oeffnen);
$datei->command(-label => 'Speichern', -command => \&speicher);
$datei->command(-label => 'Speichern unter...', -command => \&speichernunter);
$datei->command(-label => 'Seitenansicht', -command => \&seitenansicht);
$datei->command(-label => 'Druckereinrichtung...', -command => \&druckereinrichtung);
$datei->command(-label => 'letzte Datei', -command => \&letztedatei);
$datei->command(-label => 'Beenden', -command => [$mw=>'destroy']);

# Nun bauen wir ein Ansicht-Menue
my $ansicht = $menubar->cascade(-label => '~Ansicht',
                              -tearoff => 0);
$ansicht->checkbutton(-label => 'Symbolleiste');        # muss noch activiert werden
$ansicht->checkbutton(-label => 'Statusleiste');        # muss noch activiert werden

# Nun bauen wir ein Datensatz-Menue
my $datensatz = $menubar->cascade(-label => '~Datensatz',
                              -tearoff => 0);

$datensatz->command(-label => 'hinter Liste', -command => \&hinterliste);
$datensatz->command(-label => 'vor Liste', -command => \&vorliste);
$datensatz->command(-label => 'hinter Datensatz', -command => \&hinterdatensatz);
$datensatz->command(-label => 'vor Datensatz', -command => \&vordatensatz);
$datensatz->command(-label => 'Bearbeiten', -command => \&bearbeiten);
$datensatz->command(-label => 'Löschen', -command => \&loeschen);


# Nun bauen wir ein Modellschneider-Menue
my $Modellschneider = $menubar->cascade(-label => '~Modellschneider',
                              -tearoff => 0);

$Modellschneider->command(-label => 'Initialisieren', -command => \&init_mde);
$Modellschneider->command(-label => 'Zurücksetzen auf Nullpunkt', -command => \&backtoZ);
$Modellschneider->command(-label => 'Schneiden', -command => \&cut);
$Modellschneider->command(-label => 'Modellparameter', -command => \&modpar);

# Nun bauen wir ein ?-Menue
my $info = $menubar->cascade(-label => '~?',
                              -tearoff => 0);

$info->command(-label => 'Info über Modelldesigner...', -command => \&info);


MainLoop;


##############
#
# Subroutines
#
##############

sub neu {}
sub oeffnen {}
sub speichern {}
sub speichernunter {}
sub seitenansicht {}
sub druckereinrichtung {}
sub letztedatei {}
sub hinterliste {}
sub vorliste {}
sub hinterdatensatz {}
sub vordatensatz {}
sub bearbeiten {}
sub loeschen {}
sub init_mde {}
sub backtoZ {}
sub cut {}
sub modpar {}
sub info {}

  $menu->separator();

use Tk;
my $mw = tkinit;
my $val = 1;
$mw->Checkbutton( -variable => \$val )->pack;
MainLoop;