version 1.5, 2017/07/11 16:04:53
|
version 1.11, 2017/08/23 12:21:59
|
Line 6 libraryName(motif);
|
Line 6 libraryName(motif);
|
|
|
exportExternalFunctions( |
exportExternalFunctions( |
XSynchronize, |
XSynchronize, |
|
XStoreName, |
|
XmSetIcon, |
XtAddCallback, |
XtAddCallback, |
XtAppExitMainLoop, |
XtAppExitMainLoop, |
XtAppInitialize, |
XtAppInitialize, |
XtAppMainLoop, |
XtAppMainLoop, |
XtCreatePopupShell, |
XtCreatePopupShell, |
|
XtCreateManagedWidget, |
XtCreateWidget, |
XtCreateWidget, |
XtDestroyWidget, |
XtDestroyWidget, |
|
XtOpenApplication, |
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 65 declareSubroutine(onLoading)
|
Line 70 declareSubroutine(onLoading)
|
createVariable(XmSTRING); |
createVariable(XmSTRING); |
|
|
setFalse(initializationDone); |
setFalse(initializationDone); |
lCallbacks = NULL; |
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 |
|
|
|
nullify(lCallbacks); |
|
|
#define purgeVariable(var) \ |
#define purgeVariable(var) \ |
do { \ |
do { \ |