DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦30cc123f0⟧ TextFile

    Length: 38346 (0x95ca)
    Types: TextFile
    Notes: UNIX file
    Names: »periodic.uil«

Derivation

└─⟦a85bd4a7c⟧ Bits:30004636/disk2.imd INTERACTIVE Motif Environment Development System
└─⟦a85bd4a7c⟧ UNIX Filesystem
    └─⟦this⟧ »xt/new/usr/lib/X11/examples/periodic/periodic.uil« 

TextFile

!OSF/Motif: @(#)periodic.uil	1.1 - 89/08/30 - 12:06:56
!************************************************************
!*                                                         **
!*                                                         **
!*   (c) Copyright, 1989 Open Software Foundation, Inc.    **
!*   All Rights Reserved                                   **
!*                                                         **
!*   Author: Michael K. Yee                                **
!*   Date: August 21, 1989                                 **
!*                                                         **
!*                                                         **
!***********************************************************/
!

module sample 
    version = 'v1.0'
    names = case_sensitive
    objects = {
	XmSeparator = gadget;
	XmLabel = gadget;
	XmPushButton = gadget;
	XmToggleButton = gadget;
	}


!include file 'XmAppl.uil';

procedure
    create_callback(integer);
    quit_button_activate();
    foo_activate();
    zippy_null();

value
!
! WIDGET DEF
!
	K_scale_widget          : 1;
	K_drawnbutton_widget    : 2;
	K_togglebutton_widget   : 3;
	K_vtext1_widget         : 4;
	K_vtext2_widget         : 5;
	K_popup_menu_widget     : 6;
!
! WIDGET LOCATIONS
!
    fudge : 2;
    dialog_fudge : 10;
    heading_fudge_x : 40;
    heading_fudge_y : 25;
!!
!! TEXT LOCATION FOR ADOBE FONTS
!!
!    title_x : 270;
!    title_y : 25;
!    subtitle_x : title_x + 90;
!    subtitle_y : title_y + 30;
!    dont_panic_x : 15;
!    dont_panic_y : 15;
!    radioactive_x : 70;
!    radioactive_y : 635;
!    radioactive_height : 100;
!    radioactive_width : 185;
!    radioactive_title_x : radioactive_x - 60;
!    radioactive_title_y : radioactive_y + 5;
!
! TEXT LOCATION FOR MIT FONTS
!
    title_x : 200;
    title_y : 25;
    subtitle_x : title_x + 60;
    subtitle_y : title_y + 30;
    dont_panic_x : 7;
    dont_panic_y : 17;
    radioactive_x : 10;
    radioactive_y : 635;
    radioactive_height : 100;
    radioactive_width : 200;
    radioactive_title_x : radioactive_x;
    radioactive_title_y : radioactive_y - 35;

    table_origin_x : 100;
    table_origin_y : 95;

    element_height : 100;
    element_width : 100;

    element_vert_sep : 10;
    element_horiz_sep : 10;

    centre_box_x : table_origin_x + (element_width * 2) + fudge;
    centre_box_y : table_origin_y + (element_height * 2) + fudge;
    centre_box_width : 380;
    centre_box_height : 300 - fudge;

    legend_x : centre_box_x + (centre_box_width/2) - 35;
    legend_y : centre_box_y - 160;

!!
!! ADOBE FONTS
!!
!    dialog_font : font('helvetica_bold12');
!    subtitle_font : font('newcenturyschlbk_roman14');
!    heading_font : font('newcenturyschlbk_roman14');
!    var_font : font('variable');
!    hel_bold_font : font('helvetica_bold12');
!    hel_bold_font14 : font('helvetica_bold14');
!    newcenturyschlbk_roman14 : font('newcenturyschlbk_roman14');
!    newcenturyschlbk_roman12 : font('newcenturyschlbk_roman12');
!    newcenturyschlbk_bold14 : font('newcenturyschlbk_bold14');
!    newcenturyschlbk_bold24 : font('newcenturyschlbk_bold24');
!    times_bold_font : font('times_bold18');
!
! MIT FONTS
!
    dialog_font : font('fixed');
    subtitle_font : font('vr-20');
    heading_font : font('vr-20');
    var_font : font('variable');
    hel_bold_font : font('variable');
    hel_bold_font14 : font('variable');
    newcenturyschlbk_roman14 : font('variable');
    newcenturyschlbk_roman12 : font('variable');
    newcenturyschlbk_bold14 : font('variable');
    newcenturyschlbk_bold24 : font('vbee-36');
    times_bold_font : font('vmic-25');
!
! COLORS and ICONS
!
value black  : color('black',foreground);
value white  : color('LightGray',background);

value motif_colors : color_table(black = 'x',white=' ');
value motif_icon : icon(color_table = motif_colors,
'                                                        ',
'                                                        ',
'                                                        ',
'                                                        ',
'                                                        ',
'                                                        ',
'       x x x x x x x x x x x     x x x x x x x x x x x  ',
'        x x x x x x x x x x       x x x x x x x x x x   ',
'      x                      x  x                      x',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x xxxxxxxxxxxxxxxxxx xx   x x x x x x x x x x  xx',
'      x  xxxxxxxxxxxxxxxxxx xx  x   x x x x x x x x x xx',
'       x                     x   x                     x',
'      x  xxxxxxxxxxxxxxxxxx     x  xxxxxxxxxxxxxxxxxx   ',
'        xxxxxxxxxxxxxxxxxxxx      xxxxxxxxxxxxxxxxxxxx  ',
'                                                        ',
'                                                        ',
'       x x x x x x x x x x x     x x x x x x x x x x x  ',
'        x x x x x x x x x x       x x x x x x x x x x   ',
'      x                      x  x                      x',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x x x x x x x x x x  xx   x xxxxxxxxxxxxxxxxxx xx',
'      x   x x x x x x x x x xx  x  xxxxxxxxxxxxxxxxxx xx',
'       x                     x   x                     x',
'      x  xxxxxxxxxxxxxxxxxx     x  xxxxxxxxxxxxxxxxxx   ',
'        xxxxxxxxxxxxxxxxxxxx      xxxxxxxxxxxxxxxxxxxx  ',
'                                                        ');

value my_colors : color_table(black = 'o',white='.',white=' ');
value my_picture : icon(color_table = my_colors,
'                                              ',
' ............................................ ',
' ..........oo....................oo.......... ',
' .........oooo..................oooo......... ',
' ........oooooo................oooooo........ ',
' .......oo....oo..............oo....oo....... ',
' ......oo......oo............oo......oo...... ',
' .....oo........oo..........oo........oo..... ',
' ....oo..........oo........oo..........oo.... ',
' ...oo............oo......oo............oo... ',
' ..oo..............oo....oo..............oo.. ',
' .oo................oo..oo................oo. ',
' oooooooooooooooooooooooooooooooooooooooooooo ',
' oooooooooooooooooooooooooooooooooooooooooooo ',
' .........oooo..................oooo......... ',
' .........oooo..................oooo......... ',
' .........oooo..................oooo......... ',
' .........oooo..................oooo......... ',
' .........oooo..................oooo......... ',
' ............................................ ',
' ............................................ ',
' ............................................ ',
' ............................................ ',
' ..................oooooooo.................. ',
' ..................oooooooo.................. ',
' ............................................ ',
' ............................................ ',
' ............................................ ',
' ...........oo..................oo........... ',
' ............oo................oo............ ',
' .............oooooooooooooooooo............. ',
' ..............oooooooooooooooo.............. ',
' ............................................ ',
' ............................................ ',
' ............................................ ',
'                                              ');


list atomic_number_args : arguments {
	XmNfontList = newcenturyschlbk_roman14;
	XmNrightAttachment = 1;
	XmNtopAttachment = 1;
	XmNshadowThickness = 1;
};

list element_name_args : arguments {
	XmNfontList = newcenturyschlbk_roman14;
	XmNshadowThickness = 1;
	XmNleftAttachment = 1;
	XmNrightAttachment = 1;
	XmNbottomAttachment = 1;
	XmNalignment = 1;
};

list dialog_args : arguments {
	XmNmarginWidth = 3;
	XmNmarginHeight = 3;
	XmNlabelFontList = dialog_font;
	XmNtextFontList = newcenturyschlbk_roman12;
	XmNshadowThickness = 1;
};

list menus_args : arguments {
	XmNfontList = hel_bold_font14;
};

!! Main
!
object
    periodic_table_main : XmMainWindow {
	arguments {
	    XmNx = 10;
	    XmNy = 10;
!	    width = 976;
!	    height = 732;
	    XmNwidth = 960;
	    XmNheight = 710;
	    XmNscrollingPolicy = 0;
	};
	controls {
		XmMenuBar	menu_bar_1;
		XmBulletinBoard	my_work_area;
!		command		command_1;
	};
    };

object
    my_work_area : XmBulletinBoard {
        arguments {
	XmNwidth = 500;
	XmNheight = 500;
	XmNborderWidth = 2;
	XmNlabelFontList = hel_bold_font;
        };
	controls {
		XmLabel		title_1;
		XmLabel		title_2;
!		label		title_version;

		XmLabel		heading_0;
		XmLabel		heading_1;
		XmLabel		heading_2;
		XmLabel		heading_center;
		XmLabel		heading_3;
		XmLabel		heading_4;

		XmLabel		heading_legend;
		XmLabel		legend_arrow_1;
		XmLabel		legend_arrow_2;
		XmLabel		legend_arrow_3;
		XmLabel		legend_text_1;
		XmLabel		legend_text_2;
		XmLabel		legend_text_3;
		XmFrame		frame_legend;

		XmFrame		frame_11;
		XmFrame		frame_12;
		XmFrame		frame_13;
		XmFrame		frame_14;
		XmFrame		frame_15;

		XmFrame		frame_22;
		XmFrame		frame_23;
		XmFrame		frame_24;
		XmFrame		frame_25;

		XmFrame		frame_file_selection;

		XmFrame		frame_33;
		XmFrame		frame_34;
		XmFrame		frame_35;

		XmFrame		frame_42;
		XmFrame		frame_43;
		XmFrame		frame_44;
!		frame		frame_45;

		XmFrame		frame_dialog_1;
		XmFrame		frame_dialog_2;
		XmFrame		frame_dialog_3;
		XmFrame		frame_dialog_4;
		XmFrame		frame_dialog_5;
	};
};

object
    title_version: XmLabel {
	arguments {
	XmNx = 718;
	XmNy = 62;
	XmNfontList = newcenturyschlbk_roman12;
	XmNlabelString = "V0.9";
	};
    };

object
    title_1: XmLabel {
	arguments {
	XmNx = title_x;
	XmNy = title_y;
	XmNfontList = newcenturyschlbk_bold24;
	XmNlabelString = "The Periodic Table of Motif Widgets";
	};
    };

object
    title_2: XmLabel {
	arguments {
	XmNx = subtitle_x;
	XmNy = subtitle_y;
	XmNfontList = subtitle_font;
	XmNlabelString = "Open Software Foundation, Inc. - July 1989";
	};
    };

object
    heading_0: XmLabel {
	arguments {
	XmNx = radioactive_title_x;
	XmNy = radioactive_title_y;
	XmNfontList = newcenturyschlbk_roman14;
	XmNlabelString = compound_string('*Dialog',separate=true)
						& 'Boxes';
	XmNalignment = 2;
	};
    };


!! LEGEND
!
object
    heading_legend: XmLabel {
	arguments {
	XmNx = legend_x - 55;
	XmNy = legend_y + 15;
	XmNfontList = newcenturyschlbk_bold14;
!	label_string = "Legend";
	XmNlabelString =  compound_string('Key',separate=true) &
			compound_string('To',separate=true)
						& 'Chart';
	XmNalignment = 2;
	};
    };

object
    legend_text_1: XmLabel {
	arguments {
	XmNx = legend_x + 118;
	XmNy = legend_y + 3;
	XmNfontList = newcenturyschlbk_roman12;
	XmNlabelString = "Atomic Number";
	XmNalignment = 1;
	};
    };

object
    legend_text_2: XmLabel {
	arguments {
	XmNx = legend_x + 118;
	XmNy = legend_y + 33;
	XmNfontList = newcenturyschlbk_roman12;
	XmNlabelString = "Actual Widget";
	XmNalignment = 1;
	};
    };

object
    legend_text_3: XmLabel {
	arguments {
	XmNx = legend_x + 118;
	XmNy = legend_y + 73;
	XmNfontList = newcenturyschlbk_roman12;
	XmNlabelString = "Widget Name";
	XmNalignment = 1;
	};
    };

object
    legend_arrow_1 : XmLabel {
	arguments {
	XmNx = legend_x + 105;
	XmNy = legend_y + 5;
	XmNfontList = var_font;
	XmNlabelString = "_";
	};
    };

object
    legend_arrow_2 : XmLabel {
	arguments {
	XmNx = legend_x + 105;
	XmNy = legend_y + 35;
	XmNfontList = var_font;
	XmNlabelString = "_";
	};
    };

object
    legend_arrow_3 : XmLabel {
	arguments {
	XmNx = legend_x + 105;
	XmNy = legend_y + 75;
	XmNfontList = var_font;
	XmNlabelString = "_";
	};
    };

object
    frame_legend: XmFrame {
	arguments {
	XmNx = legend_x;
	XmNy = legend_y;
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height - fudge;
	        };
		controls {
		    XmSeparator	separator_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '1';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'separator';
			};
		    };
		};
	    };
	};
    };

!! COLUMN ONE
!
object
    heading_1: XmLabel {
	arguments {
	XmNx = table_origin_x + heading_fudge_x;
	XmNy = table_origin_y - heading_fudge_y;
	XmNfontList = heading_font;
	XmNlabelString = "Ia";
	XmNalignment = 1;
	};
    };

object
    frame_11: XmFrame {
	arguments {
	XmNx = table_origin_x;
	XmNy = table_origin_y;
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height - fudge;
	        };
		controls {
		    XmSeparator	separator_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '1';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'separator';
			};
		    };
		};
	    };
	};
};

!%%%%%%%%%%
object
    frame_12: XmFrame {
	arguments {
	XmNx = table_origin_x;
	XmNy = table_origin_y + (element_height * 1);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmArrowButton	arrow_button_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '2';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'arrow button';
			};
		    };
		};
	    };
	};
};

!%%%%%%%%%%
object
    frame_13: XmFrame {
	arguments {
	XmNx = table_origin_x;
	XmNy = table_origin_y + (element_height * 2);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmPushButton	push_button_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '3';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'pushbutton';
			};
		    };
		};
	    };
	};
};

!%%%%%%%%%%
object
    frame_14: XmFrame {
	arguments {
	XmNx = table_origin_x;
	XmNy = table_origin_y + (element_height * 3);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmToggleButton	toggle_button_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '4';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'togglebutton';
			};
		    };
		};
	    };
	};
};

object
    frame_15: XmFrame {
	arguments {
	XmNx = table_origin_x;
	XmNy = table_origin_y + (element_height * 4);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmLabel	label_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '5';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'label';
			};
		    };
		};
	    };
	};
};


!! COLUMN TWO
!
object
    heading_2: XmLabel {
	arguments {
	XmNx = table_origin_x + (element_width * 1) + heading_fudge_x;
	XmNy = table_origin_y  + (element_height * 1) - heading_fudge_y;
	XmNfontList = heading_font;
	XmNlabelString = "IIa";
	XmNalignment = 1;
	};
    };

object
    frame_22: XmFrame {
	arguments {
	XmNx = table_origin_x + (element_width * 1);
	XmNy = table_origin_y + (element_height * 1);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmOptionMenu	option_menu_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '6';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'option menu';
			};
		    };
		};
	    };
	};
};

object
    frame_23: XmFrame {
	arguments {
	XmNx = table_origin_x + (element_width * 1);
	XmNy = table_origin_y + (element_height * 2);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmScale	scale_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '7';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'scale';
			};
		    };
		};
	    };
	};
};

object
    frame_24: XmFrame {
	arguments {
	XmNx = table_origin_x + (element_width * 1);
	XmNy = table_origin_y + (element_height * 3);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmRadioBox	radio_box_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '8';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'radio box';
			};
		    };
		};
	    };
	};
};

object
    frame_25: XmFrame {
	arguments {
	XmNx = table_origin_x + (element_width * 1);
	XmNy = table_origin_y + (element_height * 4);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmText	text_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '9';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'text edit';
			};
		    };
		};
	    };
	};
};

!! COLUMN THREE
!
object
    heading_3: XmLabel {
	arguments {
	XmNx = centre_box_x + centre_box_width + heading_fudge_x - 5;
	XmNy = table_origin_y + (element_height * 2) + fudge - heading_fudge_y;
	XmNfontList = heading_font;
	XmNlabelString = "IVa";
	XmNalignment = 1;
	};
    };

object
    frame_33: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + fudge;
	XmNy = table_origin_y + (element_height * 2) + fudge;
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width - fudge;
		XmNheight = element_height - fudge;
	        };
		controls {
		    XmScrollBar	scrollbar_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '11';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'scroll bar';
			};
		    };
		};
	    };
	};
};

object
    frame_34: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + fudge;
	XmNy = table_origin_y + (element_height * 3);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width - fudge;
		XmNheight = element_height - fudge;
	        };
		controls {
		    XmFrame {
			arguments {
			    XmNx = 13;
			    XmNy = 23;
			};
			controls {
			    XmScrolledList list_box_1;
			};
		    };
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '12';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'scrolled list';
			};
		    };
		};
	    };
	};
};

object
    frame_35: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + fudge;
	XmNy = table_origin_y + (element_height * 4);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width * 2;
		XmNheight = element_height;
	        };
		controls {
		    XmFrame {
			arguments {
			    XmNx = 5;
			    XmNy = 2;
			    XmNwidth = 100;
			};
			controls {
			    XmPanedWindow paned_window_1;
			};
		    };
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '16';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'paned window';
			};
		    };
		};
	    };
	};
};

!! COLUMN FOUR
!
object
    heading_4: XmLabel {
	arguments {
	XmNx = centre_box_x + centre_box_width + element_width + heading_fudge_x;
	XmNy = table_origin_y + (element_height * 1) - heading_fudge_y;
	XmNfontList = heading_font;
	XmNlabelString = "Va";
	XmNalignment = 1;
	};
    };

object
    frame_42: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + element_width + fudge;
	XmNy = table_origin_y + (element_height * 1);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmFrame popup_menu_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '13';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'popup menu';
			};
		    };
		};
	    };
	};
};

object
    frame_43: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + element_width + fudge;
	XmNy = table_origin_y + (element_height * 2);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmFrame draw_area_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '14';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'drawing area';
			};
		    };
		};
	    };
	};
};

object
    frame_44: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + element_width + fudge;
	XmNy = table_origin_y + (element_height * 3);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmDrawnButton drawn_button_1;
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '15';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'drawnbutton';
			};
		    };
		};
	    };
	};
};

object
    frame_45: XmFrame {
	arguments {
	XmNx = centre_box_x + centre_box_width + element_width + fudge;
	XmNy = table_origin_y + (element_height * 4);
	};
	controls {
	    XmForm {
	        arguments {
		XmNwidth = element_width;
		XmNheight = element_height;
	        };
		controls {
		    XmFrame {
			arguments {
			    XmNx = 13;
			    XmNy = 23;
			};
			controls {
			    XmScrolledList list_box_1;
			};
		    };
		    XmLabel {
			arguments {
			    arguments atomic_number_args;
			    XmNlabelString = '16';
			};
		    };
		    XmPushButton {
			arguments {
			    arguments element_name_args;
			    XmNlabelString = 'list box';
			};
		    };
		};
	    };
	};
};

!! CENTRE FILE SELECTION
!
object
    heading_center: XmLabel {
	arguments {
	XmNx = centre_box_x + (centre_box_width/2);
	XmNy = centre_box_y - heading_fudge_y;
	XmNfontList = heading_font;
	XmNlabelString = "IIIb";
	XmNalignment = 1;
	};
    };

object
    frame_file_selection: XmFrame {
	arguments {
	XmNx = centre_box_x;
	XmNy = centre_box_y;
	XmNmarginWidth = 0;
	XmNmarginHeight = 0;
	};
	controls {
	    XmForm {
		arguments {
		    XmNwidth = centre_box_width;
		    XmNheight = centre_box_height;
		XmNresizePolicy = 0;
	    	};
		controls {
	    	XmFrame	file_selection_box_1;
		XmLabel {
		    arguments {
			arguments atomic_number_args;
			    XmNlabelString = '10';
		    };
		};
		XmPushButton {
		    arguments {
			arguments element_name_args;
			    XmNlabelString = 'file selection*';
		    };
		};
	    };
	};
    };
};

!! DIALOGS
!
object
    frame_dialog_1: XmFrame {
	arguments {
	XmNx = radioactive_x;
	XmNy = radioactive_y;
!	shadow_thickness = 1;
	};
	controls {
	XmMessageBox	message_box_1;
	};
};

object
    frame_dialog_2: XmFrame {
	arguments {
	XmNx = radioactive_x + (radioactive_width * 1) - dialog_fudge;
	XmNy = radioactive_y;
!	shadow_thickness = 3;
	};
	controls {
	XmMessageBox	message_box_2;
	};
};

object
    frame_dialog_3: XmFrame {
	arguments {
	XmNx = radioactive_x + (radioactive_width * 2) - (dialog_fudge * 2);
	XmNy = radioactive_y;
!	shadow_thickness = 3;
	};
	controls {
	XmMessageBox	message_box_4;
	};
};

object
    frame_dialog_4: XmFrame {
	arguments {
	XmNx = radioactive_x + (radioactive_width * 3) - (dialog_fudge * 1);
	XmNy = radioactive_y;
!	shadow_thickness = 3;
	};
	controls {
	XmMessageBox	message_box_5;
	};
};

object
    frame_dialog_5: XmFrame {
	arguments {
	XmNx = radioactive_x + (radioactive_width * 4) - (dialog_fudge * 2);
	XmNy = radioactive_y;
!	shadow_thickness = 3;
	};
	controls {
	XmMessageBox	message_box_6;
	};
};

object
    open_dialog: XmQuestionDialog {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('What are you',separate=true)
						& 'looking in here for?';
        };
};

!%% Display Widgets
!%%
object
    separator_1 : XmSeparator {
	arguments {
	XmNwidth = 80;
	XmNx = 10;
	XmNy = 40;
	XmNorientation = 2;
	XmNshadowThickness = 4;
	};
    };

object
    arrow_button_1 : XmArrowButton {
	arguments {
	XmNx = 25;
	XmNy = 20;
	XmNwidth = 50;
	XmNheight = 50;
	XmNarrowDirection = 0;
	};
    };

object
    toggle_button_1 : XmToggleButton {
	arguments {
	XmNx = 20;
	XmNy = 30;
	XmNfontList = hel_bold_font;
	XmNlabelString = 'Lights';
	XmNshadowThickness = 1;
	};
	callbacks {
            XmNcreateCallback = procedure create_callback (K_togglebutton_widget);
	};
    };

object
    push_button_1 : XmPushButton {
	arguments {
	XmNx = 20;
	XmNy = 25;
	XmNfontList = hel_bold_font;
	XmNlabelString = compound_string('Explode',separate=true) & 'Building';
!	shadow_thickness = 1;
	};
    };

object
    drawn_button_1 : XmDrawnButton {
	arguments {
	XmNx = 15;
	XmNy = 10;
	XmNmarginWidth = 0;
	XmNmarginHeight = 0;
	XmNwidth = 62;
	XmNheight = 62;
	XmNshadowThickness = 2;
	XmNbackgroundPixmap = motif_icon;
	XmNpushButtonEnabled = true;
	};
	callbacks {
	    XmNactivateCallback = procedure foo_activate ();
            XmNcreateCallback = procedure create_callback (K_drawnbutton_widget);
	};
    };

object
    label_1 : XmLabel {
	arguments {
	XmNx = dont_panic_x;
	XmNy = dont_panic_y;
	XmNfontList = times_bold_font;
	XmNlabelString = compound_string("DON'T",separate=true) & "PANIC";
	};
    };

object
    scrollbar_1 : XmScrollBar {
	arguments {
	XmNx = 10;
	XmNy = 30;
	XmNwidth = 75;
	XmNorientation = 2;
	XmNvalue = 20;
	};
    };

object    text_1 : XmText {
        arguments {
	XmNx = 15;
	XmNy = 25;
!	width = 70;
!	height = 40;
	XmNcolumns = 10;
	XmNrows = 2;
        XmNvalue = 'helloworld';
	XmNresizeWidth = false;
	XmNresizeHeight = false;
	XmNeditMode = 0;
	XmNscrollVertical = true;
!	scroll_horizontal = false;
        };
    };

object
    draw_area_1 : XmFrame {
        arguments {
	    XmNx = 20;
	    XmNy = 20;
	    XmNwidth = 75;
	    XmNheight = 45;
	    XmNshadowThickness = 2;
	};
	controls {
	    XmLabel {
		arguments {
		XmNmarginWidth = 2;
		XmNmarginHeight = 2;
		XmNlabelType = 1;
		XmNlabelPixmap = my_picture;
!		label_string = compound_string('Insert Picture',separate=true) & '->Here<-';
		};
	    };
	};
    };

object
    popup_menu_1 : XmFrame {
        arguments {
	    XmNx = 5;
	    XmNy = 25;
!	    width = 50;
!	    height = 70;
	    XmNshadowThickness = 2;
	};
	controls {
	    XmLabel {
		arguments {
		XmNlabelString = compound_string('Press MB3 for',separate=true) & 'Popup Menu';
		};
	    };
	};
	callbacks {
       	    XmNcreateCallback = procedure create_callback (K_popup_menu_widget);
	};
    };
	
object
    paned_window_1 : XmPanedWindow {
        arguments {
!	x = 10;
!	y = 5;
!	width = 150;
	};
	controls {
	    XmText	paned_text_1;
	    XmText	paned_text_2;
	};
    };

object
    paned_text_1 : XmText {
        arguments {
!	x = 15;
!	y = 25;
!	width = 70;
!	height = 40;
	XmNcolumns = 24;
	XmNrows = 1;
        XmNvalue = 'OPEN Software Foundation';
	XmNresizeWidth = false;
	XmNresizeHeight = false;
	XmNeditMode = 0;
	XmNscrollVertical = true;
!	scroll_horizontal = false;
        };
	callbacks {
            XmNcreateCallback = procedure create_callback (K_vtext1_widget);
	};
    };

object
    paned_text_2 : XmText {
        arguments {
!	x = 15;
!	y = 25;
!	width = 70;
!	height = 40;
	XmNcolumns = 24;
	XmNrows = 1;
        XmNvalue = 'Motif Version 1.0';
	XmNresizeWidth = false;
	XmNresizeHeight = false;
	XmNeditMode = 0;
	XmNscrollVertical = true;
!	scroll_horizontal = false;
        };
	callbacks {
            XmNcreateCallback = procedure create_callback (K_vtext2_widget);
	};
    };

!%% Container Widgets
!%%
object
    scale_1 : XmScale {
        arguments {
	XmNx = 0;
	XmNy = 25;
	XmNwidth = 60;
	XmNheight = 50;
	XmNfontList = hel_bold_font;
        XmNborderWidth = 0;
        XmNvalue = 42;
        XmNmaximum = 42;
        XmNminimum = 0;
        XmNshowValue = true;
        XmNorientation = 2;
	XmNprocessingDirection = 1;
        };
	callbacks {
            XmNcreateCallback = procedure create_callback (K_scale_widget);
	};
    };

object
    radio_box_1 : XmRadioBox {
        arguments {
	XmNx = 20;
	XmNy = 10;
	XmNspacing = 2;
	XmNmarginHeight = 0;
	XmNmarginWidth = 0;
        };
        controls {
	XmToggleButton	radio_button_1;
	XmToggleButton	radio_button_2;
	XmToggleButton	radio_button_3;
        };
    };
    radio_button_1 : XmToggleButton {
	arguments {
	XmNmarginHeight = 0;
	XmNmarginWidth = 0;
	XmNfontList = hel_bold_font;
	XmNlabelString = 'WFNX';
	XmNset = true;
	};
    };
    radio_button_2 : XmToggleButton {
	arguments {
	XmNmarginHeight = 0;
	XmNmarginWidth = 0;
	XmNfontList = hel_bold_font;
	XmNlabelString = 'WCRB';
	};
    };
    radio_button_3 : XmToggleButton {
	arguments {
	XmNmarginHeight = 0;
	XmNmarginWidth = 0;
	XmNfontList = hel_bold_font;
	XmNlabelString = 'WHKY';
	};
    };

!%% Dialog Widgets
!%%
object
    message_box_1 : XmMessageBox {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('Swap Error...',separate=true)
						& 'You Lose Your Mind.';
	    XmNdialogType = 1;
        };
    };
object
    message_box_2 : XmMessageBox {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('Information is',separate=true)
						& 'Power.';
	    XmNdialogType = 2;
        };
    };
object
    message_box_3 : XmMessageBox {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('Swedish',separate=true)
						& 'Massage';
	    XmNdialogType = 3;
        };
    };
object
    message_box_4 : XmMessageBox {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('Question authority...',separate=true)
						& 'But raise your hand first.';
	    XmNdialogType = 4;
        };
    };
object
    message_box_5 : XmMessageBox {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('Warning, Warning,',separate=true)
						& 'Danger Dr. Smith...';
	    XmNdialogType = 5;
        };
    };
object
    message_box_6 : XmMessageBox {
        arguments {
	    arguments dialog_args;
	    XmNmessageString = compound_string('Work in Progress',separate=true)
						& 'Meditating.....';
	    XmNdialogType = 6;
        };
    };

object
    command_1 : XmCommand {
        arguments {
	XmNwidth = 150;
	XmNheight = 80;
	XmNhistoryVisibleItemCount = 1;
!	resize_policy = 1;
        };
    };

!object
!    selection_box_1 : selection_dialog {
!        arguments {
!	style = 0;
!!            resizable = true;
!!            default_position = true;
!        };
!    };

object
    file_selection_box_1 : XmFrame {
        arguments {
	XmNx = 25;
	XmNy = 15;
	};
	controls {
	XmFileSelectionBox {
	    arguments {
		XmNresizePolicy = 0;
		XmNlistVisibleItemCount = 2;
		XmNlabelFontList = hel_bold_font;
!		text_font_list = hel_bold_font;
!            style = XmDIALOG_MODELESS;
            XmNresizable = false;
!            default_position = true;
	    };
	};
        };
    };

!%% Menu Widgets
!%%
object
    option_menu_1 : XmOptionMenu {
        arguments {
	XmNx = 0;
	XmNy = 30;
	XmNlabelString = 'color';
	XmNshadowThickness = 1;
!            top_attachment = XmATTACH_FORM;
!            left_attachment = XmATTACH_FORM;
            XmNmenuHistory = XmPushButton option_button_1;
        };
        controls {
            XmPulldownMenu options_pulldown;
        };
    };

object
    options_pulldown : XmPulldownMenu {
        controls {
            XmPushButton option_button_1;
            XmPushButton option_button_2;
            XmPushButton option_button_3;
        };
    };

object
    option_button_1 : XmPushButton {
	arguments {
	XmNfontList = hel_bold_font;
	XmNlabelString = 'bleu';
	};
    };
object
    option_button_2 : XmPushButton {
	arguments {
	XmNfontList = hel_bold_font;
	XmNlabelString = 'green';
	};
    };
object
    option_button_3 : XmPushButton {
	arguments {
	XmNfontList = hel_bold_font;
	XmNlabelString = 'red';
	};
    };

object list_box_1 : XmScrolledList {
	arguments {
		XmNx = 10;
		XmNy = 20;
		XmNitems = string_table("Foobar","Mumble","Lambda","Coke");
		XmNitemCount = 4;
		XmNvisibleItemCount = 2;
	};
};

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
object
    menu_bar_1 : XmMenuBar {
	    arguments {
!		translations = translation_table ('<Btn1Up> : zippy_null()');
		XmNmenuHelpWidget = XmCascadeButton Help;
	    };
	    controls {
            XmCascadeButton File;
            XmCascadeButton Edit;
            XmCascadeButton Help;
            };
        };

object
    File : XmCascadeButton {
	arguments {
		arguments menus_args;
	};
        controls {
            XmPulldownMenu   sample_pulldown_1;
            };
        };

object
    Edit : XmCascadeButton {
	arguments {
		arguments menus_args;
	};
        controls {
            XmPulldownMenu   sample_pulldown_2;
            };
        };

object
    Help : XmCascadeButton {
	arguments {
		arguments menus_args;
	};
        controls {
            XmPulldownMenu   sample_pulldown_3;
            };
        };

object
    sample_pulldown_1 : XmPulldownMenu {
        controls {
            XmPushButton sample_push_button_1;
            XmPushButton sample_push_button_2;
	    XmCascadeButton	About;
	    XmSeparator {};
	    XmPushButton Quit;
            };
        };

object
    sample_pulldown_2 : XmPulldownMenu {
        controls {
            XmPushButton s_push_button_1;
            XmPushButton s_push_button_2;
            XmPushButton s_push_button_3;
	    XmCascadeButton	morestuff;
            };
        };

object
    sample_pulldown_3 : XmPulldownMenu {
        controls {
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = 'Overview...';
		    };
		};
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = 'Bindings...';
		    };
		};
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = 'Tutorial...';
		    };
		};
            };
        };

object
   About : XmCascadeButton {
	arguments {
		arguments menus_args;
	};
	controls {
		XmPulldownMenu About_1;
		};
	};
object
   morestuff : XmCascadeButton {
	arguments {
		arguments menus_args;
	};
	controls {
		XmPulldownMenu pulldown_2;
		};
	};

object
    About_1 : XmPulldownMenu {
	controls {
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = 'Motif Periodic Table v1.0';
		    };
		};
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = 'Created by Michael K. Yee';
		    };
		};
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = 'Date - August 1989';
		    };
		};
	    };
	};

object
    pulldown_2 : XmPulldownMenu {
	controls {
		XmPushButton {
		arguments {
			arguments menus_args;
			XmNlabelString = compound_string('THANKS FOR',separate=true)
						& 'THE FISH.';
		    };
		};
	    };
	};

object
    sample_push_button_1 : XmPushButton {
	arguments {
		arguments menus_args;
		XmNlabelString = 'New';
        };
    };

object
    sample_push_button_2 : XmPushButton {
	arguments {
		arguments menus_args;
		XmNlabelString = 'Open Software ...';
        };
	controls {
!	question_dialog open_dialog;
	};
    };
object
    s_push_button_1 : XmPushButton {
	arguments {
		arguments menus_args;
		XmNlabelString = 'Cut';
        };
    };

object
    s_push_button_2 : XmPushButton {
	arguments {
		arguments menus_args;
		XmNlabelString = 'Copy';
        };
    };

object
    s_push_button_3 : XmPushButton {
	arguments {
		arguments menus_args;
		XmNlabelString = 'Paste';
        };
    };

object
    Quit : XmPushButton {
	arguments { 
		arguments menus_args;
!	    x = 10;
!	    y = 200;
	};
	callbacks { 
	    XmNactivateCallback = procedure quit_button_activate();
	};
    };

end module;