[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.12

version 1.2, 2017/07/05 13:53:40 version 1.12, 2017/08/23 12:21:59
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
   
           // POPUP is a motif$widget that has to be purged before
           // library is unloaded.
           'POPUP' purge
         MOTIF remove          MOTIF remove
     >>      >>
 >>  >>
Line 13  MOTIF Line 17  MOTIF
   
 APPLICATION  APPLICATION
 <<  <<
     "Test application" XtAppInitialize      "none" implicit
   
       "RPL/2" 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 } }
               XtCreateManagedWidget '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 } }
               XtCreateManagedWidget 'FRAME_1' sto
   
               "form_1" "xmFormWidgetClass" FRAME_1
               { } XtCreateManagedWidget 'FORM_1' sto
   
               "label_1" "xmLabelWidgetClass" FORM_1
               { { "XmNlabelString" "Hello, world !" }
                 { "XmNlabelType" XmSTRING } }
               XtCreateManagedWidget 'LABEL_1' sto
   
               "separateur_1" "xmSeparatorWidgetClass" FORM_1
               { { "XmNorientation" XmHORIZONTAL }
                 { "XmNtopAttachment" XmATTACH_WIDGET }
                 { "XmNtopWidget" LABEL_1 }
                 { "XmNleftAttachment" XmATTACH_FORM }
                 { "XmNrightAttachment" XmATTACH_FORM }
                 { "XmNtopOffset" 2 } }
               XtCreateManagedWidget 'SEP_1' sto
   
               "bouton_1" "xmPushButtonWidgetClass" FORM_1
               { { "XmNtopWidget" SEP_1 }
                 { "XmNtopAttachment" XmATTACH_WIDGET }
                 { "XmNtopOffset" 2 }
                 { "XmNlabelString" "Quitter" }
                 { "XmNlabelType" XmSTRING } }
               XtCreateManagedWidget '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 } }
               XtCreateManagedWidget 'BOUTON_2' sto
   
               BOUTON_1 "XmNactivateCallback"
               << motif$XtAppExitMainLoop >>
               XtAddCallback drop
   
               BOUTON_2 "XmNactivateCallback" 'F_POPUP'
               XtAddCallback drop
   
               "Popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
               XtCreatePopupShell dup 'POPUP' save
   
               "popup_Form_1" "xmFormWidgetClass" rot
               { { "XmNresizeWidth" XmTrue }
                 { "XmNresizeHeight" XmTrue } }
               XtCreateManagedWidget
   
               "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 } }
               XtCreateManagedWidget
   
               "popup_Form_2" "xmFormWidgetClass" rot
               { } XtCreateManagedWidget
   
               "popup_bouton" "xmPushButtonWidgetClass" rot
               { { "XmNlabelString" "Quitter" }
                 { "XmNtopAttachment" XmATTACH_FORM }
                 { "XmNbottomAttachment" XmATTACH_FORM }
                 { "XmNleftAttachment" XmATTACH_FORM }
                 { "XmNrightAttachment" XmATTACH_FORM }
                 { "XmNlabelType" XmSTRING } }
               XtCreateManagedWidget
   
               "XmNactivateCallback" 'POPUP_QUIT' XtAddCallback drop
   
               TOPLEVEL_WIDGET XtRealizeWidget
               TOPLEVEL_WIDGET "rplIcon.xpm" XmSetIcon
   //          TOPLEVEL_WIDGET "RPL/2" XStoreName
   
               "Début de la boucle Xt" disp
               XT_APP XtAppMainLoop
               "Fin de la Boucle Xt" disp
           >>
     >>      >>
 >>  >>
   
   F_POPUP
   <<
       "XtPopup callback" disp
       POPUP XtGrabExclusive XtPopup
       "XtPopup callback returns" disp
   >>
   
   POPUP_QUIT
   <<
       "XtPopdown callback" disp
       POPUP XtPopdown
       "XtPopdown callback returns" disp
   >>
Removed from v.1.2  
changed lines
  Added in v.1.12

CVSweb interface <joel.bertrand@systella.fr>