in reply to Clearing entry boxes in a GUI?

For Tk: 
#!/usr/bin/perl -w

use strict;
use Tk;

my $Main = MainWindow->new();

my $text = "foobar";

my $Entry = $Main->
    Entry( -textvariable => \$text )->
    pack( -expand => 1, -fill => 'x' );

my $Button = $Main->
    Button( -text => 'Clear',
         -width => 20,
         #choose one of the following
         #-command => sub { $text = '' }
         #-command => sub { $Entry->delete( 0, 'end' ) }
         )->pack();

MainLoop;

[download]

Replies are listed 'Best First'.
Re: (ichimunki) Re: Clearing entry boxes in a GUI?
by ralfthewise (Sexton) on Jun 21, 2001 at 22:27 UTC
    Thanks!
    Another question if I may
    I have five entry boxes to clear. I used your second -command structure ($Entry->delete(0,'end') and chained it into the code like thus:
    $top->Button(-text=>"Save RegEdits to a File", -foreground=>"blue", -command=>sub{save()},
    -command => sub { $entry1->delete( 0, 'end' )},
    -command => sub { $entry1->delete( 0, 'end' )},
    -command => sub { $entry3->delete( 0, 'end' )},
    -command => sub { $entry4->delete( 0, 'end' )} )->pack()
    But the daisy chained -commands looking at each entry didn't all work. In fact, only the first worked, and for some reason the save fxn at the beginning didn't work either. What am I doing wrong?
    john
[reply]
      You can only have one -command attribute per Button widget. You might try: 
      -command => sub {$e1->delete(0,'end');
                 $e2->delete(0,'end');
                 ...
                 $e5->delete(0,'end');
                }

      [download]
      Or better yet, instead of sub, use a reference to an actual subroutine so your button declaration isn't so messy and that way you can call the resulting sub from other places in the script if needed.
[reply]
[d/l]
        p.s.
        I'm rather new to perlmonks.com. I thought I saw somewhere that I could vote on helpful responses to queries. If so, how do I do that?
        john
[reply]

In Section Seekers of Perl Wisdom