TK-Modul Menüleiste erstellt, wie nun die Ebenen & Popup was Main fenster Blockiert ? - #113917 (Graphische Oberflächen)

Gast Gast

2008-08-22 22:09

Hiho,

Ich hab mich mal mit dem TK Modul bissel befast und auch was zusammengebastelt.

Code (perl): (dl )

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();

Jetzt frag ich mich wie ich den inhalt des hauptfenster komplet lösche / ändern wenn man oben im menü was auswählt. Möchte nicht immer nin Popup aufspringen lassen.

Zum anderen hab ich noch das problem das wenn ich ein 2tes Fenster mit TopLevel aufrufe dann kann der benutzer das Hauptfenster weiterhin nutzen, ich möchte es aber gern so das erst wenn das 2te fenster wieder zu ist soll man das hauptfenster steuern können.
Jemand eine idee wie ich das mache ?

mfg MrSpoocy