[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.2 and 1.4

version 1.2, 2017/07/05 13:53:40 version 1.4, 2017/07/11 16:04:53
Line 1 Line 1
 #!/usr/local/bin/rpl -spd  #!/home/bertrand/cvs/build/src/rpl -spdc
   
 MOTIF  MOTIF
 <<  <<
Line 6  MOTIF Line 6  MOTIF
     -> MOTIF      -> MOTIF
     <<      <<
         APPLICATION          APPLICATION
   clmf
         MOTIF remove          MOTIF remove
     >>      >>
   
       clmf
 >>  >>
   
   
 APPLICATION  APPLICATION
 <<  <<
       "none" implicit
   
     "Test application" XtAppInitialize      "Test application" XtAppInitialize
     -> XT_APP TOPLEVEL_WIDGET      -> XT_APP TOPLEVEL_WIDGET
     <<      <<
         TOPLEVEL_WIDGET XtRealizeWidget          0 0 0 0 0 0 0
         XT_APP XtAppMainLoop          -> 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
           >>
     >>      >>
 >>  >>
Removed from v.1.2  
changed lines
  Added in v.1.4

CVSweb interface <joel.bertrand@systella.fr>