value
	k_work_area_x:		100;
	k_work_area_spacing:	50;

procedure
	Quit();
	Read();
	Write();
	Remove();
	Access();
        Privs();
	Idents();
	Accounts();
	ReadIdentifiers();

object
	menu: menu_bar {
		arguments {
			orientation = DwtOrientationHorizontal;
		};
		controls {
			pulldown_entry commands_menu_entry;
			pulldown_entry windows_menu_entry;
			};
		};

	commands_menu_entry: pulldown_entry {
		controls {
			pulldown_menu commands_menu;
			};
		};

	commands_menu: pulldown_menu {
		controls {
			push_button	read_id_button;
			push_button	read_button;
			push_button     write_button;
			push_button     remove_button;
			push_button     quit_button;
			};
		};

	windows_menu_entry: pulldown_entry {
		controls {
			pulldown_menu windows_menu;
			};
		};

	windows_menu: pulldown_menu {
		controls {
			push_button     access_button;
			push_button     privs_button;
			push_button	accounts_button;
			push_button     idents_button;
			};
		};

	access_button: push_button {
		callbacks {
			activate = procedure Access;
			};
		};

	privs_button: push_button {
		callbacks {
			activate = procedure Privs;
			};
		};

	accounts_button: push_button {
		callbacks {
			activate = procedure Accounts;
			};
		};


	idents_button: push_button {
		callbacks {
			activate = procedure Idents;
			};
		};

object
	functions: work_area_menu {
		arguments {
			orientation = DwtOrientationHorizontal;
			x = k_work_area_x;
			y = k_functions_y;
			spacing = k_work_area_spacing;
			border_width = 1;
			entry_border_width = 2;
			};
		controls {
			push_button	read_button;
			push_button     write_button;
			push_button     remove_button;
			push_button     quit_button;
			};
		};

	read_id_button: push_button widget {
		callbacks {
			activate = procedure ReadIdentifiers;
			};
		};

	read_button: push_button widget {
		callbacks {
			activate = procedure Read;
			};
		};

	write_button: push_button widget {
		callbacks {
			activate = procedure Write;
			};
		};

	remove_button: push_button widget {
		callbacks {
			activate = procedure Remove;
			};
		};

	quit_button: push_button widget {
		callbacks {
			activate = procedure Quit;
			};
		};