Return to example.rpl CVS log

Up to [local] / rpl / modules / motif

Annotation of rpl/modules/motif/example.rpl, revision 1.4

1.3       bertrand    1: #!/home/bertrand/cvs/build/src/rpl -spdc
1.2       bertrand    2: 
                      3: MOTIF
                      4: <<
                      5:    "motif.rplso" use
                      6:    -> MOTIF
                      7:    <<
                      8:        APPLICATION
1.4     ! bertrand    9: clmf
1.2       bertrand   10:        MOTIF remove
                     11:    >>
1.3       bertrand   12: 
                     13:    clmf
1.2       bertrand   14: >>
                     15: 
                     16: 
                     17: APPLICATION
                     18: <<
1.3       bertrand   19:    "none" implicit
                     20: 
1.2       bertrand   21:    "Test application" XtAppInitialize
                     22:    -> XT_APP TOPLEVEL_WIDGET
                     23:    <<
1.3       bertrand   24:        0 0 0 0 0 0 0
                     25:        -> MAIN_WIDGET FRAME_1 FORM_1 LABEL_1 SEP_1 BOUTON_1 BOUTON_2
                     26:        <<
                     27: 
                     28:            "toplevel" "xmFormWidgetClass" TOPLEVEL_WIDGET
                     29:            { { "XmNresizeWidth" XmTrue }
                     30:              { "XmNresizeHeight" XmTrue } }
                     31:            XtCreateWidget 'MAIN_WIDGET' sto
                     32: 
                     33:            "frame_1" "xmFrameWidgetClass" MAIN_WIDGET
                     34:            { { "XmNtopAttachment" XmATTACH_FORM }
                     35:              { "XmNbottomAttachment" XmATTACH_FORM  }
                     36:              { "XmNleftAttachment" XmATTACH_FORM }
                     37:              { "XmNrightAttachment" XmATTACH_FORM }
                     38:              { "XmNtopOffset" 5 }
                     39:              { "XmNleftOffset" 5 }
                     40:              { "XmNrightOffset" 5 }
                     41:              { "XmNbottomOffset" 5 }
                     42:              { "XmNmarginWidth" 5 }
                     43:              { "XmNmarginHeight" 5 } }
                     44:            XtCreateWidget 'FRAME_1' sto
                     45: 
                     46:            "form_1" "xmFormWidgetClass" FRAME_1
                     47:            { } XtCreateWidget 'FORM_1' sto
                     48: 
                     49:            "label_1" "xmLabelWidgetClass" FORM_1
                     50:            { { "XmNlabelString" "Hello, world !" }
                     51:              { "XmNlabelType" XmSTRING } }
                     52:            XtCreateWidget 'LABEL_1' sto
                     53: 
                     54:            "separateur_1" "xmSeparatorWidgetClass" FORM_1
                     55:            { { "XmNorientation" XmHORIZONTAL }
                     56:              { "XmNtopAttachment" XmATTACH_WIDGET }
                     57:              { "XmNtopWidget" LABEL_1 }
                     58:              { "XmNleftAttachment" XmATTACH_FORM }
                     59:              { "XmNrightAttachment" XmATTACH_FORM }
                     60:              { "XmNtopOffset" 2 } }
                     61:            XtCreateWidget 'SEP_1' sto
                     62: 
                     63:            "bouton_1" "xmPushButtonWidgetClass" FORM_1
                     64:            { { "XmNtopWidget" SEP_1 }
                     65:              { "XmNtopAttachment" XmATTACH_WIDGET }
                     66:              { "XmNtopOffset" 2 }
                     67:              { "XmNlabelString" "Quitter" }
                     68:              { "XmNlabelType" XmSTRING } }
                     69:            XtCreateWidget 'BOUTON_1' sto
                     70: 
                     71:            "bouton_2" "xmPushButtonWidgetClass" FORM_1
                     72:            { { "XmNleftWidget" BOUTON_1 }
                     73:              { "XmNtopWidget" SEP_1 }
                     74:              { "XmNleftAttachment" XmATTACH_WIDGET }
                     75:              { "XmNtopAttachment" XmATTACH_WIDGET }
                     76:              { "XmNtopOffset" 2 }
                     77:              { "XmNlabelString" " Popup " }
                     78:              { "XmNlabelType" XmSTRING } }
                     79:            XtCreateWidget 'BOUTON_2' sto
                     80: 
                     81:            BOUTON_1 "XmNactivateCallback" << motif$XtAppExitMainLoop >>
                     82:            XtAddCallback
                     83: 
                     84:            BOUTON_2 "XmNactivateCallback" 'F_POPUP'
                     85:            XtAddCallback
                     86: 
                     87:            "popup" "applicationShellWidgetClass" TOPLEVEL_WIDGET
                     88:            XtCreatePopupShell dup 'POPUP' save
                     89: 
                     90:            "popup_Form_1" "xmFormWidgetClass" rot
                     91:            { { "XmNresizeWidth" XmTrue }
                     92:              { "XmNresizeHeight" XmTrue } }
                     93:            XtCreateWidget
                     94: 
                     95:            "popup_Frame_1" "xmFrameWidgetClass" rot
                     96:            { { "XmNtopAttachment" XmATTACH_FORM }
                     97:              { "XmNbottomAttachment" XmATTACH_FORM }
                     98:              { "XmNleftAttachment" XmATTACH_FORM }
                     99:              { "XmNrightAttachment" XmATTACH_FORM }
                    100:              { "XmNtopOffset" 5 }
                    101:              { "XmNleftOffset" 5 }
                    102:              { "XmNrightOffset" 5 }
                    103:              { "XmNbottomOffset" 5 }
                    104:              { "XmNmarginWidth" 5 }
                    105:              { "XmNmarginHeight" 5 } }
                    106:            XtCreateWidget
                    107: 
                    108:            "popup_Form_2" "xmFormWidgetClass" rot
                    109:            { } XtCreateWidget
                    110: 
                    111:            "popup_bouton" "xmPushButtonWidgetClass" rot
                    112:            { { "XmNlabelString" "Quitter" }
                    113:              { "XmNtopAttachment" XmATTACH_FORM }
                    114:              { "XmNbottomAttachment" XmATTACH_FORM }
                    115:              { "XmNleftAttachment" XmATTACH_FORM }
                    116:              { "XmNrightAttachment" XmATTACH_FORM }
                    117:              { "XmNlabelType" XmSTRING } }
                    118:            XtCreateWidget
                    119: 
                    120:            /*
                    121:            "XmNactivateCallback" 'POPUP_QUIT' motif$XtAddCallback
                    122:            */
                    123: 
                    124:            TOPLEVEL_WIDGET XtRealizeWidget
                    125: 
                    126:            "Boucle Xm" disp
                    127: 
                    128:            XT_APP XtAppMainLoop
                    129:        >>
1.2       bertrand  130:    >>
                    131: >>