Return to XtRealizeWidget.rplc CVS log

Up to [local] / rpl / modules / motif

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

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: 
        !            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