Return to XtAppInitialize.rplc CVS log

Up to [local] / rpl / modules / motif

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

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.7     ! bertrand   33:        XtSetLanguageProc(NULL, NULL, NULL);
        !            34: 
1.4       bertrand   35:        target(objectContainer(Widget, widgetObject)) =
                     36:                XtVaAppInitialize(address(target(
                     37:                objectContainer(sXtAppContext, appObject)).context),
1.1       bertrand   38:                name, NULL, 0, address(argc), argv, NULL, NULL);
1.4       bertrand   39:        target(objectContainer(sXtAppContext, appObject)).widget =
                     40:                target(objectContainer(Widget, widgetObject));
1.1       bertrand   41: 
                     42:        freeObject(nameObject);
                     43: 
1.4       bertrand   44:        if (nullified(objectOf(appObject))) then
1.1       bertrand   45:            executionError("Nullified XtAppContext");
                     46:            freeObject(appObject);
                     47:            freeObject(widgetObject);
                     48:            returnOnError();
                     49:        endIf
                     50: 
                     51:        pushOnStack(appObject);
                     52:        pushOnStack(widgetObject);
                     53: 
                     54:        setFalse(exitMainLoop);
                     55:        setTrue(initializationDone);
                     56:    END
                     57: endExternalFunction
1.2       bertrand   58: 
                     59: // vim: ts=4