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

version 1.4, 2017/07/10 07:25:24 version 1.8, 2017/08/22 11:22:04
Line 18  declareExternalFunction(XtCreateWidget) Line 18  declareExternalFunction(XtCreateWidget)
     char            target(name);      char            target(name);
     char            target(class);      char            target(class);
     char            target(cvalue);      char            target(cvalue);
       char            target(command);
   
     ArgList         args;      ArgList         args;
     Cardinal        argNum;      Cardinal        argNum;
Line 42  declareExternalFunction(XtCreateWidget) Line 43  declareExternalFunction(XtCreateWidget)
             returnOnError(freeObject(parametersObject);              returnOnError(freeObject(parametersObject);
                     freeObject(parentObject));                      freeObject(parentObject));
   
             ifIsExternal(widget, WIDGET) then              ifIsExternal(parentObject, WIDGET) then
             orElse              orElse
                 executionError("Type mismatch error");                  executionError("Type mismatch error");
                 returnOnError(freeObject(parametersObject);                  returnOnError(freeObject(parametersObject);
Line 151  declareExternalFunction(XtCreateWidget) Line 152  declareExternalFunction(XtCreateWidget)
             repeatWhile(not nullified(current))              repeatWhile(not nullified(current))
                 list = fetchElementFromDaisyChain(current);                  list = fetchElementFromDaisyChain(current);
                 getDaisyChainFromList(list, current2);                  getDaisyChainFromList(list, current2);
                 getString(fetchElementFromDaisyChain(current2), name);                  getString(fetchElementFromDaisyChain(current2), command);
                 current2 = nextElementOfDaisyChain(current2);                  current2 = nextElementOfDaisyChain(current2);
   
                 XmN_constants(name, argument);                  XmN_constants(command, argument);
   
                 returnOnError(freeObject(parametersObject);                  returnOnError(freeObject(parametersObject);
                         freeObject(parentObject);                          freeObject(parentObject);
Line 162  declareExternalFunction(XtCreateWidget) Line 163  declareExternalFunction(XtCreateWidget)
                         freeObject(nameObject));                          freeObject(nameObject));
   
                 ifIsExternal(fetchElementFromDaisyChain(current2), WIDGET) then                  ifIsExternal(fetchElementFromDaisyChain(current2), WIDGET) then
                     if ((strcmp(name, "XmNtopWidget") eq 0) or                      if ((strcmp(command, "XmNtopWidget") eq 0) or
                             (strcmp(name, "XmNbottomWidget") eq 0) or                              (strcmp(command, "XmNbottomWidget") eq 0) or
                             (strcmp(name, "XmNleftWidget") eq 0) or                              (strcmp(command, "XmNleftWidget") eq 0) or
                             (strcmp(name, "XmNrightWidget") eq 0)) then                              (strcmp(command, "XmNrightWidget") eq 0)) then
                         XtSetArg(args[argNum], argument,                          XtSetArg(args[argNum], argument,
                                 (XtArgVal) (*((sXtAppContext *)                                  (XtArgVal) target(objectContainer(Widget,
                                 objectContainer(fetchElementFromDaisyChain(                                  fetchElementFromDaisyChain(current2))));
                                 current2)))).widget);  
                     orElse                      orElse
                         executionError("Wait for XmN*Widget");                          executionError("Wait for XmN*Widget");
                         deallocate(args);                          deallocate(args);
Line 191  declareExternalFunction(XtCreateWidget) Line 191  declareExternalFunction(XtCreateWidget)
                         getInteger(directive, value);                          getInteger(directive, value);
                         XtSetArg(args[argNum], argument, (XtArgVal) value);                          XtSetArg(args[argNum], argument, (XtArgVal) value);
                     elseIfIsExternal(directive, WIDGET) then                      elseIfIsExternal(directive, WIDGET) then
                         if ((strcmp(name, "XmNtopWidget") eq 0) or                          if ((strcmp(command, "XmNtopWidget") eq 0) or
                                 (strcmp(name, "XmNbottomWidget") eq 0) or                                  (strcmp(command, "XmNbottomWidget") eq 0) or
                                 (strcmp(name, "XmNleftWidget") eq 0) or                                  (strcmp(command, "XmNleftWidget") eq 0) or
                                 (strcmp(name, "XmNrightWidget") eq 0)) then                                  (strcmp(command, "XmNrightWidget") eq 0)) then
                             XtSetArg(args[argNum], argument,                          XtSetArg(args[argNum], argument,
                                     (XtArgVal) (*((sXtAppContext *)                                  (XtArgVal) target(objectContainer(Widget,
                                     objectContainer(directive))).widget);                                  directive)));
                         orElse                          orElse
                             executionError("Wait for XmN*Widget");                              executionError("Wait for XmN*Widget");
                             deallocate(args);                              deallocate(args);
Line 215  declareExternalFunction(XtCreateWidget) Line 215  declareExternalFunction(XtCreateWidget)
                     x_string = XmStringCreate(cvalue, XmFONTLIST_DEFAULT_TAG);                      x_string = XmStringCreate(cvalue, XmFONTLIST_DEFAULT_TAG);
                     XtSetArg(args[argNum], argument, (XtArgVal) x_string);                      XtSetArg(args[argNum], argument, (XtArgVal) x_string);
                 endIf                  endIf
   
                   current = nextElementOfDaisyChain(current);
                   postIncr(argNum);
             endWhile              endWhile
   
             createExternalObject(widget, WIDGET);              createExternalObject(widget, WIDGET);
               objectOf(widget) = allocate(size(Widget));
   
             target((Widget *) objectContainer(widget)) =              target(objectContainer(Widget, widget)) =
                     XtCreateWidget(name, wc, target((sXtAppContext *)                      XtCreateWidget(name, wc, target(
                     objectContainer(parentObject)).widget, args, argNum);                      objectContainer(Widget, parentObject)), args, argNum);
             XtManageChild(target((Widget *) objectContainer(widget)));  
   
             pushOnStack(widget);              pushOnStack(widget);
             deallocate(args);              deallocate(args);
Removed from v.1.4  
changed lines
  Added in v.1.8

CVSweb interface <joel.bertrand@systella.fr>