--- rpl/modules/motif/motif.rplc	2017/07/04 21:13:37	1.2
+++ rpl/modules/motif/motif.rplc	2017/07/05 13:53:40	1.3
@@ -5,42 +5,15 @@
 libraryName(motif);
 
 exportExternalFunctions(
-		XSynchronize,
-		XtAddCallback,
+		XtAppExitMainLoop,
 		XtAppInitialize,
 		XtAppMainLoop,
-		XtAppExitMainLoop,
-		XtCreatePopupShell,
-		XtCreateWidget,
-		XtDestroyWidget,
-		XtPopdown,
-		XtPopup,
-		XtRealizeWidget,
-		XtRemoveAllCallbacks,
-		XtRemoveCallback);
+		XtCreateWidget);
 
 declareSubroutine(onLoading)
-	declareInteger(i);
-
 	notice(stdout, "\nMotif library V2R1 for RPL/2 (C) 2017 BERTRAND Joel\n");
 	notice(stdout, "Motif library loaded.\n\n");
 
-	nombre_widgets = 256;
-	widgets = sys_malloc(nombre_widgets * size(Widget));
-	presence_widget = sys_malloc(nombre_widgets * size(char));
-
-	loop(i = 0, i < nombre_widgets, i++)
-		presence_widget[i] = 0;
-	endLoop
-
-	nombre_callbacks = 256;
-	callbacks = sys_malloc(nombre_callbacks * size(callbackArg));
-	presence_callback = sys_malloc(nombre_callbacks * size(char));
-	
-	loop(i = 0, i < nombre_callbacks, i++)
-		presence_callback[i] = 0;
-	endLoop
-
 	// Création des variables spécifiques
 
 	declareObject(variable);
@@ -87,8 +60,6 @@ endSubroutine
 
 declareSubroutine(onClosing)
 	// Destruction des variables spécifiques
-	declareInteger(i);
-
 	declareObject(variable);
 
 #define purgeVariable(var) \
@@ -125,49 +96,7 @@ declareSubroutine(onClosing)
 
 	purgeVariable(XmSTRING);
 
-	sys_free(widgets);
-	sys_free(presence_widget);
-
-	loop(i = 0, i < nombre_callbacks, i++)
-		if (presence_callback[i] ne 0) then
-			freeObject(callbacks[i].s_objet);
-		endIf
-	endLoop
-	
-	sys_free(callbacks);
-	sys_free(presence_callback);
-
 	notice(stdout, "Motif library unloaded.\n\n");
 endSubroutine
 
-declareExternalFunction(XtDestroyWidget)
-	HEADER
-	FUNCTION
-	END
-endExternalFunction
-
-declareExternalFunction(XtRemoveCallback)
-	HEADER
-	FUNCTION
-	END
-endExternalFunction
-
-declareExternalFunction(XtRemoveAllCallbacks)
-	HEADER
-	FUNCTION
-	END
-endExternalFunction
-
-/*
-XmStringCreateLtoR
-XmCreateRadioBox
-XtVaSetValues
-XmStringFree
-XmTextFieldSetString
-XtManageChild
-XtSetSensitive
-XtVaGetValues
-XtAncetre
-*/
-
 // vim: ts=4