--- rpl/modules/motif/XtPopup.rplc	2017/07/10 07:25:24	1.1
+++ rpl/modules/motif/XtPopup.rplc	2017/07/17 21:35:32	1.2
@@ -5,7 +5,7 @@ declareExternalFunction(XtPopup)
 	declareObject(grab);
 	declareObject(widget);
 
-	string				gv;
+	integer8			gv;
 
 	XtGrabKind			xt_gv;
 
@@ -16,17 +16,17 @@ declareExternalFunction(XtPopup)
 		numberOfArguments(2);
 	FUNCTION
 		if (initializationDone eq true) then
-			pullFromStack(grab, string);
+			pullFromStack(grab, integer);
 			returnOnError(freeObject(grab));
 
 			pullFromStack(widget, external);
 			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;
-			elseIf (strcmp(gv, "XtGrabExclusive") eq 0) then
+			elseIf (gv eq XtGrabExclusive) then
 				xt_gv = XtGrabExclusive;
 			orElse
 				executionError("Unknown grab value");