rpl/modules/motif/XtAppMainLoop.rplc - diff

Return to XtAppMainLoop.rplc CVS log

Up to [local] / rpl / modules / motif

version 1.2, 2017/07/06 10:18:04	version 1.3, 2017/07/17 21:35:32
Line 15 declareExternalFunction(XtAppMainLoop)	Line 15 declareExternalFunction(XtAppMainLoop)
pullFromStack(appObject, external);	pullFromStack(appObject, external);
returnOnError(freeObject(appObject));	returnOnError(freeObject(appObject));

if (subType(appObject) ne APPCONTEXT) then	ifIsExternal(appObject, APPCONTEXT) then
	orElse
executionError("Type mismatch");	executionError("Type mismatch");
returnOnError(freeObject(appObject));	returnOnError(freeObject(appObject));
endIf	endIf

	intrinsic(pshcntxt);

doUntil	doUntil
if (XtAppPending(target((sXtAppContext *)	if (XtAppPending(target((sXtAppContext *)
objectContainer(appObject)).context) ne 0) then	objectContainer(appObject)).context) ne 0) then
Line 45 declareExternalFunction(XtAppMainLoop)	Line 48 declareExternalFunction(XtAppMainLoop)
(stopRequest eq -1) or	(stopRequest eq -1) or
(exitMainLoop ne 0))	(exitMainLoop ne 0))

	intrinsic(pulcntxt);

XtDestroyApplicationContext(target((sXtAppContext *)	XtDestroyApplicationContext(target((sXtAppContext *)
objectContainer(appObject)).context);	objectContainer(appObject)).context);
orElse	orElse