Return to XStoreName.rplc CVS log

Up to [local] / rpl / modules / motif

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

1.1     ! bertrand    1: #include "src/rplexternals.h"
        !             2: #include "motif.h"
        !             3: 
        !             4: declareExternalFunction(XStoreName)
        !             5:    declareObject(widget);
        !             6:    declareObject(name);
        !             7: 
        !             8:    string  w_name;
        !             9: 
        !            10:    HEADER
        !            11:        declareHelpString("Set widget name\n"
        !            12:                "    2: widget\n"
        !            13:                "    1: name\n");
        !            14:        numberOfArguments(2);
        !            15:    FUNCTION
        !            16:        if (initializationDone eq true) then
        !            17:            pullFromStack(name, string);
        !            18:            returnOnError(freeObject(name));
        !            19: 
        !            20:            pullFromStack(widget, external);
        !            21:            returnOnError(freeObject(name); freeObject(widget));
        !            22: 
        !            23:            ifIsExternal(widget, WIDGET) then
        !            24:            orElse
        !            25:                executionError("Type mismath error");
        !            26:                returnOnError(freeObject(name); freeObject(widget));
        !            27:            endIf
        !            28: 
        !            29:            getString(name, w_name);
        !            30: 
        !            31:            XStoreName(XtDisplay(target(objectContainer(Widget, widget))),
        !            32:                    XtWindow(target(objectContainer(Widget, widget))),
        !            33:                    w_name);
        !            34: 
        !            35:            freeObject(widget);
        !            36:            freeObject(name);
        !            37:        orElse
        !            38:            executionError("Application not initialized");
        !            39:            returnOnError();
        !            40:        endIf
        !            41:    END
        !            42: endExternalFunction
        !            43: 
        !            44: // vim: ts=4