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

« back to all changes in this revision

Viewing changes to tcolour

• 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

tcolour

1

 

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

2

 

 

3

 

use Tk;

4

 

 

5

 

my $mw = MainWindow->new;

6

 

 

7

 

my $t = $mw->Text(-background => 'yellow', -width => 30, -height => 10);

8

 

$t->pack(-expand => 1, -fill => 'both');

9

 

 

10

 

$t->insert('1.0','This is Text','Atag');

11

 

$t->tagConfigure('Atag',-background => 'green');

12

 

 

13

 

$mw->Button(-text => "Change Colour",

14

 

            -command => sub { $t->tagConfigure('Atag',-background => undef) }

15

 

           )->pack;

16

 

 

17

 

MainLoop;

• Older »

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