Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi!! i`am working on Tk::Tables. Does any one know how to insert an "initial text" in the $Entry widget, if this $Entry widget has to be a part of a Tk::Table???? Plz reply

Replies are listed 'Best First'.
Re: Tk::Table query??
by rbc (Curate) on Mar 05, 2002 at 17:11 UTC
    What you want to do actually has nothing to do with the
    Table widget ... when you create your Entry widget do this...
    ...
my $textVar = "Initial text";
my $e = $top->Entry( -width => '10', -textvar => \$textVar );
...

    [download]
    Hope that helps.
[reply]
[d/l]
Re: Tk::Table query??
by {NULE} (Hermit) on Mar 05, 2002 at 17:23 UTC
    Hi AM,

    You just use the insert method on your Entry widget to insert your text in the widget. It doesn't matter if it's part of a table or not. 

    #! /usr/bin/perl -w

use strict;
use Tk;
use Tk::Table;

my $m = MainWindow->new;

my $t = $m->Table(-rows => 1, -columns => 1, -scrollbars => '')->pack;
my $w = $t->Entry;  # Here is our entry widget

$t->put(1,1,$w);    # Place it in the table

$w->insert('end', 'initial text');  # Insert "initial text"

MainLoop;

    [download]
    Update: rbc is on the money too. You *just* beat me! :)

    Good luck, {NULE}
    --
    http://www.nule.org

[reply]
[d/l]

Back to Seekers of Perl Wisdom