#!/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;
In reply to Re: Tk::BrowseEntry set function
by zentara
in thread Tk::BrowseEntry set function -solved
by glenn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |