[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.3 and 1.13

version 1.3, 2017/07/10 14:47:59 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 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
     >>      >>
   
     clmf  
 >>  >>
   
   
Line 17  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 27  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 40  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 57  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 65  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 75  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 >>
             XtAddCallback              XtAddCallback drop
   
             BOUTON_2 "XmNactivateCallback" 'F_POPUP'              BOUTON_2 "XmNactivateCallback" 'F_POPUP'
             XtAddCallback              XtAddCallback drop
             */  
   
             "popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET              "Popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
             XtCreatePopupShell dup 'POPUP' save              XtCreatePopupShell dup 'POPUP' save
   
             "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 104  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 116  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' motif$XtAddCallback  
             */  
   
             TOPLEVEL_WIDGET XtRealizeWidget              TOPLEVEL_WIDGET XtRealizeWidget
               TOPLEVEL_WIDGET "rplIcon.xpm" XmSetIcon
   //          TOPLEVEL_WIDGET "RPL/2" XStoreName
   
             "Boucle Xm" disp              "Début de la boucle Xt" disp
   
             XT_APP XtAppMainLoop              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.3  
changed lines
  Added in v.1.13

CVSweb interface <joel.bertrand@systella.fr>