home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _c822b3c6e4d42f48a9ce087e3b3bd885 < prev    next >
Encoding:
Text File  |  2004-04-13  |  890 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.