[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.3 and 1.8

version 1.3, 2017/07/10 14:48:44 version 1.8, 2017/08/23 09:40:53
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));
   
           XtVaSetValues(target(objectContainer(Widget, widgetObject)),
                   XmNtitle, name,
                   NULL);
         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);
Removed from v.1.3  
changed lines
  Added in v.1.8

CVSweb interface <joel.bertrand@systella.fr>