#!/home/bertrand/cvs/build/src/rpl -spdc

MOTIF
<<
	"motif.rplso" use
	-> MOTIF
	<<
		APPLICATION
clmf
		MOTIF remove
	>>

	clmf
>>


APPLICATION
<<
	"none" implicit

	"Test application" XtAppInitialize
	-> XT_APP TOPLEVEL_WIDGET
	<<
		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
		>>
	>>
>>