I found a snippet of code for username pw, so then my solution was trivial:
# -----------
sub options {
# -----------
my $tBuild;
require Tk::LabEntry;
require Tk::DialogBox;
$options = $mw->DialogBox(-title => 'Build Version',
-buttons => ['Ok', 'Cancel'],
-default_button => 'Ok');
$options->add('LabEntry',
-textvariable => \$tBuild,
-width => 5,
-label => 'Enter build version:',
-labelPack => [-side => 'left'])->pack;
my $sts = $options->Show();
if ($sts eq "Ok") {
$gBuild = $tBuild;
}
$txt->insert('end',"\n Build version set to : '$gBuild'");
} # end of options()
I still need to figure out color, position and why I need the require's..