← Back to branch summary

~ubuntu-branches/ubuntu/maverick/perl-tk/maverick

« back to all changes in this revision

Viewing changes to tmenu

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2010-05-30 09:19:40 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20100530091940-wbmq9bloo92t9m6x
Tags: 1:804.029-1
http://bugs.debian.org/578814
* New Upstream Release (Closes: #578814).
* Added debian/watch file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tmenu
1
 
#!perl -w
2
 
use strict;
3
 
use Tk;
4
 
my $mw = MainWindow->new;
5
 
my $menu = $mw->menu;
6
 
$menu->cascade(-label => "Added",-underline => 0, -menuitems => [
7
 
                 [Button => 'Exit', -underline => 1, -command => [destroy => $mw]],
8
 
               ]); 
9
 
$mw->Button(-text => "Press this button to Quit\nthe Appliation",
10
 
            -command => [destroy => $mw])->pack;
11
 
MainLoop;