[BACK]Return to example.rpl CVS log [TXT] [DIR] Up to [local] / rpl / modules / motif

Diff for /rpl/modules/motif/example.rpl between versions 1.7 and 1.13

version 1.7, 2017/08/21 11:32:45 version 1.13, 2019/11/14 18:54:47
Line 1 Line 1
 #!/home/bertrand/cvs/build/src/rpl -spdc  #!/usr/local/bin/rpl -spdc
   
 MOTIF  MOTIF
 <<  <<
Line 19  APPLICATION Line 19  APPLICATION
 <<  <<
     "none" implicit      "none" implicit
   
     "Test application" XtAppInitialize      "RPL/2" XtAppInitialize
     -> XT_APP TOPLEVEL_WIDGET      -> XT_APP TOPLEVEL_WIDGET
     <<      <<
         0 0 0 0 0 0 0          0 0 0 0 0 0 0
Line 29  APPLICATION Line 29  APPLICATION
             "toplevel" "xmFormWidgetClass" TOPLEVEL_WIDGET              "toplevel" "xmFormWidgetClass" TOPLEVEL_WIDGET
             { { "XmNresizeWidth" XmTrue }              { { "XmNresizeWidth" XmTrue }
               { "XmNresizeHeight" XmTrue } }                { "XmNresizeHeight" XmTrue } }
             XtCreateWidget 'MAIN_WIDGET' sto              XtCreateManagedWidget 'MAIN_WIDGET' sto
   
             "frame_1" "xmFrameWidgetClass" MAIN_WIDGET              "frame_1" "xmFrameWidgetClass" MAIN_WIDGET
             { { "XmNtopAttachment" XmATTACH_FORM }              { { "XmNtopAttachment" XmATTACH_FORM }
Line 42  APPLICATION Line 42  APPLICATION
               { "XmNbottomOffset" 5 }                { "XmNbottomOffset" 5 }
               { "XmNmarginWidth" 5 }                { "XmNmarginWidth" 5 }
               { "XmNmarginHeight" 5 } }                { "XmNmarginHeight" 5 } }
             XtCreateWidget 'FRAME_1' sto              XtCreateManagedWidget 'FRAME_1' sto
   
             "form_1" "xmFormWidgetClass" FRAME_1              "form_1" "xmFormWidgetClass" FRAME_1
             { } XtCreateWidget 'FORM_1' sto              { } XtCreateManagedWidget 'FORM_1' sto
   
             "label_1" "xmLabelWidgetClass" FORM_1              "label_1" "xmLabelWidgetClass" FORM_1
             { { "XmNlabelString" "Hello, world !" }              { { "XmNlabelString" "Hello, world !" }
               { "XmNlabelType" XmSTRING } }                { "XmNlabelType" XmSTRING } }
             XtCreateWidget 'LABEL_1' sto              XtCreateManagedWidget 'LABEL_1' sto
   
             "separateur_1" "xmSeparatorWidgetClass" FORM_1              "separateur_1" "xmSeparatorWidgetClass" FORM_1
             { { "XmNorientation" XmHORIZONTAL }              { { "XmNorientation" XmHORIZONTAL }
Line 59  APPLICATION Line 59  APPLICATION
               { "XmNleftAttachment" XmATTACH_FORM }                { "XmNleftAttachment" XmATTACH_FORM }
               { "XmNrightAttachment" XmATTACH_FORM }                { "XmNrightAttachment" XmATTACH_FORM }
               { "XmNtopOffset" 2 } }                { "XmNtopOffset" 2 } }
             XtCreateWidget 'SEP_1' sto              XtCreateManagedWidget 'SEP_1' sto
   
             "bouton_1" "xmPushButtonWidgetClass" FORM_1              "bouton_1" "xmPushButtonWidgetClass" FORM_1
             { { "XmNtopWidget" SEP_1 }              { { "XmNtopWidget" SEP_1 }
Line 67  APPLICATION Line 67  APPLICATION
               { "XmNtopOffset" 2 }                { "XmNtopOffset" 2 }
               { "XmNlabelString" "Quitter" }                { "XmNlabelString" "Quitter" }
               { "XmNlabelType" XmSTRING } }                { "XmNlabelType" XmSTRING } }
             XtCreateWidget 'BOUTON_1' sto              XtCreateManagedWidget 'BOUTON_1' sto
   
             "bouton_2" "xmPushButtonWidgetClass" FORM_1              "bouton_2" "xmPushButtonWidgetClass" FORM_1
             { { "XmNleftWidget" BOUTON_1 }              { { "XmNleftWidget" BOUTON_1 }
Line 77  APPLICATION Line 77  APPLICATION
               { "XmNtopOffset" 2 }                { "XmNtopOffset" 2 }
               { "XmNlabelString" " Popup " }                { "XmNlabelString" " Popup " }
               { "XmNlabelType" XmSTRING } }                { "XmNlabelType" XmSTRING } }
             XtCreateWidget 'BOUTON_2' sto              XtCreateManagedWidget 'BOUTON_2' sto
   
             BOUTON_1 "XmNactivateCallback"              BOUTON_1 "XmNactivateCallback"
             << motif$XtAppExitMainLoop >>              << motif$XtAppExitMainLoop >>
Line 92  APPLICATION Line 92  APPLICATION
             "popup_Form_1" "xmFormWidgetClass" rot              "popup_Form_1" "xmFormWidgetClass" rot
             { { "XmNresizeWidth" XmTrue }              { { "XmNresizeWidth" XmTrue }
               { "XmNresizeHeight" XmTrue } }                { "XmNresizeHeight" XmTrue } }
             XtCreateWidget              XtCreateManagedWidget
   
             "popup_Frame_1" "xmFrameWidgetClass" rot              "popup_Frame_1" "xmFrameWidgetClass" rot
             { { "XmNtopAttachment" XmATTACH_FORM }              { { "XmNtopAttachment" XmATTACH_FORM }
Line 105  APPLICATION Line 105  APPLICATION
               { "XmNbottomOffset" 5 }                { "XmNbottomOffset" 5 }
               { "XmNmarginWidth" 5 }                { "XmNmarginWidth" 5 }
               { "XmNmarginHeight" 5 } }                { "XmNmarginHeight" 5 } }
             XtCreateWidget              XtCreateManagedWidget
   
             "popup_Form_2" "xmFormWidgetClass" rot              "popup_Form_2" "xmFormWidgetClass" rot
             { } XtCreateWidget              { } XtCreateManagedWidget
   
             "popup_bouton" "xmPushButtonWidgetClass" rot              "popup_bouton" "xmPushButtonWidgetClass" rot
             { { "XmNlabelString" "Quitter" }              { { "XmNlabelString" "Quitter" }
Line 117  APPLICATION Line 117  APPLICATION
               { "XmNleftAttachment" XmATTACH_FORM }                { "XmNleftAttachment" XmATTACH_FORM }
               { "XmNrightAttachment" XmATTACH_FORM }                { "XmNrightAttachment" XmATTACH_FORM }
               { "XmNlabelType" XmSTRING } }                { "XmNlabelType" XmSTRING } }
             XtCreateWidget              XtCreateManagedWidget
   
             "XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop              "XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop
   
             TOPLEVEL_WIDGET XtRealizeWidget              TOPLEVEL_WIDGET XtRealizeWidget
               TOPLEVEL_WIDGET "rplIcon.xpm" XmSetIcon
   //          TOPLEVEL_WIDGET "RPL/2" XStoreName
   
             "Début de la boucle Xt" disp              "Début de la boucle Xt" disp
             XT_APP XtAppMainLoop              XT_APP XtAppMainLoop
Removed from v.1.7  
changed lines
  Added in v.1.13

CVSweb interface <joel.bertrand@systella.fr>