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

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

version 1.1, 2017/07/05 13:53:40 version 1.2, 2017/07/05 19:07:19
Line 15  declareExternalFunction(XtCreateWidget) Line 15  declareExternalFunction(XtCreateWidget)
     char            target(name);      char            target(name);
     char            target(class);      char            target(class);
   
       ArgList         args;
     Cardinal        argNum;      Cardinal        argNum;
       String          argument;
     WidgetClass     wc;      WidgetClass     wc;
   
     HEADER      HEADER
Line 129  declareExternalFunction(XtCreateWidget) Line 131  declareExternalFunction(XtCreateWidget)
                 current = nextElementOfDaisyChain(current);                  current = nextElementOfDaisyChain(current);
                 postIncr(argNum);                  postIncr(argNum);
             endWhile              endWhile
   
               args = allocate(size(Arg) * argNum);
               argNum = 0;
               getDaisyChainFromList(parametersObject, current);
   
               repeatWhile(not nullified(current))
                   list = fetchElementFromDaisyChain(current);
                   getDaisyChainFromList(list, current2);
                   getString(fetchElementFromDaisyChain(current2), name);
                   current2 = nextElementOfDaisyChain(current2);
   
                   XmN_constants(name, argument);
   
                   returnOnError(freeObject(parametersObject);
                           freeObject(parentObject);
                           freeObject(classObject);
                           freeObject(nameObject));
   
   
               endWhile
   
         orElse          orElse
             executionError("Application not initialized");              executionError("Application not initialized");
             returnOnError();              returnOnError();
Removed from v.1.1  
changed lines
  Added in v.1.2

CVSweb interface <joel.bertrand@systella.fr>