[BACK]Return to motif.rplc CVS log [TXT] [DIR] Up to [local] / rpl / modules / motif

Diff for /rpl/modules/motif/motif.rplc between versions 1.2 and 1.10

version 1.2, 2017/07/04 21:13:37 version 1.10, 2017/08/23 09:40:54
Line 6  libraryName(motif); Line 6  libraryName(motif);
   
 exportExternalFunctions(  exportExternalFunctions(
         XSynchronize,          XSynchronize,
           XStoreName,
         XtAddCallback,          XtAddCallback,
           XtAppExitMainLoop,
         XtAppInitialize,          XtAppInitialize,
         XtAppMainLoop,          XtAppMainLoop,
         XtAppExitMainLoop,  
         XtCreatePopupShell,          XtCreatePopupShell,
           XtCreateManagedWidget,
         XtCreateWidget,          XtCreateWidget,
         XtDestroyWidget,          XtDestroyWidget,
           XtOpenApplication,
         XtPopdown,          XtPopdown,
         XtPopup,          XtPopup,
         XtRealizeWidget,          XtRealizeWidget,
         XtRemoveAllCallbacks,  
         XtRemoveCallback);          XtRemoveCallback);
   
 declareSubroutine(onLoading)  declareSubroutine(onLoading)
     declareInteger(i);  
   
     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");
     notice(stdout, "Motif library loaded.\n\n");      notice(stdout, "Motif library loaded.\n\n");
   
     nombre_widgets = 256;  
     widgets = sys_malloc(nombre_widgets * size(Widget));  
     presence_widget = sys_malloc(nombre_widgets * size(char));  
   
     loop(i = 0, i < nombre_widgets, i++)  
         presence_widget[i] = 0;  
     endLoop  
   
     nombre_callbacks = 256;  
     callbacks = sys_malloc(nombre_callbacks * size(callbackArg));  
     presence_callback = sys_malloc(nombre_callbacks * size(char));  
       
     loop(i = 0, i < nombre_callbacks, i++)  
         presence_callback[i] = 0;  
     endLoop  
   
     // Création des variables spécifiques      // Création des variables spécifiques
   
     declareObject(variable);      declareObject(variable);
Line 83  declareSubroutine(onLoading) Line 67  declareSubroutine(onLoading)
     createVariable(XtGrabExclusive);      createVariable(XtGrabExclusive);
   
     createVariable(XmSTRING);      createVariable(XmSTRING);
   
       setFalse(initializationDone);
       nullify(lCallbacks);
 endSubroutine  endSubroutine
   
 declareSubroutine(onClosing)  declareSubroutine(onClosing)
     // Destruction des variables spécifiques      // Destruction des variables spécifiques et des callbacks
     declareInteger(i);  
   
     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 { \
Line 125  declareSubroutine(onClosing) Line 124  declareSubroutine(onClosing)
   
     purgeVariable(XmSTRING);      purgeVariable(XmSTRING);
   
     sys_free(widgets);  
     sys_free(presence_widget);  
   
     loop(i = 0, i < nombre_callbacks, i++)  
         if (presence_callback[i] ne 0) then  
             freeObject(callbacks[i].s_objet);  
         endIf  
     endLoop  
       
     sys_free(callbacks);  
     sys_free(presence_callback);  
   
     notice(stdout, "Motif library unloaded.\n\n");      notice(stdout, "Motif library unloaded.\n\n");
 endSubroutine  endSubroutine
   
 declareExternalFunction(XtDestroyWidget)  
     HEADER  
     FUNCTION  
     END  
 endExternalFunction  
   
 declareExternalFunction(XtRemoveCallback)  
     HEADER  
     FUNCTION  
     END  
 endExternalFunction  
   
 declareExternalFunction(XtRemoveAllCallbacks)  
     HEADER  
     FUNCTION  
     END  
 endExternalFunction  
   
 /*  
 XmStringCreateLtoR  
 XmCreateRadioBox  
 XtVaSetValues  
 XmStringFree  
 XmTextFieldSetString  
 XtManageChild  
 XtSetSensitive  
 XtVaGetValues  
 XtAncetre  
 */  
   
 // vim: ts=4  // vim: ts=4
Removed from v.1.2  
changed lines
  Added in v.1.10

CVSweb interface <joel.bertrand@systella.fr>