--- rpl/modules/motif/example.rpl 2017/08/22 09:31:20 1.8 +++ rpl/modules/motif/example.rpl 2017/08/22 11:22:04 1.9 @@ -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 >> @@ -92,7 +92,7 @@ APPLICATION "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,7 +117,7 @@ APPLICATION { "XmNleftAttachment" XmATTACH_FORM } { "XmNrightAttachment" XmATTACH_FORM } { "XmNlabelType" XmSTRING } } - XtCreateWidget + XtCreateManagedWidget "XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop