Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Tk::BrowseEntry set function

by zentara (Archbishop)
on Jul 25, 2014 at 16:45 UTC ( [id://1095063] : note . print w/replies, xml ) Need Help??


in reply to Tk::BrowseEntry set function -solved

You don't show any code, but this should show you how to set things. You just set your array elements, and update. You can use ->configure to set -choices and -variable
#!/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;

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh