Re: quick Tk question


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: quick Tk question

by converter (Priest)

Log in
Create a new user
The Monastery Gates
Seekers of Perl Wisdom
Meditations
Cool Uses For Perl
Obfuscation
Q&A
Tutorials
Poetry
Reviews
Perl News
Donate
Recent Threads
Newest Nodes
Super Search
PerlMonks Discussion
What's New

on Dec 05, 2003 at 21:04 UTC ( #312641=note: print w/replies, xml )

Need Help??

in reply to quick Tk question

See the -show option in the Tk::Entry man page. Example:

#!/usr/bin/perl

use warnings;
use strict;
use Tk;

my $input = '';

my $m = tkinit;
$m->Entry(
    -show           => "*",
    -textvariable   => \$input,
)->pack;
$m->Button(
    -text       => 'Quit',
    -command    => sub { $m->destroy },
)->pack;

MainLoop;

print "input was: $input\n";
[download]

converter