Annotation of rpl/modules/motif/XtPopdown.rplc, revision 1.1
1.1 ! bertrand 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>