[BACK]Return to XtPopdown.rplc CVS log [TXT] [DIR] Up to [local] / rpl / modules / motif
File:  [local] / rpl / modules / motif / XtPopdown.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(XtPopdown)
    5:     declareObject(widget);
    6: 
    7:     HEADER
    8:         declareHelpString("Popdown a 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 mismath error");
   19:                 returnOnError(freeObject(widget));
   20:             endIf
   21: 
   22:             XtPopdown(target(objectContainer(Widget, widget)));
   23:             XFlush(XtDisplay(target(objectContainer(Widget, widget))));
   24: 
   25:             freeObject(widget);
   26:         orElse
   27:             executionError("Application not initialized");
   28:             returnOnError();
   29:         endIf
   30:     END
   31: endExternalFunction
   32: 
   33: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>