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

⟦825717bc4⟧ TextFile

    Length: 10855 (0x2a67)
    Types: TextFile
    Notes: UNIX file
    Names: »mre_font.uil«

Derivation

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

TextFile

!OSF/Motif: @(#)mre_font.uil	1.1 - 89/08/30 - 12:01:09
!++
! Motif Demo Resource Editor -- font selection uil file
!				included by mre.uil
!
! Created June 89 Mitch Trachtenberg
!
!--


value horizontal_offset : 100;
value vertical_offset : 100;

! These values are used in UIL file calculations to determine 
! placement of various subwidgets within the form.  
value num_radio_columns : 4;
value num_upper_pushbuttons : 3;

! This string is read by XmGetLiteral and placed in the text widget
! which displays the current font.
value one_font_string : exported 'This is the current font...';

! To allow making tab groups out of the radio boxes, our C program
! must be able to retrieve the widget id's of each radio box;
! we provide for this by making a literal string representing
! the path template available to the program.
value path_to_radiobox: exported 'font_toggle_box.rc%d.font_rb%d';

value spec_components: exported asciz_table('nomatch',
'r','i','o','ri','*',
'medium','bold','demi','book',
'Times','Helvetica','*Avant Garde*',
'10','12','14','18');

object
    font_dialog : XmFormDialog {
	arguments {
		XmNdialogTitle = 'Font Selection';
		XmNdialogStyle = XmDIALOG_MODELESS;
		XmNdefaultPosition = false;
		XmNunitType = Xm100TH_FONT_UNITS;
		XmNx = stagger_x;
		XmNy = stagger_y;
		XmNwidth = 6000;
		XmNheight = 8200;
		XmNautoUnmanage = false;
		XmNresizable = true;
	};
	controls {
		XmForm font_toggle_box;
		XmPushButton font_filter_button;
		XmPushButton font_display_one_button;
		XmPushButton font_display_button;
		XmLabel font_spec_label;
		XmText font_spec_mask;
		XmSelectionBox font_selection_box;
	};
};

object font_toggle_box : XmForm {
	arguments {
		XmNleftAttachment = XmATTACH_FORM;
		XmNrightAttachment = XmATTACH_FORM;
		XmNleftOffset = horizontal_offset;
		XmNrightOffset = horizontal_offset;
	};
	controls {
		XmRowColumn rc1;
		XmRowColumn rc2;
		XmRowColumn rc3;
		XmRowColumn rc4;
	};
};

object rc1 :	XmRowColumn {
			arguments {
				XmNleftAttachment = XmATTACH_POSITION;
				XmNleftPosition = 0 * 100 / num_radio_columns;
				XmNrightAttachment = XmATTACH_POSITION;
				XmNrightPosition = 1 * 100 / num_radio_columns;
				XmNuserData = 4; /* FONT_SLANT in C code */
			};
			controls {
				XmLabel font_italics_label;
				XmSeparator {};
				XmRadioBox font_rb1;
			};
		};

object rc2:	XmRowColumn {
			arguments {
				XmNleftAttachment = XmATTACH_POSITION;
				XmNleftPosition = 1 * 100 / num_radio_columns;
				XmNrightAttachment = XmATTACH_POSITION;
				XmNrightPosition = 2 * 100 / num_radio_columns;
				XmNuserData = 3; /* FONT_WEIGHT in C code */
			};
			controls {
				XmLabel font_weight_label;
				XmSeparator {};
				XmRadioBox font_rb2;
			};
		};

object rc3:	XmRowColumn {
			arguments {
				XmNleftAttachment = XmATTACH_POSITION;
				XmNleftPosition = 2 * 100 / num_radio_columns;
				XmNrightAttachment = XmATTACH_POSITION;
				XmNrightPosition = 3 * 100 / num_radio_columns;
				XmNuserData = 2; /* FONT_FAMILY in C code */
			};
			controls {
				XmLabel font_family_label;
				XmSeparator {};
				XmRadioBox font_rb3;
			};
		};

object rc4:	XmRowColumn {
			arguments {
				XmNleftAttachment = XmATTACH_POSITION;
				XmNleftPosition = 3 * 100 / num_radio_columns;
				XmNrightAttachment = XmATTACH_POSITION;
				XmNrightPosition = 4 * 100 / num_radio_columns;
				XmNuserData = 7; /* FONT_POINTSIZE in C code */
			};
			controls {
				XmLabel font_point_size_label;
				XmSeparator {};
				XmRadioBox font_rb4;
			};
		};

object font_weight_label: XmLabel {
	arguments {
		XmNlabelString = compound_string('Weight');
	};
};

object font_italics_label: XmLabel {
	arguments {
		XmNlabelString = compound_string('Italics');
	};
};
object font_point_size_label: XmLabel {
	arguments {
		XmNlabelString = compound_string('Point Size');
	};
};
object font_family_label: XmLabel {
	arguments {
		XmNlabelString = compound_string('Family');
	};
};

object font_rb1 : XmRadioBox {
	arguments {
		XmNisHomogeneous = false;		
		XmNpacking = XmPACK_TIGHT;
	};
	controls {
		XmToggleButton {
			arguments {
				XmNlabelString = dont_care_string;
				XmNuserData = 5;
			};
			callbacks {
				XmNvalueChangedCallback = procedure restrict_slant('*');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = normal_string;
				XmNuserData = 1;
			};
			callbacks {
				XmNvalueChangedCallback = procedure restrict_slant('r');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = oblique_string;
				XmNuserData = 3;
			};
			callbacks {
				XmNvalueChangedCallback = procedure restrict_slant('o');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = italic_string;
				XmNuserData = 2;
			};
			callbacks {
				XmNvalueChangedCallback = procedure restrict_slant('i');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = reverse_italic_string;
				XmNuserData = 4;
			};
			callbacks {
				XmNvalueChangedCallback = procedure restrict_slant('ri');
			};
		};
	};
};

object font_rb2 : XmRadioBox {
	arguments {
		XmNisHomogeneous = false;		
	};
	controls {
		XmToggleButton {
			arguments {
				XmNlabelString = dont_care_string;
				XmNuserData = 5;
			};
			callbacks {
				XmNvalueChangedCallback = procedure restrict_weight('*');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = normal_string;
				XmNuserData = 6;
			};
			callbacks {
				XmNvalueChangedCallback = procedure 
						restrict_weight('medium');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = bold_string;
				XmNuserData = 7;
			};
			callbacks {
				XmNvalueChangedCallback = procedure 
						restrict_weight('bold');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = demi_string;
				XmNuserData = 8;
			};
			callbacks {
				XmNvalueChangedCallback = procedure 
						restrict_weight('demi');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = book_string;
				XmNuserData = 9;
			};
			callbacks {
				XmNvalueChangedCallback = procedure 
						restrict_weight('book');
			};
		};
	};
};
object font_rb3 : XmRadioBox {
	arguments {
		XmNisHomogeneous = false;		
	};
	controls {
		XmToggleButton {
			arguments {
				XmNlabelString = dont_care_string;
				XmNuserData = 5;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_family('*');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = times_string;
				XmNuserData = 10;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_family('Times');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = helvetica_string;
				XmNuserData = 11;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_family('Helvetica');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = avant_garde_string;
				XmNuserData = 12;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_family('*Avant Garde*');
			};
		};
	};
};
object font_rb4 : XmRadioBox {
	arguments {
		XmNisHomogeneous = false;		
	};
	controls {
		XmToggleButton {
			arguments {
				XmNlabelString = dont_care_string;
				XmNuserData = 5;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_point_size('*');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = point_string_10;
				XmNuserData = 13;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_point_size('10');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = point_string_12;
				XmNuserData = 14;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_point_size('12');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = point_string_14;
				XmNuserData = 15;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_point_size('14');
			};
		};
		XmToggleButton { 
			arguments {
				XmNlabelString = point_string_18;
				XmNuserData = 16;
			};
			callbacks {
				XmNvalueChangedCallback = 
				procedure restrict_point_size('18');
			};
		};
	};
};

object font_spec_label: XmLabel {
	arguments {
		XmNtopAttachment = XmATTACH_WIDGET;
		XmNtopWidget = XmForm font_toggle_box;
		XmNtopOffset = vertical_offset;
		XmNleftAttachment = XmATTACH_FORM;
		XmNleftOffset = horizontal_offset;
		XmNlabelString = compound_string('Current selection criteria:');
	};
};

object font_spec_mask : XmText {
	arguments {
		XmNtopAttachment = XmATTACH_WIDGET;
		XmNtopWidget = XmLabel font_spec_label;
		XmNleftAttachment = XmATTACH_FORM;
		XmNleftOffset = horizontal_offset;
		XmNrightAttachment = XmATTACH_FORM;
		XmNrightOffset = horizontal_offset;
	};
};

object font_filter_button : XmPushButton {
	arguments {	
		XmNtopAttachment = XmATTACH_WIDGET;
		XmNtopWidget = XmText font_spec_mask;
		XmNtopOffset = vertical_offset;
		XmNleftAttachment = XmATTACH_POSITION;
		XmNleftOffset = horizontal_offset;
		XmNleftPosition = 0 * 100 / num_upper_pushbuttons;
		XmNlabelString = compound_string('Filter',separate=true) &
			compound_string('to criteria',separate=true);
		XmNmnemonic = 70; /* F */
	};
	callbacks {
		XmNactivateCallback = procedure font_refilter();
	};
};

object font_display_button : XmPushButton {
	arguments {
		XmNtopAttachment = XmATTACH_WIDGET;
		XmNtopWidget = XmText font_spec_mask;
		XmNtopOffset = vertical_offset;
		XmNleftAttachment = XmATTACH_POSITION;
		XmNleftOffset = horizontal_offset;
		XmNleftPosition = 1 * 100 / num_upper_pushbuttons;
		XmNlabelString = compound_string('Display',separate=true) & 
			compound_string('all matches',separate=true);
		XmNmnemonic = 65; /* A */
	};
	callbacks {
		XmNactivateCallback = procedure display_fonts_from_list();
	};
};

object font_display_one_button : XmPushButton {
	arguments {
		XmNtopAttachment = XmATTACH_WIDGET;
		XmNtopWidget = XmText font_spec_mask;
		XmNtopOffset = vertical_offset;
		XmNleftAttachment = XmATTACH_POSITION;
		XmNleftOffset = horizontal_offset;
		XmNleftPosition = 2 * 100 / num_upper_pushbuttons;
		XmNlabelString = compound_string('Display',separate=true) & 
			compound_string('selection',separate=true);
		XmNmnemonic = 83; /* S */
	};
	callbacks {
		XmNactivateCallback = procedure display_one_font();
	};
};

object font_selection_box : XmSelectionBox { 
	arguments {
		XmNtopAttachment = XmATTACH_WIDGET;
		XmNtopWidget = XmPushButton font_filter_button;
		XmNtopOffset = vertical_offset;
		XmNdialogStyle = XmDIALOG_WORK_AREA;
		XmNbottomAttachment = XmATTACH_FORM;
		XmNleftAttachment = XmATTACH_FORM;
		XmNrightAttachment = XmATTACH_FORM;
		XmNlistLabelString = 
			compound_string('Fonts matching criteria:');
	};
	callbacks {
		XmNcreateCallback = procedure font_selection_box_map();
		XmNokCallback = procedure ok_button_pressed('F');
		XmNcancelCallback = procedure cancel_button_pressed('F');
		XmNhelpCallback = procedure help_proc('Fonts');
	};
};