[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.6 and 1.7

version 1.6, 2017/07/11 16:04:53 version 1.7, 2017/07/30 21:59:40
Line 168  declareExternalFunction(XtCreateWidget) Line 168  declareExternalFunction(XtCreateWidget)
                             (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,
                                 fetchElementFromDaisyChain(current2))));                                  fetchElementFromDaisyChain(current2))));
                     orElse                      orElse
                         executionError("Wait for XmN*Widget");                          executionError("Wait for XmN*Widget");
Line 196  declareExternalFunction(XtCreateWidget) Line 196  declareExternalFunction(XtCreateWidget)
                                 (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 221  declareExternalFunction(XtCreateWidget) Line 221  declareExternalFunction(XtCreateWidget)
             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)));              XtManageChild(target(objectContainer(Widget, widget)));
   
             pushOnStack(widget);              pushOnStack(widget);
             deallocate(args);              deallocate(args);
Removed from v.1.6  
changed lines
  Added in v.1.7

CVSweb interface <joel.bertrand@systella.fr>