Re: perl tk how to clear contents of text widget

The command to delete all text in a Tk::Text widget is

$text->delete("1.0", 'end');
[download]

your command

 -command => [$right_frame => \&clear_file])->pack(-side => "bottom")
[download]

makes no sense. A Scrolled Text widget dosn't know what => means. Try this

my $Close_help = $left_frame->Button(-text => ' Close Help ',
          -command => \&clear_file )->pack(-side => "bottom");

sub clear_file {
    $right_frame->delete('1.0','end');
    $right_frame->packForget;
}
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re: perl tk how to clear contents of text widget Select or Download Code

Replies are listed 'Best First'.
Re^2: perl tk how to clear contents of text widget by john.tm (Scribe) on Jun 29, 2014 at 13:59 UTC
This still does not clear the text from the text widget.	[reply]
Re^3: perl tk how to clear contents of text widget by zentara (Cardinal) on Jun 30, 2014 at 09:27 UTC
It still dosn't clear You seem to like to use the array form for the -command. The code I showed you does NOT have the brackets. `-command => [$right_frame => \&clear_file]) #notice the difference -command => \&clear_file )` [download] Don't use the bracketed command form unless you know what you are doing with it. It is used if you want to pass arguments to a subroutine, which you don't need in this case. I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]
Re^3: perl tk how to clear contents of text widget by Anonymous Monk on Jun 29, 2014 at 20:32 UTC
Can you prove it? Can you copy/paste your new program?	[reply]
Re^4: perl tk how to clear contents of text widget by john.tm (Scribe) on Jun 30, 2014 at 12:55 UTC
i have added the code as suggested. many thanks.	[reply]