rpl/modules/motif/XtPopup.rplc - diff

Return to XtPopup.rplc CVS log

Up to [local] / rpl / modules / motif

version 1.1, 2017/07/10 07:25:24	version 1.2, 2017/07/17 21:35:32
Line 5 declareExternalFunction(XtPopup)	Line 5 declareExternalFunction(XtPopup)
declareObject(grab);	declareObject(grab);
declareObject(widget);	declareObject(widget);

string gv;	integer8 gv;

XtGrabKind xt_gv;	XtGrabKind xt_gv;

Line 16 declareExternalFunction(XtPopup)	Line 16 declareExternalFunction(XtPopup)
numberOfArguments(2);	numberOfArguments(2);
FUNCTION	FUNCTION
if (initializationDone eq true) then	if (initializationDone eq true) then
pullFromStack(grab, string);	pullFromStack(grab, integer);
returnOnError(freeObject(grab));	returnOnError(freeObject(grab));

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

getString(grab, gv);	getInteger(grab, gv);

if (strcmp(gv, "XtGrabNonexclusive") eq 0) then	if (gv eq XtGrabNonexclusive) then
xt_gv = XtGrabNonexclusive;	xt_gv = XtGrabNonexclusive;
elseIf (strcmp(gv, "XtGrabExclusive") eq 0) then	elseIf (gv eq XtGrabExclusive) then
xt_gv = XtGrabExclusive;	xt_gv = XtGrabExclusive;
orElse	orElse
executionError("Unknown grab value");	executionError("Unknown grab value");