[BACK]Return to XStoreName.rplc CVS log [TXT] [DIR] Up to [local] / rpl / modules / motif
File:  [local] / rpl / modules / motif / XStoreName.rplc
Revision 1.1: download - view: text, annotated - select for diffs - revision graph
Tue Aug 22 11:37:31 2017 UTC (7 years, 8 months ago) by bertrand
Branches: MAIN
CVS tags: rpl-4_1_35, rpl-4_1_34, rpl-4_1_33, rpl-4_1_32, rpl-4_1_31, rpl-4_1_30, rpl-4_1_29, rpl-4_1_28, HEAD
Ajout de XStoreName.

    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
CVSweb interface <joel.bertrand@systella.fr>