Re: tk how to create entry box from menu selection

[gibsonca]

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..