Hello,

I must be missing something somewhere...

Can you not set a default value in a Tk::BrowseEntry widget? Example...

#!/usr/bin/perl


use strict;
use Tk;

my @names = ( "Name1", "Name2", "Name3");
my $name;

my $main = MainWindow->new();

$main->geometry(qw(250x150));

my $opt_frame = $main->Frame(
    -relief      => 'groove',
    -background  => 'grey',
    -foreground  => 'white',
)->pack( '-side' => 'top', -fill => 'both', -expand => 1 );

my $namebox = $opt_frame->BrowseEntry(
                       -label => "Names",
               -choices => \@names,
               -variable => \$name,
               )->pack( -side => 'top', -anchor => 'w' );

MainLoop();
[download]

This lists the entries Name1, Name2, and Name3 without any problems. I would like Name1 to be the default value, i.e. if the drop-down box is not utilized. I can't seem to find anything to set the default value in the documentation..

From the documentation:
BrowseEntry is a poor man's ComboBox. It may be considered an enhanced version of LabEntry which provides a button to popup the choices of the possible values that the Entry may take. BrowseEntry supports all the options LabEntry supports except -textvariable. This is replaced by -variable.

I can't find any documentation on LabEntry either.

Can it be handled by subclassing? Is there a better way to do this?

regexes