#!/usr/bin/perl
use Tk;
use Tk::BrowseEntry;
use strict;

my @choices = (1..50);
my $choice = (@choices)[0];

our $dlg = MainWindow->new();

my $blist  = $dlg->BrowseEntry( -choices => \@choices,
                                -variable => \$choice)->pack;

my $lb = $blist->Subwidget("slistbox");
$blist->configure(-listcmd=>sub{$lb->focus});

MainLoop;