my $menubutton = $userframe->Menubutton(-text=>"font" , )->pack(-side=>'left'); #$menubutton->cascade(-label => "preference",-command => sub{ pref{}}); $menubutton->command(-label => "change", -command => sub {print "command font \n"; my $font = $mw->FontDialog->Show; if (defined $font) { $mw->RefontTree(-font => $font); } });