--- rpl/modules/motif/XtPopup.rplc	2017/07/10 07:25:24	1.1
+++ rpl/modules/motif/XtPopup.rplc	2017/07/30 21:59:40	1.3
@@ -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");
@@ -39,7 +39,7 @@ declareExternalFunction(XtPopup)
 				returnOnError(freeObject(grab); freeObject(widget));
 			endIf
 
-			XtPopup(target((Widget *) objectContainer(widget)), xt_gv);
+			XtPopup(target(objectContainer(Widget, widget)), xt_gv);
 
 			freeObject(widget);
 			freeObject(grab);