my $menu = $config{MainWindow}->Menu
(-menuitems => [
[Cascade => "~Datei", -tearoff => 0, -menuitems =>
[
[Button => "Anmelden als Froschpopo",
-command => sub { } ],
[Cascade => "Mein Status",
-tearoff => 0,
-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 { exit } ]
]
],
[Button => "~Wechseln zu",
-command => sub { } ],
"-",
[Button => "~Beenden",
-command => sub { exit } ]
]
],
[Cascade => "~Kontakte",
-tearoff => 0,
-menuitems =>
[
[Button => "Kontakt hinzufügen",
-command => sub { AddUser() }],
[Button => "Kontakt suchen",
-command => sub { SearchUser() }],
[Button => "Gruppen verwalten",
-command => sub { EditGroups() }]
]
],
[Cascade => "~Extras",
-tearoff => 0,
-menuitems =>
[
[Button => "Profil bearbeiten",
-command => sub {
GotoUrl("http://flirtwelt.net/index.html?ID=options") }],
[Button => "Fotoalbum bearbeiten",
-command => sub {
GotoUrl("http://flirtwelt.net/index.html?ID=files") }],
"-",
[Button => "Optionen",
-command => sub { &Options }]
]
],
[Cascade => "~?",
-tearoff => 0,
-menuitems =>
[
[Button => "Online-Hilfe",
-command => sub { GotoUrl("http://flirtwelt.net/index.html?ID=files") }],
[Button => "Info",
-command => sub { SearchUser() }],
[Button => "Hilfethemen",
-command => sub { EditGroups() }]
]
]
]
);