/*
 * fontset_ui.c - User interface object initialization functions.
 * This file was generated by `gxv' from `fontset.G'.
 * DO NOT EDIT BY HAND.
 */

#include <stdio.h>
#include <sys/param.h>
#include <sys/types.h>
#include <xview/xview.h>
#include <xview/canvas.h>
#include <xview/panel.h>
#include <xview/scrollbar.h>
#include <xview/svrimage.h>
#include <xview/termsw.h>
#include <xview/text.h>
#include <xview/tty.h>
#include <xview/xv_xrect.h>
#include "fontset_ui.h"

/*
 * Initialize an instance of object `popup1'.
 */
fontset_popup1_objects *
fontset_popup1_objects_initialize(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	if (!ip && !(ip = (fontset_popup1_objects *) calloc(1, sizeof (fontset_popup1_objects))))
		return (fontset_popup1_objects *) NULL;
	if (!ip->popup1)
		ip->popup1 = fontset_popup1_popup1_create(ip, owner);
	if (!ip->controls1)
		ip->controls1 = fontset_popup1_controls1_create(ip, ip->popup1);
	if (!ip->font_family_setting)
		ip->font_family_setting = fontset_popup1_font_family_setting_create(ip, ip->controls1);
	if (!ip->font_style_setting)
		ip->font_style_setting = fontset_popup1_font_style_setting_create(ip, ip->controls1);
	if (!ip->font_scale_setting)
		ip->font_scale_setting = fontset_popup1_font_scale_setting_create(ip, ip->controls1);
	if (!ip->button1)
		ip->button1 = fontset_popup1_button1_create(ip, ip->controls1);
	if (!ip->button2)
		ip->button2 = fontset_popup1_button2_create(ip, ip->controls1);
	return ip;
}

/*
 * Create object `popup1' in the specified instance.
 */
Xv_opaque
fontset_popup1_popup1_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	Xv_opaque	obj;
	
	obj = xv_create(owner, FRAME_CMD,
		XV_KEY_DATA, INSTANCE, ip,
		XV_WIDTH, 399,
		XV_HEIGHT, 166,
		XV_LABEL, "Popup Window",
		FRAME_SHOW_FOOTER, TRUE,
		FRAME_SHOW_RESIZE_CORNER, TRUE,
		FRAME_CMD_PUSHPIN_IN, FALSE,
		NULL);
	xv_set(xv_get(obj, FRAME_CMD_PANEL), WIN_SHOW, FALSE, NULL);
	return obj;
}

/*
 * Create object `controls1' in the specified instance.
 */
Xv_opaque
fontset_popup1_controls1_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	Xv_opaque	obj;
	
	obj = xv_create(owner, PANEL,
		XV_KEY_DATA, INSTANCE, ip,
		XV_X, 25,
		XV_Y, 15,
		XV_WIDTH, 348,
		XV_HEIGHT, WIN_EXTEND_TO_EDGE,
		WIN_BORDER, FALSE,
		NULL);
	return obj;
}

/*
 * Create object `font_family_setting' in the specified instance.
 */
Xv_opaque
fontset_popup1_font_family_setting_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	Xv_opaque	obj;
	
	obj = xv_create(owner, PANEL_CHOICE, PANEL_DISPLAY_LEVEL, PANEL_CURRENT,
		XV_KEY_DATA, INSTANCE, ip,
		XV_X, 24,
		XV_Y, 12,
		PANEL_CHOICE_NROWS, 1,
		PANEL_LAYOUT, PANEL_HORIZONTAL,
		PANEL_LABEL_STRING, "Font family:",
		PANEL_CHOICE_STRINGS,
			"Default fixedwidth",
			"Default",
			"Lucida",
			"Lucida fixedwidth",
			"Roman",
			"Serif",
			"Courier",
			"CMR",
			"Gallent",
			"Helvetica",
			NULL,
		NULL);
	return obj;
}

/*
 * Create object `font_style_setting' in the specified instance.
 */
Xv_opaque
fontset_popup1_font_style_setting_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	Xv_opaque	obj;
	
	obj = xv_create(owner, PANEL_CHOICE, PANEL_DISPLAY_LEVEL, PANEL_CURRENT,
		XV_KEY_DATA, INSTANCE, ip,
		XV_X, 36,
		XV_Y, 44,
		PANEL_CHOICE_NROWS, 1,
		PANEL_LAYOUT, PANEL_HORIZONTAL,
		PANEL_LABEL_STRING, "Font style:",
		PANEL_CHOICE_STRINGS,
			"Default",
			"Normal",
			"Bold",
			"Italic",
			"Oblique",
			"Bold Italic",
			"Bold Oblique",
			NULL,
		NULL);
	return obj;
}

/*
 * Create object `font_scale_setting' in the specified instance.
 */
Xv_opaque
fontset_popup1_font_scale_setting_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	Xv_opaque	obj;
	
	obj = xv_create(owner, PANEL_CHOICE, PANEL_DISPLAY_LEVEL, PANEL_CURRENT,
		XV_KEY_DATA, INSTANCE, ip,
		XV_X, 34,
		XV_Y, 76,
		PANEL_CHOICE_NROWS, 1,
		PANEL_LAYOUT, PANEL_HORIZONTAL,
		PANEL_LABEL_STRING, "Font scale:",
		PANEL_CHOICE_STRINGS,
			"Small",
			"Medium",
			"Large",
			"X-Large",
			NULL,
		NULL);
	return obj;
}

/*
 * Create object `button1' in the specified instance.
 */
Xv_opaque
fontset_popup1_button1_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	extern void		change_font();
	Xv_opaque	obj;
	
	obj = xv_create(owner, PANEL_BUTTON,
		XV_KEY_DATA, INSTANCE, ip,
		XV_X, 32,
		XV_Y, 112,
		PANEL_LABEL_STRING, "Apply",
		PANEL_NOTIFY_PROC, change_font,
		NULL);
	return obj;
}

/*
 * Create object `button2' in the specified instance.
 */
Xv_opaque
fontset_popup1_button2_create(ip, owner)
	fontset_popup1_objects	*ip;
	Xv_opaque	owner;
{
	extern void		cancel_fontset();
	Xv_opaque	obj;
	
	obj = xv_create(owner, PANEL_BUTTON,
		XV_KEY_DATA, INSTANCE, ip,
		XV_X, 116,
		XV_Y, 112,
		PANEL_LABEL_STRING, "Reset",
		PANEL_NOTIFY_PROC, cancel_fontset,
		NULL);
	return obj;
}