[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.5

version 1.2, 2017/07/04 21:13:37 version 1.5, 2017/07/11 16:04:53
Line 7  libraryName(motif); Line 7  libraryName(motif);
 exportExternalFunctions(  exportExternalFunctions(
         XSynchronize,          XSynchronize,
         XtAddCallback,          XtAddCallback,
           XtAppExitMainLoop,
         XtAppInitialize,          XtAppInitialize,
         XtAppMainLoop,          XtAppMainLoop,
         XtAppExitMainLoop,  
         XtCreatePopupShell,          XtCreatePopupShell,
         XtCreateWidget,          XtCreateWidget,
         XtDestroyWidget,          XtDestroyWidget,
         XtPopdown,          XtPopdown,
         XtPopup,          XtPopup,
         XtRealizeWidget,          XtRealizeWidget);
         XtRemoveAllCallbacks,  
         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 63  declareSubroutine(onLoading)
     createVariable(XtGrabExclusive);      createVariable(XtGrabExclusive);
   
     createVariable(XmSTRING);      createVariable(XmSTRING);
   
       setFalse(initializationDone);
       lCallbacks = NULL;
 endSubroutine  endSubroutine
   
 declareSubroutine(onClosing)  declareSubroutine(onClosing)
     // Destruction des variables spécifiques      // Destruction des variables spécifiques
     declareInteger(i);  
   
     declareObject(variable);      declareObject(variable);
   
 #define purgeVariable(var) \  #define purgeVariable(var) \
Line 125  declareSubroutine(onClosing) Line 106  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.5

CVSweb interface <joel.bertrand@systella.fr>