#--------------------------------------------------------------------------
    # Menü:
    #--------------------------------------------------------------------------
    my $mf = $mw->Frame(#-relief      => 'ridge',
                        -borderwidth => 2,
                       );#&´&´


    # Menu-Bar:
    $::Konfig{menu} = $mf->Menu(
        -type => 'menubar',
        -font => $::Konfig{menufont},
    );

    $mw->configure(-menu => $::Konfig{menu});

    # Einträge in der Menu-Bar:
    $::Konfig{menu}->cascade(
        -label     => 'Datei',
        -underline => 0,
        -font      => $::Konfig{menufont},
    );
    $::Konfig{menu}->cascade(
        -label     => 'Bearbeiten',
        -underline => 0,
        -font      => $::Konfig{menufont},
    );
    $::Konfig{menu}->cascade(
        -label     => 'Ansicht',
        -underline => 0,
        -font      => $::Konfig{menufont},
    );
    $::Konfig{menu}->cascade(
        -label     => 'Manipulationen',
        -underline => 0,
        -font      => $::Konfig{menufont},
    );
    $::Konfig{menu}->cascade(
        -label     => 'Interna',
        -underline => 0,
        -font      => $::Konfig{menufont},
    );
    $::Konfig{menu}->separator(); # Rest rechtsbündig
    #$::Konfig{menu}->Tk::Menu::separator(); # Rest rechtsbündig
    #($::Konfig{menu})->separator(); # Rest rechtsbündig
    #$::Konfig{menu}->cascade(-label     => '-');
    $::Konfig{menu}->cascade(
        -label     => 'Hilfe',
        -underline => 0,
        -font      => $::Konfig{menufont},
    );