--- rpl/modules/motif/example.rpl	2017/07/05 13:53:40	1.2
+++ rpl/modules/motif/example.rpl	2017/07/10 14:47:59	1.3
@@ -1,4 +1,4 @@
-#!/usr/local/bin/rpl -spd
+#!/home/bertrand/cvs/build/src/rpl -spdc
 
 MOTIF
 <<
@@ -8,15 +8,125 @@ MOTIF
 		APPLICATION
 		MOTIF remove
 	>>
+
+	clmf
 >>
 
 
 APPLICATION
 <<
+	"none" implicit
+
 	"Test application" XtAppInitialize
 	-> XT_APP TOPLEVEL_WIDGET
 	<<
-		TOPLEVEL_WIDGET XtRealizeWidget
-		XT_APP XtAppMainLoop
+		0 0 0 0 0 0 0
+		-> MAIN_WIDGET FRAME_1 FORM_1 LABEL_1 SEP_1 BOUTON_1 BOUTON_2
+		<<
+
+			"toplevel" "xmFormWidgetClass" TOPLEVEL_WIDGET
+			{ { "XmNresizeWidth" XmTrue }
+			  { "XmNresizeHeight" XmTrue } }
+			XtCreateWidget 'MAIN_WIDGET' sto
+
+			"frame_1" "xmFrameWidgetClass" MAIN_WIDGET
+			{ { "XmNtopAttachment" XmATTACH_FORM }
+			  { "XmNbottomAttachment" XmATTACH_FORM  }
+			  { "XmNleftAttachment" XmATTACH_FORM }
+			  { "XmNrightAttachment" XmATTACH_FORM }
+			  { "XmNtopOffset" 5 }
+			  { "XmNleftOffset" 5 }
+			  { "XmNrightOffset" 5 }
+			  { "XmNbottomOffset" 5 }
+			  { "XmNmarginWidth" 5 }
+			  { "XmNmarginHeight" 5 } }
+			XtCreateWidget 'FRAME_1' sto
+
+			"form_1" "xmFormWidgetClass" FRAME_1
+			{ } XtCreateWidget 'FORM_1' sto
+
+			"label_1" "xmLabelWidgetClass" FORM_1
+			{ { "XmNlabelString" "Hello, world !" }
+			  { "XmNlabelType" XmSTRING } }
+			XtCreateWidget 'LABEL_1' sto
+
+			"separateur_1" "xmSeparatorWidgetClass" FORM_1
+			{ { "XmNorientation" XmHORIZONTAL }
+			  { "XmNtopAttachment" XmATTACH_WIDGET }
+			  { "XmNtopWidget" LABEL_1 }
+			  { "XmNleftAttachment" XmATTACH_FORM }
+			  { "XmNrightAttachment" XmATTACH_FORM }
+			  { "XmNtopOffset" 2 } }
+			XtCreateWidget 'SEP_1' sto
+
+			"bouton_1" "xmPushButtonWidgetClass" FORM_1
+			{ { "XmNtopWidget" SEP_1 }
+			  { "XmNtopAttachment" XmATTACH_WIDGET }
+			  { "XmNtopOffset" 2 }
+			  { "XmNlabelString" "Quitter" }
+			  { "XmNlabelType" XmSTRING } }
+			XtCreateWidget 'BOUTON_1' sto
+
+			"bouton_2" "xmPushButtonWidgetClass" FORM_1
+			{ { "XmNleftWidget" BOUTON_1 }
+			  { "XmNtopWidget" SEP_1 }
+			  { "XmNleftAttachment" XmATTACH_WIDGET }
+			  { "XmNtopAttachment" XmATTACH_WIDGET }
+			  { "XmNtopOffset" 2 }
+			  { "XmNlabelString" " Popup " }
+			  { "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
+
+			"popup_Form_1" "xmFormWidgetClass" rot
+			{ { "XmNresizeWidth" XmTrue }
+			  { "XmNresizeHeight" XmTrue } }
+			XtCreateWidget
+
+			"popup_Frame_1" "xmFrameWidgetClass" rot
+			{ { "XmNtopAttachment" XmATTACH_FORM }
+			  { "XmNbottomAttachment" XmATTACH_FORM }
+			  { "XmNleftAttachment" XmATTACH_FORM }
+			  { "XmNrightAttachment" XmATTACH_FORM }
+			  { "XmNtopOffset" 5 }
+			  { "XmNleftOffset" 5 }
+			  { "XmNrightOffset" 5 }
+			  { "XmNbottomOffset" 5 }
+			  { "XmNmarginWidth" 5 }
+			  { "XmNmarginHeight" 5 } }
+			XtCreateWidget
+
+			"popup_Form_2" "xmFormWidgetClass" rot
+			{ } XtCreateWidget
+
+			"popup_bouton" "xmPushButtonWidgetClass" rot
+			{ { "XmNlabelString" "Quitter" }
+			  { "XmNtopAttachment" XmATTACH_FORM }
+			  { "XmNbottomAttachment" XmATTACH_FORM }
+			  { "XmNleftAttachment" XmATTACH_FORM }
+			  { "XmNrightAttachment" XmATTACH_FORM }
+			  { "XmNlabelType" XmSTRING } }
+			XtCreateWidget
+
+			/*
+			"XmNactivateCallback" 'POPUP_QUIT' motif$XtAddCallback
+			*/
+
+			TOPLEVEL_WIDGET XtRealizeWidget
+
+			"Boucle Xm" disp
+
+			XT_APP XtAppMainLoop
+		>>
 	>>
 >>