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

Diff for /rpl/modules/motif/XtAppInitialize.rplc between versions 1.1 and 1.7

version 1.1, 2017/07/05 13:53:39 version 1.7, 2017/08/22 12:13:55
Line 27  declareExternalFunction(XtAppInitialize) Line 27  declareExternalFunction(XtAppInitialize)
         createExternalObject(appObject, APPCONTEXT);          createExternalObject(appObject, APPCONTEXT);
         createExternalObject(widgetObject, WIDGET);          createExternalObject(widgetObject, WIDGET);
   
         objectContainer(appObject) = allocate(size(sXtAppContext));          objectOf(appObject) = allocate(size(sXtAppContext));
         objectContainer(widgetObject) = allocate(size(Widget));          objectOf(widgetObject) = allocate(size(Widget));
   
         target((Widget *) objectContainer(widgetObject)) =          XtSetLanguageProc(NULL, NULL, NULL);
                 XtVaAppInitialize(address(target((sXtAppContext *)  
                 objectContainer(appObject)).context),          target(objectContainer(Widget, widgetObject)) =
                   XtVaAppInitialize(address(target(
                   objectContainer(sXtAppContext, appObject)).context),
                 name, NULL, 0, address(argc), argv, NULL, NULL);                  name, NULL, 0, address(argc), argv, NULL, NULL);
         target((sXtAppContext *) objectContainer(appObject)).widget =          target(objectContainer(sXtAppContext, appObject)).widget =
                 target((Widget *) objectContainer(widgetObject));                  target(objectContainer(Widget, widgetObject));
   
         freeObject(nameObject);          freeObject(nameObject);
   
         if (nullified(objectContainer(appObject))) then          if (nullified(objectOf(appObject))) then
             executionError("Nullified XtAppContext");              executionError("Nullified XtAppContext");
             freeObject(appObject);              freeObject(appObject);
             freeObject(widgetObject);              freeObject(widgetObject);
Line 53  declareExternalFunction(XtAppInitialize) Line 55  declareExternalFunction(XtAppInitialize)
         setTrue(initializationDone);          setTrue(initializationDone);
     END      END
 endExternalFunction  endExternalFunction
   
   // vim: ts=4
Removed from v.1.1  
changed lines
  Added in v.1.7

CVSweb interface <joel.bertrand@systella.fr>