/* --- The University of Birmingham 1995.  --------------------------------
 > File:            $poplocal/local/menu/auto/menu_dismiss_all.p
 > Purpose:         Get rid of all menus
 > Author:          Aaron Sloman, Jan 21 1995
 > Documentation:
 > Related Files:
 */

section;

define global menu_dismiss_all();
	;;; get rid of all menus
	appproperty(menu_lists,
		procedure(item,value);
			if XptIsLiveType(item, "Widget") then
				propsheet_hide(item);
			endif;
		endprocedure);
enddefine;

endsection;