Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
    ...
    
    MainLoop;
    
  2. or download this
    $applemenu->command(-label => 'Hello', -command => sub { print "Hello\
    +n" });
    
  3. or download this
    my $menubar = $mw->Menu(-type => 'menubar');
    ...
    $mw->configure(-menu => $menubar);
    
  4. or download this
    # Converted from menu.tcl --
    
  5. or download this
    $mw->Button(...)->pack;       # Tk
    $mw->new_button(...)->g_pack; # Tkx