TK-Modul Menüleiste erstellt, wie nun die Ebenen ?


MrSpoocy

Grünschnabel
Hiho,

Ich teste grade ein bischen mit TK in Perl rum.

Fester hab ich erstellt bekommen.
Menüleiste ist auch schon drin.

Wie aber mach ich denn jetzt das je nach dem welches menü ich auswähle gewisse dinge angezeigt werden. Also ich kenne das aus dem zusammenbauen von mIRC scripten das es
da Labes gab die man einfach sichbar und unsichbar machen konnte.

Wie geht das mit TK ?

Code:
our $mw = MainWindow->new(-title => 'Test');
$mw->geometry("800x600+0+0");
my %Config;
$Config{Menu} = $mw->Menu(-type => 'menubar');

# 2. Dem Fensterwidget sagen, dass unsere Menubar sein Menu ist:
$mw->configure(-menu => $Config{Menu});
$Config{Menu}->cascade(-label => 'Datei',
                           -underline => 0
                          );
$Config{Menu}->cascade(-label => 'Bearbeiten',
                           -underline => 0
                          );
$Config{Menu}->cascade(-label => 'Info',
                           -underline => 0
                          );

# Info-Menu:
my $menu_bearb = $Config{Menu}->Menu(-tearoff   => 0, -menuitems => [
                	['command'    => 'Homepage', -command => [ \&bearbeiten, 'sortieren' ], -accelerator => 'F10', -underline   => 0],
                	['command'    => 'About', -command => [ \&bearbeiten, 'sortieren' ], -accelerator => 'F12', -underline   => 0]
                ]
							);
$Config{Menu}->entryconfigure('Info', -menu => $menu_bearb);

MainLoop();