This works on linux
# -----------
sub options {
# -----------
$gBuild = "TBD";
### ? ###
print "options; build is $gBuild\n";
# code added by me ######################
use Tk::DialogBox;
my $dialog = $mw->DialogBox(
-buttons => [qw/Ok Cancel/],
-title => "Enter New Value"
);
my $dialogE = $dialog->add("Entry");
$dialogE->pack(qw/-padx 10 -pady 10/);
## Clear the Entry before showing the dialog
$dialogE->delete( 0, 'end' );
## Determine whether or not the user hit "Ok"
my $button = $dialog->Show();
if ( $button eq "Ok" ) {
my $letters = $dialogE->get();
print "$letters was submitted\n";
}
########################################
} # end of options()