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

« back to all changes in this revision

Viewing changes to lbformat_demo

• browse files at revision 11
• compare with another revision
• download diff
• download tarball
• view history from revision 11

Show diffs side-by-side

added

removed

lbformat_demo

1

 

#!/usr/local/bin/perl -w

2

 

use strict;

3

 

use Tk;

4

 

use Tk::Font;

5

 

 

6

 

my $mw = MainWindow->new;

7

 

my $font = $mw->Font(family  => 'courier', point => 140, weight => 'bold', slant => 'r');

8

 

my $lb = $mw->Scrolled('Listbox', -font => $font)->pack(-expand => 1, -fill => 'both');;

9

 

$mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack;

10

 

 

11

 

opendir(DIR,".") || die "Cannot opendir '.':$!";

12

 

foreach (sort readdir(DIR))

13

 

 {

14

 

  my $size = (stat($_))[7];

15

 

  $lb->insert('end',sprintf("%6d $_",$size));

16

 

 }

17

 

 

18

 

MainLoop;

19

 

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1