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