# -----------
  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()
[download]