http://www.perlmonks.org?node_id=49824


in reply to (tye)Re: TK Problem (me again)
in thread TK Problem (me again)

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
(tye)Re2: TK Problem (me again)
by tye (Sage) on Jan 04, 2001 at 23:22 UTC

    foreach ($textline = <LOG>) {

    doesn't do what you want. Perhaps:

    foreach my $textline ( <LOG> ) { # or, much better: while( defined( $textline= <LOG> ) ) {
    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")