--- rpl/modules/motif/XtCreateWidget.rplc	2017/07/05 13:53:40	1.1
+++ rpl/modules/motif/XtCreateWidget.rplc	2017/07/05 19:07:19	1.2
@@ -15,7 +15,9 @@ declareExternalFunction(XtCreateWidget)
 	char			target(name);
 	char			target(class);
 
+	ArgList			args;
 	Cardinal		argNum;
+	String			argument;
 	WidgetClass		wc;
 
 	HEADER
@@ -129,6 +131,27 @@ declareExternalFunction(XtCreateWidget)
 				current = nextElementOfDaisyChain(current);
 				postIncr(argNum);
 			endWhile
+
+			args = allocate(size(Arg) * argNum);
+			argNum = 0;
+			getDaisyChainFromList(parametersObject, current);
+
+			repeatWhile(not nullified(current))
+				list = fetchElementFromDaisyChain(current);
+				getDaisyChainFromList(list, current2);
+				getString(fetchElementFromDaisyChain(current2), name);
+				current2 = nextElementOfDaisyChain(current2);
+
+				XmN_constants(name, argument);
+
+				returnOnError(freeObject(parametersObject);
+						freeObject(parentObject);
+						freeObject(classObject);
+						freeObject(nameObject));
+
+
+			endWhile
+
 		orElse
 			executionError("Application not initialized");
 			returnOnError();