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

version 1.5, 2017/07/10 14:47:59 version 1.8, 2017/08/22 11:22:04
Line 145  declareExternalFunction(XtCreateWidget) Line 145  declareExternalFunction(XtCreateWidget)
                 postIncr(argNum);                  postIncr(argNum);
             endWhile              endWhile
   
 uprintf("%d\n", argNum);  
             args = allocate(size(Arg) * argNum);              args = allocate(size(Arg) * argNum);
             argNum = 0;              argNum = 0;
             getDaisyChainFromList(parametersObject, current);              getDaisyChainFromList(parametersObject, current);
Line 168  uprintf("%d\n", argNum); Line 167  uprintf("%d\n", argNum);
                             (strcmp(command, "XmNbottomWidget") eq 0) or                              (strcmp(command, "XmNbottomWidget") eq 0) or
                             (strcmp(command, "XmNleftWidget") eq 0) or                              (strcmp(command, "XmNleftWidget") eq 0) or
                             (strcmp(command, "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(  
                                 current2)))).widget);  
 */  
                         XtSetArg(args[argNum], argument,  
                                 (XtArgVal) target((Widget *) objectContainer(  
                                 fetchElementFromDaisyChain(current2))));                                  fetchElementFromDaisyChain(current2))));
                     orElse                      orElse
                         executionError("Wait for XmN*Widget");                          executionError("Wait for XmN*Widget");
Line 203  uprintf("%d\n", argNum); Line 196  uprintf("%d\n", argNum);
                                 (strcmp(command, "XmNleftWidget") eq 0) or                                  (strcmp(command, "XmNleftWidget") eq 0) or
                                 (strcmp(command, "XmNrightWidget") eq 0)) then                                  (strcmp(command, "XmNrightWidget") eq 0)) then
                         XtSetArg(args[argNum], argument,                          XtSetArg(args[argNum], argument,
                                 (XtArgVal) target((Widget *) objectContainer(                                  (XtArgVal) target(objectContainer(Widget,
                                 directive)));                                  directive)));
                         orElse                          orElse
                             executionError("Wait for XmN*Widget");                              executionError("Wait for XmN*Widget");
Line 228  uprintf("%d\n", argNum); Line 221  uprintf("%d\n", argNum);
             endWhile              endWhile
   
             createExternalObject(widget, WIDGET);              createExternalObject(widget, WIDGET);
             objectContainer(widget) = allocate(size(Widget));              objectOf(widget) = allocate(size(Widget));
   
             target((Widget *) objectContainer(widget)) =              target(objectContainer(Widget, widget)) =
                     XtCreateWidget(name, wc, target((Widget *)                      XtCreateWidget(name, wc, target(
                     objectContainer(parentObject)), args, argNum);                      objectContainer(Widget, parentObject)), args, argNum);
             XtManageChild(target((Widget *) objectContainer(widget)));  
   
             pushOnStack(widget);              pushOnStack(widget);
             deallocate(args);              deallocate(args);
Removed from v.1.5  
changed lines
  Added in v.1.8

CVSweb interface <joel.bertrand@systella.fr>