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

« back to all changes in this revision

Viewing changes to hlfm

  • 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
* New Upstream Release (Closes: #578814).
* Added debian/watch file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#!/usr/local/bin/perl -w
2
 
use strict;
3
 
use Tk;
4
 
require Tk::Dirlist;
5
 
require Tk::Menubar;
6
 
 
7
 
my $mw = MainWindow->new;
8
 
my $mb = $mw->Menubar();
9
 
my $dl = $mw->Scrolled('Dirlist',-directory => '.', -width => 40, -height => 40);
10
 
$dl->pack(-expand => 1, -fill => 'both');
11
 
MainLoop;