Return to XtRealizeWidget.rplc CVS log

Up to [local] / rpl / modules / motif

Patches pour motif.rplso.

    1: #include "src/rplexternals.h"
    2: #include "motif.h"
    3: 
    4: declareExternalFunction(XtRealizeWidget)
    5:     declareObject(widget);
    6: 
    7:     HEADER
    8:         declareHelpString("XtRealyze widget\n"
    9:                 "    1: widget\n");
   10:         numberOfArguments(1);
   11:     FUNCTION
   12:         if (initializationDone eq true) then
   13:             pullFromStack(widget, external);
   14:             returnOnError(freeObject(widget));
   15: 
   16:             ifIsExternal(widget, WIDGET) then
   17:             orElse
   18:                 executionError("Type mismatch error");
   19:                 returnOnError(freeObject(widget));
   20:             endIf
   21: 
   22:             XtRealizeWidget(target((Widget *) objectContainer(widget)));
   23:         orElse
   24:             executionError("Application not initialized");
   25:             returnOnError();
   26:         endIf
   27:     END
   28: endExternalFunction
   29: 
   30: // vim: ts=4