Menu Anfang: Wie fange ich mit "Menu" - #45663 (Graphische Oberflächen)

Gast Gast

2006-06-12 15:57

[quote=renee,12.06.2006, 07:59]Du solltest schon den Code zu der Frage posten. In Deinem Code steht kein \&datei!

Aber das was Du meinst ist ein Callback, also eine Subroutine, die immer dann aufgerufen wird wenn der User einen Menüeintrag auswählt...

Am besten lernt man eigentlich durch ausprobieren. Kopier Dir mal den Code aus dem Wiki, ändere dann mal einzelne Teile und schau Dir an was passiert.

Was ist an dem Text im Wiki nicht verständlich?[/quote]
Hallo,

erstmal's wollte ich bei Ihnen recht herzlich bedanken.
Zu der "Menu-Funktion":

Code: (dl )

$mb = $mw->Frame(-relief => 'ridge', -bd => 5);

#Menue:
$m_file = $mb->Menubutton(-text      => "Datei",-underline => 1)->pack();

Später muss man

Code: (dl )

1
2
3

$m_file->command(-label   => "test",
                 -command => [\&file, "test"],
                )->pack();

einfügen.

Aber zuletzt noch die Callbackfunktion:

Code: (dl )

sub file ($) {
    my ($arg) = @_;
    my $tw=$mw->Toplevel(-title => "Datei $arg");
    my $mes=$tw->Message(-text => "Datei $arg ist nicht aktiv",
                         -width => '10c', -justify => 'center')->
                         pack(-side => 'top');
    my $but=$tw->Button(-text => "Schließen",
                        -command => [$tw => 'destroy'])->pack(-side => 'top');
}

Ich kenne mich also kaum aus, um so etwas zu schaffen.
Gibt es vielleicht andere,besser genauer erklärte Tutorials zu diesem Thema?

Gruß Adlerr