1: #!/home/bertrand/cvs/build/src/rpl -spdc
2:
3: MOTIF
4: <<
5: "motif.rplso" use
6: -> MOTIF
7: <<
8: APPLICATION
9: clmf
10: MOTIF remove
11: >>
12:
13: clmf
14: >>
15:
16:
17: APPLICATION
18: <<
19: "none" implicit
20:
21: "Test application" XtAppInitialize
22: -> XT_APP TOPLEVEL_WIDGET
23: <<
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: >>
130: >>
131: >>
CVSweb interface <joel.bertrand@systella.fr>