[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.1 and 1.3

version 1.1, 2017/07/04 19:11:02 version 1.3, 2017/07/05 13:53:40
Line 5 Line 5
 libraryName(motif);  libraryName(motif);
   
 exportExternalFunctions(  exportExternalFunctions(
         XSynchronize,          XtAppExitMainLoop,
         XtAddCallback,  
         XtAppInitialize,          XtAppInitialize,
         XtAppMainLoop,          XtAppMainLoop,
         XtAppExitMainLoop,          XtCreateWidget);
         XtCreatePopupShell,  
         XtCreateWidget,  
         XtDestroyWidget,  
         XtPopdown,  
         XtPopup,  
         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 V1R1 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 87  endSubroutine Line 60  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 96  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.1  
changed lines
  Added in v.1.3

CVSweb interface <joel.bertrand@systella.fr>