--- rpl/modules/motif/example.rpl	2017/07/10 14:47:59	1.3
+++ rpl/modules/motif/example.rpl	2017/07/11 16:04:53	1.4
@@ -6,6 +6,7 @@ MOTIF
 	-> MOTIF
 	<<
 		APPLICATION
+clmf
 		MOTIF remove
 	>>
 
@@ -77,13 +78,11 @@ APPLICATION
 			  { "XmNlabelType" XmSTRING } }
 			XtCreateWidget 'BOUTON_2' sto
 
-			/*
 			BOUTON_1 "XmNactivateCallback" << motif$XtAppExitMainLoop >>
 			XtAddCallback
 
 			BOUTON_2 "XmNactivateCallback" 'F_POPUP'
 			XtAddCallback
-			*/
 
 			"popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
 			XtCreatePopupShell dup 'POPUP' save