--- rpl/modules/motif/example.rpl	2017/07/10 14:47:59	1.3
+++ rpl/modules/motif/example.rpl	2017/08/21 11:32:45	1.7
@@ -6,10 +6,12 @@ MOTIF
 	-> MOTIF
 	<<
 		APPLICATION
+
+		// POPUP is a motif$widget that has to be purged before
+		// library is unloaded.
+		'POPUP' purge
 		MOTIF remove
 	>>
-
-	clmf
 >>
 
 
@@ -77,15 +79,14 @@ 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
+			"Popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
 			XtCreatePopupShell dup 'POPUP' save
 
 			"popup_Form_1" "xmFormWidgetClass" rot
@@ -118,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
+>>