Optionmenu v perl-Tkju

[Saso Zivanovic]

Hoj!

Imam naslednji problemcek.  Man stran Tk::Optionmenu vsebuje naslednji 
programcek
---
           use Tk;
           my $mw = MainWindow->new();






           my $var;
           my $opt = $mw->Optionmenu(
                       -options => [qw(jan feb mar apr)],
                       -command => sub { print "got: ", shift, "\n" },
                       -variable => \$var,
                       )->pack;

           $opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);

           $mw->Label(-textvariable=>\$var, -relief=>'groove')->pack;
           $mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;

           MainLoop;
---
Ta naredi en 'combo box', ki vsebuje imena mesecev.  Vendar le-ta v samem 
entryju (tistem, kar je vedno vidno) prikazuje namesto imena meseca njegovo 
stevilko.  Kako naj tja notri spravim ime meseca???

Hvala in LP,
Saso