Menu v Tk

[Polak Michal]

Dobry den.
Pouzivam pomoci VC++ zkompilovany Perl 5.005_03 a Tk800.012 pod MS
Windows.

my $qm = $main->Menubutton(-relief => 'raised',
				   -text		=> 'Vyhledej
...',
				   -underline	=> 0
				  );
  $qm->command(
	       -label		=> 'Nabidka 1',
	       -command	=> sub { do();}
	      );

Nevite nahodou nekdo, proc kdyz si vyberu z nabidky (napr. se mi smekne
mys) takovej ten oddelovac
------------------ (v tomto pripade mezi "Vyhledej..." a "Nabidka 1"),
proc se mi celej
program kousne a ja ho musim killnout ?

Setkal se s tim nekdo, nevite jak toto neprijemne chovani obelstit ?

Dekuji.
Michal Polak.