Help for this page

Select Code to Download


  1. or download this
    @vars = ("a1", "b2", "c3");
$opt = $w1->Optionmenu(-options=>\@vars, 
-variable=>\$tvars -command=> sub { print "got : ", shift, "\n"})->pac
+k;
  2. or download this
    Tk::Error: Odd number of args to Tk::Optionmenu->new(...)