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