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

Diff for /rpl/modules/motif/XtPopup.rplc between versions 1.1 and 1.3

version 1.1, 2017/07/10 07:25:24 version 1.3, 2017/07/30 21:59:40
Line 5  declareExternalFunction(XtPopup) Line 5  declareExternalFunction(XtPopup)
     declareObject(grab);      declareObject(grab);
     declareObject(widget);      declareObject(widget);
   
     string              gv;      integer8            gv;
   
     XtGrabKind          xt_gv;      XtGrabKind          xt_gv;
   
Line 16  declareExternalFunction(XtPopup) Line 16  declareExternalFunction(XtPopup)
         numberOfArguments(2);          numberOfArguments(2);
     FUNCTION      FUNCTION
         if (initializationDone eq true) then          if (initializationDone eq true) then
             pullFromStack(grab, string);              pullFromStack(grab, integer);
             returnOnError(freeObject(grab));              returnOnError(freeObject(grab));
   
             pullFromStack(widget, external);              pullFromStack(widget, external);
             returnOnError(freeObject(grab); freeObject(widget));              returnOnError(freeObject(grab); freeObject(widget));
   
             getString(grab, gv);              getInteger(grab, gv);
   
             if (strcmp(gv, "XtGrabNonexclusive") eq 0) then              if (gv eq XtGrabNonexclusive) then
                 xt_gv = XtGrabNonexclusive;                  xt_gv = XtGrabNonexclusive;
             elseIf (strcmp(gv, "XtGrabExclusive") eq 0) then              elseIf (gv eq XtGrabExclusive) then
                 xt_gv = XtGrabExclusive;                  xt_gv = XtGrabExclusive;
             orElse              orElse
                 executionError("Unknown grab value");                  executionError("Unknown grab value");
Line 39  declareExternalFunction(XtPopup) Line 39  declareExternalFunction(XtPopup)
                 returnOnError(freeObject(grab); freeObject(widget));                  returnOnError(freeObject(grab); freeObject(widget));
             endIf              endIf
   
             XtPopup(target((Widget *) objectContainer(widget)), xt_gv);              XtPopup(target(objectContainer(Widget, widget)), xt_gv);
   
             freeObject(widget);              freeObject(widget);
             freeObject(grab);              freeObject(grab);
Removed from v.1.1  
changed lines
  Added in v.1.3

CVSweb interface <joel.bertrand@systella.fr>