Return to XtAppInitialize.rplc CVS log

Up to [local] / rpl / modules / motif

Annotation of rpl/modules/motif/XtAppInitialize.rplc, revision 1.5

1.1       bertrand    1: #include "src/rplexternals.h"
                      2: #include "motif.h"
                      3: 
                      4: declareExternalFunction(XtAppInitialize)
                      5:    int             argc;
                      6:    String          *argv;
                      7:    char            *name;
                      8: 
                      9:    declareObject(appObject);
                     10:    declareObject(nameObject);
                     11:    declareObject(widgetObject);
                     12: 
                     13:    HEADER
                     14:        declareHelpString("Initialize application context\n"
                     15:                "    1: \"application name\"\n"
                     16:                " -> 2: AppContext\n"
                     17:                "    1: Widget\n");
                     18:        numberOfArguments(1);
                     19:    FUNCTION
                     20:        pullFromStack(nameObject, string);
                     21:        returnOnError(freeObject(nameObject));
                     22:        getString(nameObject, name);
                     23: 
                     24:        argc = 0;
                     25:        nullify(argv);
                     26: 
                     27:        createExternalObject(appObject, APPCONTEXT);
                     28:        createExternalObject(widgetObject, WIDGET);
                     29: 
1.4       bertrand   30:        objectOf(appObject) = allocate(size(sXtAppContext));
                     31:        objectOf(widgetObject) = allocate(size(Widget));
1.1       bertrand   32: 
1.4       bertrand   33:        target(objectContainer(Widget, widgetObject)) =
                     34:                XtVaAppInitialize(address(target(
                     35:                objectContainer(sXtAppContext, appObject)).context),
1.1       bertrand   36:                name, NULL, 0, address(argc), argv, NULL, NULL);
1.4       bertrand   37:        target(objectContainer(sXtAppContext, appObject)).widget =
                     38:                target(objectContainer(Widget, widgetObject));
1.1       bertrand   39: 
                     40:        freeObject(nameObject);
                     41: 
1.4       bertrand   42:        if (nullified(objectOf(appObject))) then
1.1       bertrand   43:            executionError("Nullified XtAppContext");
                     44:            freeObject(appObject);
                     45:            freeObject(widgetObject);
                     46:            returnOnError();
                     47:        endIf
                     48: 
                     49:        pushOnStack(appObject);
                     50:        pushOnStack(widgetObject);
                     51: 
                     52:        setFalse(exitMainLoop);
                     53:        setTrue(initializationDone);
                     54:    END
                     55: endExternalFunction
1.2       bertrand   56: 
                     57: // vim: ts=4