~ubuntu-branches/ubuntu/gutsy/horae/gutsy

« back to all changes in this revision

Viewing changes to 0CPAN/Tk-GBARR-2.06/examples/firebutton

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

Show diffs side-by-side

added

removed

0CPAN/Tk-GBARR-2.06/examples/firebutton

1

 

# Button with "repeat" effect.

2

 

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

3

 

use strict;

4

 

use Tk;

5

 

use Tk::FireButton;

6

 

 

7

 

my $i = 0;

8

 

 

9

 

my $mw = Tk::MainWindow->new();

10

 

my $fb = $mw->FireButton(

11

 

                -text=>'Fire',

12

 

                -command=>sub{$i++;}

13

 

                )->pack;

14

 

my $l = $mw->Label(-textvariable=>\$i)->pack(qw/-padx 10 -pady 6/);

15

 

 

16

 

Tk::MainLoop;

17

 

__END__

• Older »

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