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((Widget *) objectContainer(widget)));
23: XFlush(XtDisplay(target((Widget *) objectContainer(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>