--- rpl/modules/motif/example.rpl	2017/07/17 21:35:32	1.5
+++ rpl/modules/motif/example.rpl	2019/11/14 18:54:47	1.13
@@ -1,4 +1,4 @@
-#!/home/bertrand/cvs/build/src/rpl -spdc
+#!/usr/local/bin/rpl -spdc
 
 MOTIF
 <<
@@ -19,7 +19,7 @@ APPLICATION
 <<
 	"none" implicit
 
-	"Test application" XtAppInitialize
+	"RPL/2" XtAppInitialize
 	-> XT_APP TOPLEVEL_WIDGET
 	<<
 		0 0 0 0 0 0 0
@@ -29,7 +29,7 @@ APPLICATION
 			"toplevel" "xmFormWidgetClass" TOPLEVEL_WIDGET
 			{ { "XmNresizeWidth" XmTrue }
 			  { "XmNresizeHeight" XmTrue } }
-			XtCreateWidget 'MAIN_WIDGET' sto
+			XtCreateManagedWidget 'MAIN_WIDGET' sto
 
 			"frame_1" "xmFrameWidgetClass" MAIN_WIDGET
 			{ { "XmNtopAttachment" XmATTACH_FORM }
@@ -42,15 +42,15 @@ APPLICATION
 			  { "XmNbottomOffset" 5 }
 			  { "XmNmarginWidth" 5 }
 			  { "XmNmarginHeight" 5 } }
-			XtCreateWidget 'FRAME_1' sto
+			XtCreateManagedWidget 'FRAME_1' sto
 
 			"form_1" "xmFormWidgetClass" FRAME_1
-			{ } XtCreateWidget 'FORM_1' sto
+			{ } XtCreateManagedWidget 'FORM_1' sto
 
 			"label_1" "xmLabelWidgetClass" FORM_1
 			{ { "XmNlabelString" "Hello, world !" }
 			  { "XmNlabelType" XmSTRING } }
-			XtCreateWidget 'LABEL_1' sto
+			XtCreateManagedWidget 'LABEL_1' sto
 
 			"separateur_1" "xmSeparatorWidgetClass" FORM_1
 			{ { "XmNorientation" XmHORIZONTAL }
@@ -59,7 +59,7 @@ APPLICATION
 			  { "XmNleftAttachment" XmATTACH_FORM }
 			  { "XmNrightAttachment" XmATTACH_FORM }
 			  { "XmNtopOffset" 2 } }
-			XtCreateWidget 'SEP_1' sto
+			XtCreateManagedWidget 'SEP_1' sto
 
 			"bouton_1" "xmPushButtonWidgetClass" FORM_1
 			{ { "XmNtopWidget" SEP_1 }
@@ -67,7 +67,7 @@ APPLICATION
 			  { "XmNtopOffset" 2 }
 			  { "XmNlabelString" "Quitter" }
 			  { "XmNlabelType" XmSTRING } }
-			XtCreateWidget 'BOUTON_1' sto
+			XtCreateManagedWidget 'BOUTON_1' sto
 
 			"bouton_2" "xmPushButtonWidgetClass" FORM_1
 			{ { "XmNleftWidget" BOUTON_1 }
@@ -77,7 +77,7 @@ APPLICATION
 			  { "XmNtopOffset" 2 }
 			  { "XmNlabelString" " Popup " }
 			  { "XmNlabelType" XmSTRING } }
-			XtCreateWidget 'BOUTON_2' sto
+			XtCreateManagedWidget 'BOUTON_2' sto
 
 			BOUTON_1 "XmNactivateCallback"
 			<< motif$XtAppExitMainLoop >>
@@ -86,13 +86,13 @@ APPLICATION
 			BOUTON_2 "XmNactivateCallback" 'F_POPUP'
 			XtAddCallback drop
 
-			"popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
+			"Popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
 			XtCreatePopupShell dup 'POPUP' save
 
 			"popup_Form_1" "xmFormWidgetClass" rot
 			{ { "XmNresizeWidth" XmTrue }
 			  { "XmNresizeHeight" XmTrue } }
-			XtCreateWidget
+			XtCreateManagedWidget
 
 			"popup_Frame_1" "xmFrameWidgetClass" rot
 			{ { "XmNtopAttachment" XmATTACH_FORM }
@@ -105,10 +105,10 @@ APPLICATION
 			  { "XmNbottomOffset" 5 }
 			  { "XmNmarginWidth" 5 }
 			  { "XmNmarginHeight" 5 } }
-			XtCreateWidget
+			XtCreateManagedWidget
 
 			"popup_Form_2" "xmFormWidgetClass" rot
-			{ } XtCreateWidget
+			{ } XtCreateManagedWidget
 
 			"popup_bouton" "xmPushButtonWidgetClass" rot
 			{ { "XmNlabelString" "Quitter" }
@@ -117,11 +117,13 @@ APPLICATION
 			  { "XmNleftAttachment" XmATTACH_FORM }
 			  { "XmNrightAttachment" XmATTACH_FORM }
 			  { "XmNlabelType" XmSTRING } }
-			XtCreateWidget
+			XtCreateManagedWidget
 
 			"XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop
 
 			TOPLEVEL_WIDGET XtRealizeWidget
+			TOPLEVEL_WIDGET "rplIcon.xpm" XmSetIcon
+//			TOPLEVEL_WIDGET "RPL/2" XStoreName
 
 			"Début de la boucle Xt" disp
 			XT_APP XtAppMainLoop