value
	k_work_area_x:		100;
	k_work_area_spacing:	50;

	k_access_menu:		0;
	k_accounts_menu:	1;
	k_idents_menu:		2;
	k_privs_menu:		3;
	k_functions_menu:	4;
	k_find_menu:		5;
	k_find_button:		6;
	k_restart_button:	7;

	k_username_select:	0;
	k_account_select:	1;
	k_owner_select:		2;
	k_uic_select:		3;
	k_device_select:	4;
	k_directory_select:	5;
	k_cli_select:		6;
	k_lgicmd_select:	7;
	k_table_select:		8;
	k_lifetime_select:	9;
	k_expire_select:	10;
	k_logfail_select:	11;
	k_restart_select:	100;

procedure
	Quit();
	Read();
	Find();
	Write();
	Remove();
	Access();
        Privs();
	Idents();
	Accounts();
	ReadIdentifiers();
	ButtonCreated(integer);
	Select(integer);

object
	menu: XmMenuBar {
		arguments {
			XmNorientation = XmHORIZONTAL;
			XmNspacing = 10;
			XmNmenuHelpWidget = XmCascadeButton help_menu_entry;
		};
		controls {
			XmCascadeButton file_menu_entry;
			XmCascadeButton windows_menu_entry;
			XmCascadeButton select_menu_entry;
			XmCascadeButton help_menu_entry;
			};
		callbacks {
			XmNhelpCallback = procedure Help("menus");
			};
		};

	file_menu_entry: XmCascadeButton {
		arguments {
			XmNlabelString = "File";
 			XmNmnemonic = keysym('F');
			};
		controls {
			XmPulldownMenu commands_menu;
			};
		callbacks {
			XmNhelpCallback = procedure Help("menus file");
			};
		};

	windows_menu_entry: XmCascadeButton {
		arguments {
			XmNlabelString = "Windows";
 			XmNmnemonic = keysym('W');
			};
		controls {
			XmPulldownMenu windows_menu;
			};
		callbacks {
			XmNhelpCallback = procedure Help("menus windows");
			};
		};

	select_menu_entry: XmCascadeButton {
		arguments {
			XmNlabelString = "Select";
			XmNmnemonic = keysym('S');
			};
		controls {
			XmPulldownMenu select_menu;
			};
		callbacks {
			XmNhelpCallback = procedure Help("menus select");
			};
		};

	help_menu_entry: XmCascadeButton {
		arguments {
			XmNlabelString = "Help";
			XmNmnemonic = keysym('H');
			};
		controls {
			XmPulldownMenu help_menu;
			};
		};

	commands_menu: XmPulldownMenu {
		controls {
			XmPushButton	read_id_button;
			XmSeparator	{};
			XmPushButton	read_button;
			XmPushButton	find_menu_button;
			XmPushButton    write_button;
			XmPushButton    remove_button;
			XmPushButton    quit_button;
			};
		};

	windows_menu: XmPulldownMenu {
		controls {
			XmToggleButton  access_button;
			XmToggleButton	accounts_button;
			XmToggleButton  idents_button;
			XmToggleButton  privs_button;
			};
		};

	privs_button: XmToggleButton {
		arguments {
			XmNlabelString = "Privs...";
			};
		callbacks {
			MrmNcreateCallback = procedure ButtonCreated(k_privs_menu);
			XmNvalueChangedCallback = procedure Privs;
			XmNhelpCallback = procedure Help("menus windows privs");
			};
		};

	accounts_button: XmToggleButton {
		arguments {
			XmNlabelString = "Accounts...";
			};
		callbacks {
			MrmNcreateCallback = procedure ButtonCreated(k_accounts_menu);
			XmNvalueChangedCallback = procedure Accounts;
			XmNhelpCallback = procedure Help("menus windows accounts");
			};
		};

	idents_button: XmToggleButton {
		arguments {
			XmNlabelString = "Identifiers...";
			};
		callbacks {
			MrmNcreateCallback = procedure ButtonCreated(k_idents_menu);
			XmNvalueChangedCallback = procedure Idents;
			XmNhelpCallback = procedure Help("menus windows idents");
			};
		};

	access_button: XmToggleButton {
		arguments {
			XmNlabelString = "Access...";
			};
		callbacks {	
			MrmNcreateCallback = procedure ButtonCreated(k_access_menu);
			XmNvalueChangedCallback = procedure Access;
			XmNhelpCallback = procedure Help("menus windows access");
			};
		};

	select_menu: XmPulldownMenu {
		controls {
			XmPushButton	restart_button;
			XmSeparator	{};
			XmPushButton	username_button;
			XmPushButton	account_button;
			XmPushButton	owner_button;
			XmPushButton	uic_button;
			XmPushButton	device_button;
			XmPushButton	directory_button;
			XmPushButton	cli_button;
			XmPushButton	lgicmd_button;
			XmPushButton	table_button;
			XmPushButton 	lifetime_button;
			XmPushButton 	expire_button;
			XmPushButton 	logfail_button;
			};
		};

	restart_button: XmPushButton {
		arguments {
			XmNlabelString = "Reset search";
			XmNsensitive = false;
			};
		callbacks {	
			MrmNcreateCallback = procedure ButtonCreated(k_restart_button);
			XmNactivateCallback = procedure Select(k_restart_select);
			XmNhelpCallback = procedure Help("menus select restart");
			};
		};

	username_button: XmPushButton {
		arguments {
			XmNlabelString = "Username";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_username_select);
			};
		};

	account_button: XmPushButton {
		arguments {
			XmNlabelString = "Account";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_account_select);
			};
		};

	owner_button: XmPushButton {
		arguments {
			XmNlabelString = "Owner";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_owner_select);
			};
		};

	uic_button: XmPushButton {
		arguments {
			XmNlabelString = "UIC";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_uic_select);
			};
		};

	device_button: XmPushButton {
		arguments {
			XmNlabelString = "Device";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_device_select);
			};
		};

	directory_button: XmPushButton {
		arguments {
			XmNlabelString = "Directory";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_directory_select);
			};
		};

	cli_button: XmPushButton {
		arguments {
			XmNlabelString = "CLI";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_cli_select);
			};
		};

	lgicmd_button: XmPushButton {
		arguments {
			XmNlabelString = "LGICMD";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_lgicmd_select);
			};
		};

	table_button: XmPushButton {
		arguments {
			XmNlabelString = "DCL table";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_table_select);
			};
		};

	lifetime_button: XmPushButton {
		arguments {
			XmNlabelString = "Pwdlifetime";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_lifetime_select);
			};
		};

	expire_button: XmPushButton {
		arguments {
			XmNlabelString = "Expire date";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_expire_select);
			};
		};

	logfail_button: XmPushButton {
		arguments {
			XmNlabelString = "Login failures > 0";
			};
		callbacks {	
			XmNactivateCallback = procedure Select(k_logfail_select);
			};
		};


	help_menu: XmPulldownMenu {
		controls {
			XmPushButton	help_context;
			XmPushButton	help_window;
			XmPushButton	help_version;
			};
		};

	help_context: XmPushButton {
		arguments {
			XmNlabelString = "On Context";
			};
		callbacks {	
			XmNactivateCallback = procedure Help("context");
			};
		};


	help_window: XmPushButton {
		arguments {
			XmNlabelString = "On Window";
			};
		callbacks {	
			XmNactivateCallback = procedure Help("overview");
			};
		};


	help_version: XmPushButton {
		arguments {
			XmNlabelString = "On Version";
			};
		callbacks {	
			XmNactivateCallback = procedure Help("version");
			};
		};


object
	functions: XmRowColumn {
		arguments {
			XmNorientation = XmHORIZONTAL;
			XmNx = k_work_area_x;
			XmNy = k_functions_y;
			XmNspacing = k_work_area_spacing;
			XmNborderWidth = 1;
			};
		controls {
			XmPushButton	read_button;
			XmPushButton	find_button;
			XmPushButton    write_button;
			XmPushButton    remove_button;
			XmPushButton    quit_button;
			};
		callbacks {
			MrmNcreateCallback = procedure ButtonCreated(k_functions_menu);
			};
		};

	read_id_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Read Identifiers";
			};
		callbacks {
			XmNactivateCallback = procedure ReadIdentifiers;
			XmNhelpCallback = procedure Help("menus file read_identifiers");
			};
		};

	read_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Read";
			};
		callbacks {
			XmNactivateCallback = procedure Read;
			XmNhelpCallback = procedure Help("menus file read");
			};
		};

	find_menu_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Find Next";
			XmNsensitive = false;
!			XmNaccelerator = "<Key>osfPageDown:";
			};
		callbacks {
			MrmNcreateCallback = procedure ButtonCreated(k_find_menu);
			XmNactivateCallback = procedure Find;
			XmNhelpCallback = procedure Help("menus file find_next");
			};
		};

	find_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Find Next";
			XmNsensitive = false;
			};
		callbacks {
			MrmNcreateCallback = procedure ButtonCreated(k_find_button);
			XmNactivateCallback = procedure Find;
			XmNhelpCallback = procedure Help("menus file find_next");
			};
		};

	write_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Write";
			};
		callbacks {
			XmNactivateCallback = procedure Write;
			XmNhelpCallback = procedure Help("menus file write");
			};
		};

	remove_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Remove";
			};
		callbacks {
			XmNactivateCallback = procedure Remove;
			XmNhelpCallback = procedure Help("menus file remove");
			};
		};

	quit_button: XmPushButton widget {
		arguments {
			XmNlabelString = "Quit";
			XmNacceleratorText = "Ctrl/Z";
			XmNaccelerator = "Ctrl<Key>z:";
			};
		callbacks {
			XmNactivateCallback = procedure Quit;
			XmNhelpCallback = procedure Help("menus file quit");
			};
		};