Menü mit Einträgen aus der Datei ausfüllen - #41935 (Graphische Oberflächen)

ptk

2004-04-23 12:39

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Die einfachste Moeglichkeit, Menus in Perl/Tk zu erstellen, ist ueber die -menuitems-Option. Dazu erstellt man erst einmal ein Array von Arrays wie hier:

Code: (dl )

    my $menuitems = 
    [

     [Cascade => "~File", -menuitems =>
      [
       [Button => "~New", -command => \&new],
       [Separator => ""],
       [Button => "~Open", -command => \&open],
       [Button => "~Save", -command => \&open],
     ...

Und nutzt es schliesslich so:

Code: (dl )

1
2

    $menubar = $top->Menu(-menuitems => $menuitems);
    $top->configure(-menu => $menubar);

Ich denke, das dynamische Erzeugen des menuitems-Arrays aus einer Datei heraus sollte nicht so schwer fallen.