[BACK]Return to XtRealizeWidget.rplc CVS log [TXT] [DIR] Up to [local] / rpl / modules / motif
File:  [local] / rpl / modules / motif / XtRealizeWidget.rplc
Revision 1.2: download - view: text, annotated - select for diffs - revision graph
Sun Jul 30 21:59:40 2017 UTC (7 years, 9 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, rpl-4_1_27, HEAD
Ajout d'une série de patches pour gérer les instructions de type A->B
dans les bibliothèques externes.

    1: #include "src/rplexternals.h"
    2: #include "motif.h"
    3: 
    4: declareExternalFunction(XtRealizeWidget)
    5:     declareObject(widget);
    6: 
    7:     HEADER
    8:         declareHelpString("XtRealyze 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 mismatch error");
   19:                 returnOnError(freeObject(widget));
   20:             endIf
   21: 
   22:             XtRealizeWidget(target(objectContainer(Widget, widget)));
   23:         orElse
   24:             executionError("Application not initialized");
   25:             returnOnError();
   26:         endIf
   27:     END
   28: endExternalFunction
   29: 
   30: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>