rpl/modules/motif/motif.rplc - diff

Return to motif.rplc CVS log

Up to [local] / rpl / modules / motif

version 1.4, 2017/07/10 07:25:24	version 1.8, 2017/08/22 11:22:04
Line 11 exportExternalFunctions(	Line 11 exportExternalFunctions(
XtAppInitialize,	XtAppInitialize,
XtAppMainLoop,	XtAppMainLoop,
XtCreatePopupShell,	XtCreatePopupShell,
	XtCreateManagedWidget,
XtCreateWidget,	XtCreateWidget,
XtDestroyWidget,	XtDestroyWidget,
XtPopdown,	XtPopdown,
XtPopup,	XtPopup,
XtRealizeWidget);	XtRealizeWidget,
	XtRemoveCallback);

declareSubroutine(onLoading)	declareSubroutine(onLoading)
notice(stdout, "\nMotif library V2R1 for RPL/2 (C) 2017 BERTRAND Joel\n");	notice(stdout, "\nMotif library V2R1 for RPL/2 (C) 2017 BERTRAND Joel\n");
Line 64 declareSubroutine(onLoading)	Line 66 declareSubroutine(onLoading)

createVariable(XmSTRING);	createVariable(XmSTRING);

createListObject(callbacksList);

setFalse(initializationDone);	setFalse(initializationDone);
	nullify(lCallbacks);
endSubroutine	endSubroutine

declareSubroutine(onClosing)	declareSubroutine(onClosing)
// Destruction des variables spécifiques	// Destruction des variables spécifiques et des callbacks
declareObject(variable);	declareObject(variable);
	declareDaisyChain(current);
	declareDaisyChain(next);

	current = lCallbacks;

	repeatWhile(not nullified(current))
	next = nextElementOfDaisyChain(current);
	variable = fetchElementFromDaisyChain(current);
	freeObject(variable);
	free(current);
	current = next;
	endWhile

freeObject(callbacksList);	nullify(lCallbacks);

#define purgeVariable(var) \	#define purgeVariable(var) \
do { \	do { \