value
	k_disctly_button:	0;
	k_defcli_button:	1;
	k_lockpwd_button:	2;
	k_restricted_button:	3;
	k_disacnt_button:	4;
	k_diswelcom_button:	5;
	k_dismail_button:	6;
	k_nomail_button:	7;
	k_genpwd_button:	8;
	k_pwd_button:		9;
	k_pwd2_button:		10;
	k_audit_button:		11;
	k_disreport_button:	12;
	k_disreconnect_button:	13;
	k_autologin_button:	14;
	k_disforce_button:	15;
	k_captive_button:	16;
	k_disimage_button:	17;
	k_dispwddic_button:	18;
	k_dispwdhis_button:	19;

	k_disctly_label_text:		"Disctly";
	k_defcli_label_text:		"Defcli";
	k_lockpwd_label_text:  		"Lockpwd";
	k_restricted_label_text:	"Restricted";	! old captive becomes restricted
	k_disacnt_label_text:		"Disuser";	! disable accnt = disable user ?
	k_diswelcom_label_text:		"Diswelcome";	! looks better with the 'e'
	k_dismail_label_text:		"Dismail";
	k_nomail_label_text:		"Disnewmail";	! ??
	k_genpwd_label_text:		"Genpwd";
	k_pwd_label_text:      		"Pwd Exp";
	k_pwd2_label_text:		"Pwd2 Exp";
	k_audit_label_text:		"Audit";
	k_disreport_label_text:		"Disreport";
	k_disreconnect_label_text:	"Disreconnect";
	k_autologin_label_text:		"Autologin";
	k_disforce_label_text:		"Disforce";
	k_disimage_label_text:		"Disimage";
	k_captive_label_text:		"Captive";
	k_dispwddic_label_text:		"Dispwddic";
	k_dispwdhis_label_text:		"Dispwdhis";

	k_widget_disctly:	k_disctly_button;
	k_widget_defcli:	k_defcli_button;
	k_widget_lockpwd:	k_lockpwd_button;
	k_widget_restricted:	k_restricted_button;
	k_widget_disacnt:	k_disacnt_button;
	k_widget_diswelcom:	k_diswelcom_button;
	k_widget_dismail:	k_dismail_button;
	k_widget_nomail:	k_nomail_button;
	k_widget_genpwd:	k_genpwd_button;
	k_widget_pwd:		k_pwd_button;
	k_widget_pwd2:		k_pwd2_button;
	k_widget_audit:		k_audit_button;
	k_widget_disreport:	k_disreport_button;
	k_widget_disreconnect:	k_disreconnect_button;
	k_widget_autologin:	k_autologin_button;
	k_widget_disforce:	k_disforce_button;
	k_widget_captive:	k_captive_button;
	k_widget_disimage:	k_disimage_button;
	k_widget_dispwddic:	k_dispwddic_button;
	k_widget_dispwdhis:	k_dispwdhis_button;

procedure
	FlagsCreated(integer);
	FlagsChanged(integer);

object
	sep1: XmSeparator {
		arguments {
			XmNx = k_main_width / 10;
			XmNwidth = k_main_width * 8 / 10;
			XmNy = k_flags_y - 2;
			};
		};

object
	sep2: XmSeparator {
		arguments {
			XmNx = k_main_width / 10;
			XmNwidth = k_main_width * 8 / 10;
			XmNy = k_line_6_y - 10;
			};
		};

object
	flags: XmRowColumn {
		arguments {
			XmNy = k_flags_y;
			XmNx = 30;
			XmNnumColumns = 4;
			XmNorientation = XmHORIZONTAL;
			XmNpacking = XmPACK_COLUMN;
			XmNspacing = 0;
			};
		controls {
			XmToggleButton audit_button;
			XmToggleButton autologin_button;
			XmToggleButton captive_button;
			XmToggleButton defcli_button;
			XmToggleButton disctly_button;
			XmToggleButton disforce_button;
			XmToggleButton disimage_button;
			XmToggleButton dismail_button;
			XmToggleButton nomail_button;
			XmToggleButton dispwddic_button;
			XmToggleButton dispwdhis_button;
			XmToggleButton disreconnect_button;
			XmToggleButton disreport_button;
			XmToggleButton disacnt_button;
			XmToggleButton diswelcom_button;
			XmToggleButton genpwd_button;
			XmToggleButton lockpwd_button;
			XmToggleButton pwd_button;
			XmToggleButton pwd2_button;
			XmToggleButton restricted_button;
			};
		callbacks {
			XmNhelpCallback = procedure Help("fields flags");
			};
		};

	disctly_button: XmToggleButton {
		arguments {
			XmNlabelString = k_disctly_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_disctly_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_disctly);
			};
		};

	defcli_button: XmToggleButton {
		arguments {
			XmNlabelString = k_defcli_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_defcli_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_defcli);
			};
		};

	lockpwd_button: XmToggleButton {
		arguments {
			XmNlabelString = k_lockpwd_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_lockpwd_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_lockpwd);
			};
		};

	restricted_button: XmToggleButton {
		arguments {
			XmNlabelString = k_restricted_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_restricted_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_restricted);
			};
		};

	disacnt_button: XmToggleButton {
		arguments {
			XmNlabelString = k_disacnt_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_disacnt_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_disacnt);
			};
		};

	diswelcom_button: XmToggleButton {
		arguments {
			XmNlabelString = k_diswelcom_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_diswelcom_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_diswelcom);
			};
		};

	dismail_button: XmToggleButton {
		arguments {
			XmNlabelString = k_dismail_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_dismail_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_dismail);
			};
		};

	nomail_button: XmToggleButton {
		arguments {
			XmNlabelString = k_nomail_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_nomail_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_nomail);
			};
		};

	genpwd_button: XmToggleButton {
		arguments {
			XmNlabelString = k_genpwd_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_genpwd_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_genpwd);
			};
		};

	pwd_button: XmToggleButton {
		arguments {
			XmNlabelString = k_pwd_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_pwd_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_pwd);
			};
		};

	pwd2_button: XmToggleButton {
		arguments {
			XmNlabelString = k_pwd2_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_pwd2_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_pwd2);
			};
		};

	audit_button: XmToggleButton {
		arguments {
			XmNlabelString = k_audit_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_audit_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_audit);
			};
		};

	disreport_button: XmToggleButton {
		arguments {
			XmNlabelString = k_disreport_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_disreport_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_disreport);
			};
		};

	disreconnect_button: XmToggleButton {
		arguments {
			XmNlabelString = k_disreconnect_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_disreconnect_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_disreconnect);
			};
		};

	autologin_button: XmToggleButton {
		arguments {
			XmNlabelString = k_autologin_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_autologin_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_autologin);
			};
		};

	disforce_button: XmToggleButton {
		arguments {
			XmNlabelString = k_disforce_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_disforce_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_disforce);
			};
		};

	disimage_button: XmToggleButton {
		arguments {
			XmNlabelString = k_disimage_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_disimage_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_disimage);
			};
		};

	captive_button: XmToggleButton {
		arguments {
			XmNlabelString = k_captive_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_captive_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_captive);
			};
		};

	dispwddic_button: XmToggleButton {
		arguments {
			XmNlabelString = k_dispwddic_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_dispwddic_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_dispwddic);
			};
		};

	dispwdhis_button: XmToggleButton {
		arguments {
			XmNlabelString = k_dispwdhis_label_text;
			XmNmarginHeight = k_flag_margin;
			};
		callbacks {
			XmNvalueChangedCallback = procedure FlagsChanged(k_dispwdhis_button);
			MrmNcreateCallback = procedure FlagsCreated(k_widget_dispwdhis);
			};
		};