Как очистить виджет ввода в графическом интерфейсе после нажатия кнопки в Perl / Tk - PullRequest
Новая
       24

Как очистить виджет ввода в графическом интерфейсе после нажатия кнопки в Perl / Tk

0 голосов
/ 01 ноября 2010 
use Tk;
$filename  = 'configuration.txt';

$mw = MainWindow->new;
$mw->geometry("500x250");
$f = $mw->Frame->pack(-side => 'bottom');

$f->Button(-text => "Exit",-command => sub { exit; })->pack(-side => 'left');
$f->Button(-text => "Save",-command => \&save_file)->pack(-side => 'left');

$t = $mw->Scrolled("Text", -width => 40, -wrap => 'none')->pack(-expand => 1, -fill => 'both');

foreach (qw/IP_ADDRESS_SS PORT_NUMBER_CLIENT PROTOCOL_CLIENT PORT_NUMBER_SERVER PROTOCOL_SERVER/)
{
                $w = $t->Label(-text => "$_:", -relief => 'groove', -width => 30);
                $t->windowCreate('end', -window => $w);
                $w = $t->Entry(-width => 20, -textvariable => \$info{$_});
                $t->windowCreate('end', -window => $w);
                $t->insert('end', "\n");
}
$t->configure(-state => 'disabled'); # disallows user typing
my $clear_text = $f->Button(-text => "Clear Text",-command => \&clear_entry)->pack(-side => 'left',
                                                                                  -anchor=>'se',
                                                                                  );

MainLoop;

##### Subroutine #####
sub save_file
{
    print"$filename\n";
    $info = "Saving '$filename'";
    open (FH, ">$filename");
    print FH $t->get("1.0", "end");
    $info = "Saved.";
}
sub clear_entry
{
  $w->delete('0', 'end');
}

Это программа Perk Tk для простого ввода данных с использованием меток и виджетов ввода

Вот, что мне нужно, если нажать кнопку очистки текста, я хочу очистить все записи в виджете ввода, Плз помогите как это сделать

Благодарю вас! Ранджит

1 Ответ

1 голос
/ 01 декабря 2010

Одним из способов является сохранение объектов ввода, чтобы вы могли ссылаться на них в функции clear_entry (). 

@entries;
foreach (qw/IP_ADDRESS_SS PORT_NUMBER_CLIENT PROTOCOL_CLIENT PORT_NUMBER_SERVER PROTOCOL_SERVER/) 
{ 
            $w = $t->Label(-text => "$_:", -relief => 'groove', -width => 30); 
            $t->windowCreate('end', -window => $w); 
            $w = $t->Entry(-width => 20, -textvariable => \$info{$_}); 
            $t->windowCreate('end', -window => $w); 
            $t->insert('end', "\n"); 
            push(@entries, $w);
} 
$t->configure(-state => 'disabled'); # disallows user typing 
my $clear_text = $f->Button(-text => "Clear Text",-command => \&clear_entry)->pack(-side => 'left', 
                                                                                  -anchor=>'se', 
                                                                                  ); 
MainLoop;


sub save_file { print"$filename\n"; $info = "Saving '$filename'"; open (FH, ">$filename"); print FH $t->get("1.0", "end"); $info = "Saved."; } 

sub clear_entry { 
    foreach $entry (@entries) {
        $entry->delete('0', 'end'); }
}
...