module Idents
	names = case_sensitive

        objects = {
                XmSeparator = gadget;
                XmLabel = gadget;
                XmPushButton = gadget;
                XmToggleButton = gadget;
                }

procedure
	WidgetCreated(integer);
	ListSelect(integer);
	Help(string);

value
	k_widget_held_list:	8;
	k_widget_all_list:	9;

object
	idents_box: XmBulletinBoardDialog {
		arguments {
			XmNdialogTitle = "DWProfile: Rightslist Identifiers";
			XmNdefaultPosition = false;
		};
		controls {
			XmForm		idents_form;
			};
		callbacks {
			XmNhelpCallback = procedure Help("menus windows idents");
			};
		};

	idents_form: XmForm {
		controls {
			XmForm		all_form;
			XmForm		held_form;
			};
		};

	all_form: XmForm {
		controls {
			XmLabel		all_label;
			XmScrolledList	all_idents;
			};
		};

	held_form: XmForm {
		arguments {
			XmNleftAttachment = XmATTACH_WIDGET;
			XmNleftWidget = all_form;
			XmNleftOffset = 10;
			};
		controls {
			XmLabel		held_label;
			XmScrolledList	held_idents;
			};
		};

	all_label: XmLabel {
		arguments {
			XmNlabelString = "Click here to add identifiers";
			};
		};

	all_idents: XmScrolledList {
		arguments {
			XmNtopAttachment = XmATTACH_WIDGET;               
			XmNtopWidget = all_label;
			XmNleftAttachment = XmATTACH_FORM;               
			XmNrightAttachment = XmATTACH_FORM;               
			XmNvisibleItemCount = 6;
			XmNselectionPolicy = XmSINGLE_SELECT;
			XmNscrollBarDisplayPolicy = XmSTATIC;
			};
		callbacks {
			MrmNcreateCallback = procedure WidgetCreated(k_widget_all_list);
			XmNsingleSelectionCallback = procedure ListSelect(k_widget_all_list);
			};
		};

	held_label: XmLabel {
		arguments {
			XmNlabelString = "Click here to remove identifiers";
			};
		};

	held_idents: XmScrolledList {
		arguments {
			XmNtopAttachment = XmATTACH_WIDGET;               
			XmNtopWidget = held_label;
			XmNleftAttachment = XmATTACH_FORM;
			XmNrightAttachment = XmATTACH_FORM;
			XmNvisibleItemCount = 6;
			XmNselectionPolicy = XmSINGLE_SELECT;
			XmNscrollBarDisplayPolicy = XmSTATIC;
			};
		callbacks {
			MrmNcreateCallback = procedure WidgetCreated(k_widget_held_list);
			XmNsingleSelectionCallback = procedure ListSelect(k_widget_held_list);
			};
		};
end module;