module Idents
	names = case_sensitive

        objects = {
                separator = gadget ;
                label = gadget ;
                push_button = gadget ;
                toggle_button = gadget ;
                }

include file 'DECW$INCLUDE:DwtAppl.uil';

procedure
	WidgetCreated(integer);
	ListSelect(integer);

value
	k_widget_held_list:	8;
	k_widget_all_list:	9;

object
	idents_box: popup_dialog_box {
		controls {
			label		all_label;
			list_box	all_idents;
			label		held_label;
			list_box	held_idents;
			};
		};

	all_label: label {};

	all_idents: list_box {
		callbacks {
			create = procedure WidgetCreated(k_widget_all_list);
			single = procedure ListSelect(k_widget_all_list);
			};
		};

	held_label: label {};

	held_idents: list_box {
		callbacks {
			create = procedure WidgetCreated(k_widget_held_list);
			single = procedure ListSelect(k_widget_held_list);
			};
		};

end module;