#include "src/rplexternals.h"
#include "motif.h"

declareExternalFunction(XSynchronize)
	declareObject(widget);
	declareObject(value);

	declareInteger(flag);

	HEADER
		declareHelpString("XSynchronize XtDisplay of widget\n"
				"    2: widget\n"
				"    1: flag (true or false)\n");
		numberOfArguments(2);
	FUNCTION
		if (initializationDone eq true) then

			pullFromStack(value, integer);
			returnOnError(freeObject(value));
			pullFromStack(widget, external);
			returnOnError(freeObject(widget); freeObject(value));

			ifIsExternal(widget, WIDGET) then
				getInteger(value, flag);

				if ((flag eq true) or (flag eq false)) then
					XSynchronize(XtDisplay(target((Widget *)
							objectContainer(widget))), flag);
				orElse
					executionError("Flag error");
					returnOnError(freeObject(widget); freeObject(value));
				endIf
			orElse
				executionError("Type mismatch error");
				returnOnError(freeObject(widget); freeObject(value));
			endIf

			freeObject(value);
			freeObject(widget);
		orElse
			executionError("Application not initialized");
			returnOnError();
		endIf
	END
endExternalFunction

// vim: ts=4