Help for this page

Select Code to Download


  1. or download this
    $tray->setMenu (
            "> &Test" => sub { print "Hello from the Tray\n"; },
    ...
            ">-"      => 0,
            "> E&xit" => sub { return -1 },
    );