Annotation of rpl/modules/motif/XtRealizeWidget.rplc, revision 1.2
1.1 bertrand 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:
1.2 ! bertrand 22: XtRealizeWidget(target(objectContainer(Widget, widget)));
1.1 bertrand 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>