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: >>
CVSweb interface <joel.bertrand@systella.fr>