Return to XtRealizeWidget.rplc CVS log

Up to [local] / rpl / modules / motif

Annotation of rpl/modules/motif/XtRealizeWidget.rplc, revision 1.2

1.1       bertrand    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: 
1.2     ! bertrand   22:            XtRealizeWidget(target(objectContainer(Widget, widget)));
1.1       bertrand   23:        orElse
                     24:            executionError("Application not initialized");
                     25:            returnOnError();
                     26:        endIf
                     27:    END
                     28: endExternalFunction
                     29: 
                     30: // vim: ts=4