in reply to Re: TclNotifier?? (Win32 + Tk + BrowseEntry)
in thread TclNotifier?? (Win32 + Tk + BrowseEntry)
#!/usr/bin/perl use Tk; use Tk::BrowseEntry; my $var; my $mw = MainWindow->new(); $b = $mw->BrowseEntry(-label => "Label", -variable => \$var); $b->insert("end", "opt1"); $b->insert("end", "opt2"); $b->insert("end", "opt3"); $b->pack; $mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack; MainLoop;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: TclNotifier?? (Win32 + Tk + BrowseEntry)
by Anonymous Monk on Aug 17, 2009 at 13:23 UTC | |
by VMat (Novice) on Aug 17, 2009 at 13:32 UTC |