Return to XtPopdown.rplc CVS log

Up to [local] / rpl / modules / motif

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

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