my $m = $mw->Menu(-tearoff => 0);