--- rpl/modules/motif/example.rpl	2017/07/11 16:04:53	1.4
+++ rpl/modules/motif/example.rpl	2017/07/17 21:35:32	1.5
@@ -6,11 +6,12 @@ MOTIF
 	-> MOTIF
 	<<
 		APPLICATION
-clmf
+
+		// POPUP is a motif$widget that has to be purged before
+		// library is unloaded.
+		'POPUP' purge
 		MOTIF remove
 	>>
-
-	clmf
 >>
 
 
@@ -78,11 +79,12 @@ APPLICATION
 			  { "XmNlabelType" XmSTRING } }
 			XtCreateWidget 'BOUTON_2' sto
 
-			BOUTON_1 "XmNactivateCallback" << motif$XtAppExitMainLoop >>
-			XtAddCallback
+			BOUTON_1 "XmNactivateCallback"
+			<< motif$XtAppExitMainLoop >>
+			XtAddCallback drop
 
 			BOUTON_2 "XmNactivateCallback" 'F_POPUP'
-			XtAddCallback
+			XtAddCallback drop
 
 			"popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
 			XtCreatePopupShell dup 'POPUP' save
@@ -117,15 +119,27 @@ APPLICATION
 			  { "XmNlabelType" XmSTRING } }
 			XtCreateWidget
 
-			/*
-			"XmNactivateCallback" 'POPUP_QUIT' motif$XtAddCallback
-			*/
+			"XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop
 
 			TOPLEVEL_WIDGET XtRealizeWidget
 
-			"Boucle Xm" disp
-
+			"Début de la boucle Xt" disp
 			XT_APP XtAppMainLoop
+			"Fin de la Boucle Xt" disp
 		>>
 	>>
 >>
+
+F_POPUP
+<<
+	"XtPopup callback" disp
+	POPUP XtGrabExclusive XtPopup
+	"XtPopup callback returns" disp
+>>
+
+POPUP_QUIT
+<<
+	"XtPopdown callback" disp
+	POPUP XtPopdown
+	"XtPopdown callback returns" disp
+>>