ghosh123 has asked for the wisdom of the Perl Monks concerning the following question:

Hi
I am using a scrolled text box for displaying my log results. The text box has a default foreground color(i.e blue) and default background colour (i.e white). But depending on some pass and fail results I am changing that colour to green and red respectively using tagConfigure.
But due to presence of some continuous special characer (like * ) in a line , the rest of the colour coding is getting destroyed.

For example if two consecutive lines contain :

***********************************
***********************************
The colur display is getting corrupted, can you please tell me why this is happening.
Below is the snippet of my logfile code and the tagConfigure sub routine :

Thanks in advance, please help. Assume that the below syntax are correct in my code, this is just to give you an idea of my code and how I am using this.


my $logfiletextbox = $frame->Scrolled ('Text', 
                            -scrollbars => 'osoe',
                            -background => 'white',
                            -foreground => 'blue');

$logfiletextbox-tagConfigure($tag, -foreground => 'green')if $result =
+~ /pass/;
$logfiletextbox-tagConfigure($tag, -foreground => 'red')if $result =~ 
+/fail/;

[download]

Replies are listed 'Best First'.
Re: PERL TK logfile color coding error
by zentara (Cardinal) on Jul 17, 2012 at 15:44 UTC
    Can you please post a minimally functional script that shows the actual problem? You don't show what $tag is, and I don't want to write a script just to test your erroneous syntax. :-)
    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh
[reply]
Re: PERL TK logfile color coding error
by Khen1950fx (Canon) on Jul 18, 2012 at 10:28 UTC
    Maybe something like this? 
    #!/usr/local/bin/perl 

use strict;
use autodie;
use warnings;

use Tk;

@ARGV = __FILE__ unless (@ARGV);
my @data = <>;

my ($name) = 'fail';

my $top = MainWindow->new();
$top->optionAdd( '*Scrollbar.width' => '6.5m' );
$top->Button(
    -text    => 'Quit',
    -command => [ destroy => $top ]
  )->pack(
    -side => 'bottom',
    -fill => 'x',
  );

if ( $name eq 'pass' ) {
    my $lba = $top->ScrlListbox(
        -background => 'white',
        -foreground => 'green',
        -scrollbars => 'rse',
        -label      => 'Text',
    )->pack();
    $lba->insert( 'end', @data );
}
else {
    my $lbb = $top->ScrlListbox(
        -background => 'black',
        -foreground => 'red',
        -scrollbars => 'rse',
        -label      => 'Text',
    )->pack();
    $lbb->insert( 'end', @data );
}

MainLoop();

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom