my $menu = $config{MainWindow}->Menu
    (-menuitems =>
        [
            [Cascade => "~Datei", -menuitems =>
               
 [
               
     [Button => "~Anmelden als Froschpopo", -command => sub { } ],
               
     [Cascade => "~Mein Status", -menuitems =>
               
         [
               
             [Button => "~Online", -command => sub { } ],
               
             [Button => "~Beschäftigt", -command => sub { } ],
               
             [Button => "~Bin gleich zurück", -command => sub { } ],
               
             [Button => "~Abwesend", -command => sub { } ],
               
             [Button => "~Mittagspause", -command => sub { } ],
               
             [Button => "~Als Offline anzeigen", -command => sub { } ]
               
         ]
               
     ],
               
     [Button => "~Wechseln zu", -command => sub { } ],
               
     [Button => "~Beenden", -command => sub { exit } ]

               
 ]
            ],
            [Cascade => "~Kontakte", -menuitems =>
               
 [
               
     [Button => "Kontakt hinzufügen", -command => sub { AddUser() }],
               
     [Button => "Kontakt suchen", -command => sub { SearchUser() }],
               
     [Button => "Gruppen verwalten", -command => sub { EditGroups() }]
               
 ]
            ],
            [Cascade => "~Extras", -menuitems =>
               
 [
               
     [Button => "Fotoalbum bearbeiten", -command => sub { GotoUrl("http://.../index.html?ID=files") }],
               
     [Button => "Immer im Vordergrund", -command => sub { SearchUser() }],
               
     [Button => "Optionen", -command => sub { EditGroups() }]
               
 ]
            ],
            [Cascade => "~?", -menuitems =>
               
 [
               
     [Button => "Online-Hilfe", -command => sub { GotoUrl("http://....net/index.html?ID=files") }],
               
     [Button => "Info", -command => sub { SearchUser() }],
               
     [Button => "Hilfethemen", -command => sub { EditGroups() }]
               
 ]
            ]
        ]
);
$config{MainWindow}->configure(-menu => $menu);

sub StartChat {
    my $popup = $config{MainWindow}->Toplevel(-title => "sdsa");
    $popup->geometry($config{PrivatChatWidth}.'x'.$config{PrivatChatHeight});
}