Return to example.rpl CVS log

Up to [local] / rpl / modules / motif

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

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