rpl/modules/motif/XtAppInitialize.rplc - diff

Return to XtAppInitialize.rplc CVS log

Up to [local] / rpl / modules / motif

version 1.2, 2017/07/06 10:18:04	version 1.5, 2017/08/21 11:33:21
Line 27 declareExternalFunction(XtAppInitialize)	Line 27 declareExternalFunction(XtAppInitialize)
createExternalObject(appObject, APPCONTEXT);	createExternalObject(appObject, APPCONTEXT);
createExternalObject(widgetObject, WIDGET);	createExternalObject(widgetObject, WIDGET);

objectContainer(appObject) = allocate(size(sXtAppContext));	objectOf(appObject) = allocate(size(sXtAppContext));
objectContainer(widgetObject) = allocate(size(Widget));	objectOf(widgetObject) = allocate(size(Widget));

target((Widget *) objectContainer(widgetObject)) =	target(objectContainer(Widget, widgetObject)) =
XtVaAppInitialize(address(target((sXtAppContext *)	XtVaAppInitialize(address(target(
objectContainer(appObject)).context),	objectContainer(sXtAppContext, appObject)).context),
name, NULL, 0, address(argc), argv, NULL, NULL);	name, NULL, 0, address(argc), argv, NULL, NULL);
target((sXtAppContext *) objectContainer(appObject)).widget =	target(objectContainer(sXtAppContext, appObject)).widget =
target((Widget *) objectContainer(widgetObject));	target(objectContainer(Widget, widgetObject));

freeObject(nameObject);	freeObject(nameObject);

if (nullified(objectContainer(appObject))) then	if (nullified(objectOf(appObject))) then
executionError("Nullified XtAppContext");	executionError("Nullified XtAppContext");
freeObject(appObject);	freeObject(appObject);
freeObject(widgetObject);	freeObject(widgetObject);