module Access
	names = case_sensitive

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

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

procedure
	WidgetCreated(integer);

value
	k_prime_y:		5;
	k_hours_y:		k_prime_y + 30;
	k_label_deltax:		5;	! offset from left side of adb to label
	k_label_adb_offset:	2;	! offset from top of adb to label (to align with widget)

object
	access_box: popup_dialog_box {
		controls {
			attached_dialog_box	prime;
			separator		sep3;
			attached_dialog_box	hours;
			};
		};

value
	k_monday_button:	0;
	k_tuesday_button:	1;
	k_wednesday_button:	2;
	k_thursday_button:	3;
	k_friday_button:	4;
	k_saturday_button:	5;
	k_sunday_button:	6;

procedure
	PrimeCreated(integer);
	PrimeChanged(integer);

object
	prime: attached_dialog_box {
		arguments {
			x = 5;
			y = k_prime_y;
			};
		controls {
			label		prime_label;
			radio_box	prime_box;
			};
		};

	prime_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_label_deltax;
			adb_top_attachment = DwtAttachAdb;
			adb_top_offset = k_label_adb_offset;     
			};
		};

	prime_box: radio_box {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			orientation = DwtOrientationHorizontal;
			menu_radio = false;
			radio_always_one = false;
			menu_packing = DwtMenuPackingTight;
			};
		controls {
			toggle_button	monday_button;
			toggle_button	tuesday_button;
			toggle_button	wednesday_button;
			toggle_button	thursday_button;
			toggle_button	friday_button;
			toggle_button	saturday_button;
			toggle_button	sunday_button;
			};
		};


	sunday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_sunday_button);
			value_changed = procedure PrimeChanged(k_sunday_button);
			};
		};

	monday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_monday_button);
			value_changed = procedure PrimeChanged(k_monday_button);
			};
		};

	tuesday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_tuesday_button);
			value_changed = procedure PrimeChanged(k_tuesday_button);
			};
		};

	wednesday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_wednesday_button);
			value_changed = procedure PrimeChanged(k_wednesday_button);
			};
		};

	thursday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_thursday_button);
			value_changed = procedure PrimeChanged(k_thursday_button);
			};
		};

	friday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_friday_button);
			value_changed = procedure PrimeChanged(k_friday_button);
			};
		};

	saturday_button: toggle_button {
		callbacks {
			create = procedure PrimeCreated(k_saturday_button);
			value_changed = procedure PrimeChanged(k_saturday_button);
			};
		};


value
	k_widget_network_prime:		36;
	k_widget_network_secondary:	37;
	k_widget_batch_prime:		38;
	k_widget_batch_secondary:	39;
	k_widget_local_prime:		40;
	k_widget_local_secondary:	41;
	k_widget_dialup_prime:		42;
	k_widget_dialup_secondary:	43;
	k_widget_remote_prime:		44;
	k_widget_remote_secondary:	45;

	k_prime_label_tab:		5;
	k_prime_hour_tab:		100;
	k_secondary_label_tab:		300;
	k_secondary_hour_tab:		400;
	k_hours_height:			16;

object
	sep3: separator widget {};

object
	hours: attached_dialog_box {
		arguments {
			x = 5;
			y = 35;
			};
		controls {
			label	primary_label;
			label	primary_hours;
			label	secondary_label;
			label	secondary_hours;
			attached_dialog_box network;
			attached_dialog_box batch;
			attached_dialog_box local;
			attached_dialog_box dialup;
			attached_dialog_box remote;
			};
		};

	primary_label: label {
		arguments {
			x = k_prime_label_tab;
			};
		};

	primary_hours: label {
		arguments {
			x = k_prime_hour_tab;
			};
		};

	secondary_label: label {
		arguments {
			x = k_secondary_label_tab;
			};
		};

	secondary_hours: label {
		arguments {
			x = k_secondary_hour_tab;
			};
		};

	network: attached_dialog_box {
		arguments {
			y = 30;
			};
		controls {
			label	network_prime_label;
			window	network_prime_window;
			label	network_secondary_label;
			window	network_secondary_window;
			};
		};

	network_prime_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_label_tab;
			};
		};

	network_prime_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_network_prime);
			};
		};

	network_secondary_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_label_tab;
			};
		};

	network_secondary_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_network_secondary);
			};
		};

	batch: attached_dialog_box {
		arguments {
			y = 50;
			};
		controls {
			label	batch_prime_label;
			window	batch_prime_window;
			label	batch_secondary_label;
			window	batch_secondary_window;
			};
		};

	batch_prime_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_label_tab;
			};
		};

	batch_prime_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_batch_prime);
			};
		};

	batch_secondary_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_label_tab;
			};
		};

	batch_secondary_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_batch_secondary);
			};
		};

	local: attached_dialog_box {
		arguments {
			y = 70;
			};
		controls {
			label	local_prime_label;
			window	local_prime_window;
			label	local_secondary_label;
			window	local_secondary_window;
			};
		};

	local_prime_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_label_tab;
			};
		};

	local_prime_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_local_prime);
			};
		};

	local_secondary_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_label_tab;
			};
		};

	local_secondary_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_local_secondary);
			};
		};

	dialup: attached_dialog_box {
		arguments {
			y = 90;
			};
		controls {
			label	dialup_prime_label;
			window	dialup_prime_window;
			label	dialup_secondary_label;
			window	dialup_secondary_window;
			};
		};

	dialup_prime_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_label_tab;
			};
		};

	dialup_prime_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_dialup_prime);
			};
		};

	dialup_secondary_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_label_tab;
			};
		};

	dialup_secondary_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_dialup_secondary);
			};
		};

	remote: attached_dialog_box {
		arguments {
			y = 110;
			};
		controls {
			label	remote_prime_label;
			window	remote_prime_window;
			label	remote_secondary_label;
			window	remote_secondary_window;
			};
		};

	remote_prime_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_label_tab;
			};
		};

	remote_prime_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_prime_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_remote_prime);
			};
		};

	remote_secondary_label: label {
		arguments {
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_label_tab;
			};
		};

	remote_secondary_window: window {
		arguments {
			height = k_hours_height;
			adb_left_attachment = DwtAttachAdb;
			adb_left_offset = k_secondary_hour_tab;
			};
		callbacks {
			create = procedure WidgetCreated(k_widget_remote_secondary);
			};
		};

end module;