Annotation of rpl/modules/motif/XtDestroyWidget.rplc, revision 1.1
1.1 ! bertrand 1: #include "src/rplexternals.h"
! 2: #include "motif.h"
! 3:
! 4: declareExternalFunction(XtDestroyWidget)
! 5: declareObject(widget);
! 6:
! 7: HEADER
! 8: declareHelpString("Destroy 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: XtDestroyWidget(target((Widget *) objectContainer(widget)));
! 23:
! 24: freeObject(widget);
! 25: orElse
! 26: executionError("Application not initialized");
! 27: returnOnError();
! 28: endIf
! 29: END
! 30: endExternalFunction
! 31:
! 32: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>