$appmenu = Tkx::widget->new(Tkx::menu($m->_mpath . ".apple"));
$menu->add_cascade(-menu => $appmenu);