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";
In reply to Re: quick Tk question
by converter
in thread quick Tk question
by Grygonos
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |