DataMuseum.dk

top - download

    Length: 3957 (0xf75)
    Types: TextFile
    Names: »Logger.c«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦f2882457c⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦f2882457c⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦f2882457c⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦f2882457c⟧ 
            └─ ⟦this⟧ »C/Logger.c« 

TextFile

/*  C file generated by XFaceMaker2.
 *  Do not edit directly, and do not remove this comment.
 */

#include <stdio.h>

#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Quarks.h>
#include <X11/Shell.h>

#include <Xm/Xm.h>

#define	true	True
#define	false	False

#undef  XtMapWidget(widget)
#undef  XtUnmapWidget(widget)
#define XtMapWidget(widget)     XMapWindow(XtDisplay((Widget)(widget)), XtWindow((Widget)(widget)))
#define XtUnmapWidget(widget)   XUnmapWindow(XtDisplay((Widget)(widget)), XtWindow((Widget)(widget)))

#include <Xm/Form.h>
#include <Xm/PushB.h>
#include <Xm/PushBG.h>
#include <Xm/ScrolledW.h>
#include <Xm/Text.h>

static Widget ApplicationShell00;
static Widget XmForm01;
static Widget MyScrolledText2;
static Widget ScrolledText3;
static Widget XmPushButton04;

extern XrmQuark XtQNone;
extern XrmQuark XtQAny;
extern XrmQuark XtQFloat;
extern XrmQuark XtQWidget;
extern XrmQuark XtQCallback;

typedef struct {
	int value;
	int type;
} FaceVariable;

extern Widget	FaceGetWidget();
extern XtArgVal	FaceGetResource();
extern int	FaceSetResource();
extern int	FaceGetProperty();
extern int	FaceSetProperty();


static void Log_ScrolledText3_set(widget, client_data, call_data)
Widget widget;
caddr_t client_data;
caddr_t call_data;
{

	XmTextSetString(ScrolledText3, call_data);
}


static void XmPushButton04_activateCallback(widget, client_data, call_data)
	Widget widget;
	caddr_t client_data;
	caddr_t call_data;
{
	strcpy("Message", "PUSH");
}


Widget
FmCreateLogger(name, parent, args, num_args)
String name;
Widget parent;
Arg *args;
Cardinal num_args;
{
	static char *_data_base[] = {
	"XmForm0.MyScrolledText.ScrolledText.editMode : multi_line_edit",
	0
	};
	Widget ChildrenToManage[2];

	Widget SingleChildrenToManage;
	Widget toplevel, toplevel_widget;
	Arg arg[100];
	int narg;
	static int actions_added = 0;
	extern Widget FmToplevel();

	parent = 0;

	FmLoadStringDataBase(parent, _data_base, 0);
	narg = 0;
	XtSetArg(arg[narg], "x", 301); narg++;
	XtSetArg(arg[narg], "y", 308); narg++;
	XtSetArg(arg[narg], "width", 534); narg++;
	XtSetArg(arg[narg], "height", 424); narg++;
	while(num_args-- > 0){
		XtSetArg(arg[narg], args->name, args->value); narg++;
		args++;
	}
	toplevel_widget = ApplicationShell00 = XtCreateApplicationShell((name ? name : "ApplicationShell0"), applicationShellWidgetClass, arg, narg);
	narg = 0;
	XtSetArg(arg[narg], "x", 0); narg++;
	XtSetArg(arg[narg], "y", 0); narg++;
	XtSetArg(arg[narg], "width", 534); narg++;
	XtSetArg(arg[narg], "height", 424); narg++;
	XmForm01 = XtCreateWidget("XmForm0", xmFormWidgetClass, ApplicationShell00, arg, narg);
	narg = 0;
	XtSetArg(arg[narg], "width", 437); narg++;
	XtSetArg(arg[narg], "height", 267); narg++;
	XtSetArg(arg[narg], "x", 80); narg++;
	XtSetArg(arg[narg], "y", 109); narg++;
	MyScrolledText2 = XtCreateWidget("MyScrolledText", xmScrolledWindowWidgetClass, XmForm01, arg, narg);
	narg = 0;
	XtSetArg(arg[narg], "x", 0); narg++;
	XtSetArg(arg[narg], "y", 0); narg++;
	XtSetArg(arg[narg], "width", 418); narg++;
	XtSetArg(arg[narg], "height", 248); narg++;
	ScrolledText3 = XtCreateWidget("ScrolledText", xmTextWidgetClass, MyScrolledText2, arg, narg);
	FmNewAv("Log", 0, Log_ScrolledText3_set, ScrolledText3);
	narg = 0;
	XtSetArg(arg[narg], "x", 58); narg++;
	XtSetArg(arg[narg], "y", 37); narg++;
	XtSetArg(arg[narg], "width", 186); narg++;
	XtSetArg(arg[narg], "height", 41); narg++;
	XmPushButton04 = XtCreateWidget("XmPushButton0", xmPushButtonWidgetClass, XmForm01, arg, narg);
	XtAddCallback(XmPushButton04, "activateCallback", XmPushButton04_activateCallback, NULL);
	
	ChildrenToManage[0] = XmForm01;
	XtManageChildren(ChildrenToManage, 1);

	ChildrenToManage[0] = MyScrolledText2;
	ChildrenToManage[1] = XmPushButton04;
	XtManageChildren(ChildrenToManage, 2);

	ChildrenToManage[0] = ScrolledText3;
	XtManageChildren(ChildrenToManage, 1);

	XtRealizeWidget(ApplicationShell00);
	
	
	return(toplevel_widget);
}