--- rpl/modules/motif/motif.rplc 2017/07/05 13:53:40 1.3 +++ rpl/modules/motif/motif.rplc 2017/07/10 07:25:24 1.4 @@ -5,10 +5,17 @@ libraryName(motif); exportExternalFunctions( + XSynchronize, + XtAddCallback, XtAppExitMainLoop, XtAppInitialize, XtAppMainLoop, - XtCreateWidget); + XtCreatePopupShell, + XtCreateWidget, + XtDestroyWidget, + XtPopdown, + XtPopup, + XtRealizeWidget); declareSubroutine(onLoading) notice(stdout, "\nMotif library V2R1 for RPL/2 (C) 2017 BERTRAND Joel\n"); @@ -56,12 +63,18 @@ declareSubroutine(onLoading) createVariable(XtGrabExclusive); createVariable(XmSTRING); + + createListObject(callbacksList); + + setFalse(initializationDone); endSubroutine declareSubroutine(onClosing) // Destruction des variables spécifiques declareObject(variable); + freeObject(callbacksList); + #define purgeVariable(var) \ do { \ createNameObject(variable); \