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

declareExternalFunction(XStoreName)
	declareObject(widget);
	declareObject(name);

	string	w_name;

	HEADER
		declareHelpString("Set widget name\n"
				"    2: widget\n"
				"    1: name\n");
		numberOfArguments(2);
	FUNCTION
		if (initializationDone eq true) then
			pullFromStack(name, string);
			returnOnError(freeObject(name));

			pullFromStack(widget, external);
			returnOnError(freeObject(name); freeObject(widget));

			ifIsExternal(widget, WIDGET) then
			orElse
				executionError("Type mismath error");
				returnOnError(freeObject(name); freeObject(widget));
			endIf

			getString(name, w_name);

			XStoreName(XtDisplay(target(objectContainer(Widget, widget))),
					XtWindow(target(objectContainer(Widget, widget))),
					w_name);

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

// vim: ts=4