home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _e1fe898629229b1fa364393e8760d15e < prev    next >
Encoding:
Text File  |  2004-06-01  |  886 b   |  35 lines
  1. # BrowseEntry, entry with listbox to select list values.
  2.  
  3. use Tk::BrowseEntry;
  4.  
  5. my $month = "January";
  6.  
  7. outer:
  8. {
  9.     my $top = MainWindow->new;
  10.     my $f = $top->Frame;
  11.     my $c = $f->BrowseEntry(-label => "Month:", -variable => \$month);
  12.     $c->pack;
  13.     $c->insert("end", "January");
  14.     $c->insert("end", "February");
  15.     $c->insert("end", "March");
  16.     $c->insert("end", "April");
  17.     $c->insert("end", "May");
  18.     $c->insert("end", "June");
  19.     $c->insert("end", "July");
  20.     $c->insert("end", "August");
  21.     $c->insert("end", "September");
  22.     $c->insert("end", "October");
  23.     $c->insert("end", "November");
  24.     $c->insert("end", "December");
  25.     my $bf = $f->Frame;
  26.     $bf->Button(-text => "Print value",
  27.         -command => sub {
  28.             print "The month is $month\n";
  29.         }, -relief => "raised")->pack;
  30.  
  31.     $bf->pack;
  32.     $f->pack;
  33.     MainLoop;
  34. }
  35.