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

Diff for /rpl/modules/motif/XtAppMainLoop.rplc between versions 1.3 and 1.4

version 1.3, 2017/07/17 21:35:32 version 1.4, 2017/07/30 21:59:40
Line 24  declareExternalFunction(XtAppMainLoop) Line 24  declareExternalFunction(XtAppMainLoop)
             intrinsic(pshcntxt);              intrinsic(pshcntxt);
   
             doUntil              doUntil
                 if (XtAppPending(target((sXtAppContext *)                  if (XtAppPending(target(objectContainer(sXtAppContext,
                         objectContainer(appObject)).context) ne 0) then                          appObject)).context) ne 0) then
                     XtAppNextEvent(target((sXtAppContext *)                      XtAppNextEvent(target(objectContainer(sXtAppContext,
                             objectContainer(appObject)).context, &event);                              appObject)).context, &event);
   
                     if (event.type eq DestroyNotify) then                      if (event.type eq DestroyNotify) then
                         if (event.xdestroywindow.window eq                          if (event.xdestroywindow.window eq
                                 XtWindow(target((sXtAppContext *)                                  XtWindow(target(objectContainer(sXtAppContext,
                                 objectContainer(appObject)).widget)) then                                  appObject)).widget)) then
                             XtAppSetExitFlag(target((sXtAppContext *)                              XtAppSetExitFlag(target(objectContainer(
                                     objectContainer(appObject)).context);                                      sXtAppContext, appObject)).context);
                         endIf                          endIf
                     endIf                      endIf
   
Line 43  declareExternalFunction(XtAppMainLoop) Line 43  declareExternalFunction(XtAppMainLoop)
                     pollSignalsAndInterrupts();                      pollSignalsAndInterrupts();
                     usleep(10000);                      usleep(10000);
                 endIf                  endIf
             repeatUntil(XtAppGetExitFlag(target((sXtAppContext *)              repeatUntil(XtAppGetExitFlag(target(
                     objectContainer(appObject)).context) or                      objectContainer(sXtAppContext, appObject)).context) or
                     (stopRequest eq -1) or                      (stopRequest eq -1) or
                     (exitMainLoop ne 0))                      (exitMainLoop ne 0))
   
             intrinsic(pulcntxt);              intrinsic(pulcntxt);
   
             XtDestroyApplicationContext(target((sXtAppContext *)              XtDestroyApplicationContext(target(
                     objectContainer(appObject)).context);                      objectContainer(sXtAppContext, appObject)).context);
         orElse          orElse
             executionError("Application not initialized");              executionError("Application not initialized");
             returnOnError();              returnOnError();
Removed from v.1.3  
changed lines
  Added in v.1.4

CVSweb interface <joel.bertrand@systella.fr>