Skript

use Tk; 
 
$mw = new MainWindow; 
 
$mb = $mw->Menubutton(-text => 'Menu')->pack(); 
 
$m = $mb->Menu(); 
 
$cascM = $m->Menu(); 
 
$cascM->command(-label => 'Command in Cascade'); 
 
$m->cascade(-label => 'Cascade', 
-menu => $cascM); 
 
$mb->configure(-menu => $m); 
 
MainLoop(); 

Ergänzungen, Kommentare

       ---### Main.??? - 14 Jul 2003 - Betreff
      

use Tk;
$mw = new MainWindow;
$menu = $mw->Menu
    (-menuitems =>
     [
      [Cascade => "~Menu", -menuitems =>
       [
        [Cascade => "~Cascade", -menuitems =>
         [
          [Button => "~Command in Cascade", -command => sub { } ],
         ]
        ]
       ]
      ]
     ]
    );
$mw->configure(-menu => $menu);
MainLoop;