Return to XtDestroyWidget.rplc CVS log

Up to [local] / rpl / modules / motif

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

1.1       bertrand    1: #include "src/rplexternals.h"
                      2: #include "motif.h"
                      3: 
                      4: declareExternalFunction(XtDestroyWidget)
                      5:    declareObject(widget);
                      6: 
                      7:    HEADER
                      8:        declareHelpString("Destroy 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:            XtDestroyWidget(target(objectContainer(Widget, widget)));
1.1       bertrand   23: 
                     24:            freeObject(widget);
                     25:        orElse
                     26:            executionError("Application not initialized");
                     27:            returnOnError();
                     28:        endIf
                     29:    END
                     30: endExternalFunction
                     31: 
                     32: // vim: ts=4