RE: Re: Tk - text widget - delete text

[softeng2000]

Thank you for reply
Although, I get this:

Tk::Error: bad text index "0" at C:/Perl/site/lib/Tk.pm line 217.
Tk callback for .frame11.frame.text
Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 217
Tk::Derived::Delegate at C:/Perl/site/lib/Tk/Derived.pm line 469
Tk::Widget::__ANON__ at C:/Perl/site/lib/Tk/Widget.pm line 311
main::ClearList_Button at C:\Valeriy\Perl\Spiders\WebCrawler\WC3\WC33.PL line 2 14
main::__ANON__ at C:\Valeriy\Perl\Spiders\WebCrawler\WC3\WC33.PL line 105
\&main::__ANON__
Tk callback for .frame10.button
Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 217
Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111 (command bound to event)

[Shendal]

Here's a more complete example:

#!perl -w
use strict; # always

use Tk;

my $Window = MainWindow->new(-title => "Test Window");
my $uframe =$Window->Frame()
    ->pack(-side   => 'top',
       -fill   => 'both',
       -expand => 1);
my $dframe =$Window->Frame()
    ->pack(-side   =>'top',
       -fill   => 'x');

my $txtWidget = $uframe->Scrolled("Text")
    ->pack(-side   => 'top',
       -fill   => 'both',
       -expand => 1);

my $pasteBtn = $dframe->Button(-text     => "Paste",
                   -command  => sub { $txtWidget->insert('end',"blah b
+lah") })
    ->pack(-side => 'left');
my $clearBtn = $dframe->Button(-text    => "Clear",
                   -command => sub { $txtWidget->delete('0.0','end') }
+)
    ->pack(-side => 'left');

MainLoop();


Cheers,
Shendal