Return to XtPopdown.rplc CVS log

Up to [local] / rpl / modules / motif

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

1.1     ! bertrand    1: #include "src/rplexternals.h"
        !             2: #include "motif.h"
        !             3: 
        !             4: declareExternalFunction(XtPopdown)
        !             5:    declareObject(widget);
        !             6: 
        !             7:    HEADER
        !             8:        declareHelpString("Popdown a 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 mismath error");
        !            19:                returnOnError(freeObject(widget));
        !            20:            endIf
        !            21: 
        !            22:            XtPopdown(target((Widget *) objectContainer(widget)));
        !            23:            XFlush(XtDisplay(target((Widget *) objectContainer(widget))));
        !            24: 
        !            25:            freeObject(widget);
        !            26:        orElse
        !            27:            executionError("Application not initialized");
        !            28:            returnOnError();
        !            29:        endIf
        !            30:    END
        !            31: endExternalFunction
        !            32: 
        !            33: // vim: ts=4