in reply to Re: (tye)Re: TK Problem (me again)
in thread TK Problem (me again)
foreach ($textline = <LOG>) {
doesn't do what you want. Perhaps:
I was thinking of using nearly your original code inside of insert_lines(), assuming that that code set the default color for new insertions. I guess you'd have to restore the default color in the else clause or at the bottom of the loop (or in a continue block). - tye (but my friends call me "Tye")foreach my $textline ( <LOG> ) { # or, much better: while( defined( $textline= <LOG> ) ) {
|
---|
In Section
Seekers of Perl Wisdom