my $menu = $menubar->cascade(-label => $text1, -tearoff => 0);