#!/usr/bin/perl
use warnings;
use strict;
use Tk;
open (FH,"<$0") or warn "$!\n";
my @lines = <FH>;
close FH;
my $mw = MainWindow->new(-title=>'Colored Text');
$mw->geometry(($mw->screenwidth-10) . 'x' .
($mw->screenheight-10) . '+0+20');
$mw->fontCreate('big',
-family=>'arial',
-weight=>'bold',
-size => 25 );
my $text = $mw->Scrolled("Text",
-scrollbars => 'osw',
-background => 'white',
-font =>'big',
-wrap => 'none',
)->pack;
$text->tagConfigure('greyline', -background => 'grey95');
my $toggle = -1;
for (@lines) {
my $greyline;
if( $toggle == 1 ){ my $greyline = '' }
else { $greyline = 'greyline' }
$text->insert('end',"$_",$greyline);
$toggle *= -1;
}
MainLoop;
|