#!/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]

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

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.

If it's Gtk you could just delete the text of the entry-widgets in the function which is connected to the save button.

Say you got:

# ... lots of stuff
$entry = new Gtk::Entry(8);
$button = new Gtk::Button("Save");
# pass the entry-varible to the sub, if it ain't global
$button->signal_connect( "clicked", \&savethings, $entry);

# ... lots of more stuff :-)
[download]

sub savethings {
    # here we receive the entry-widget (and the save-button, too)
    my ($savebutton,$entry) = @_;
    # delete text in entry
    $entry->set_text("");
    # save things 
    # ...
}
[download]

Hope this helps.

Regards...

Stefan

It would be helpful for you to post the code in question. It sounds like you have those entries in global variables. If true, you should change that.

Try making the default values part of the dialog box constructor, as arguments to it perhaps.

After Compline,
Zaxo