|
2
|
1 #include <Xm/Xm.h>
|
|
|
2 #include <Xm/RowColumn.h>
|
|
|
3 #include <Xm/Scale.h>
|
|
|
4 #include <Xm/PushB.h>
|
|
|
5 #include <Xm/Label.h>
|
|
|
6 #include <Xm/Text.h>
|
|
|
7 #include <Xm/PanedW.h>
|
|
|
8 #include "ExternalClient.h"
|
|
|
9
|
|
|
10 #ifdef TOOLTALK
|
|
|
11 #include <desktop/tt_c.h>
|
|
|
12 char *HxProcID;
|
|
|
13 #endif
|
|
|
14
|
|
|
15 XtAppContext xt_app_con;
|
|
|
16
|
|
|
17 void ScaleValueChangedCB(Widget scale, XtPointer app_data, XtPointer widget_data)
|
|
|
18 {
|
|
|
19 XmScaleCallbackStruct *xms = (XmScaleCallbackStruct *) widget_data;
|
|
|
20 Widget label = (Widget) app_data;
|
|
|
21 char labelarr[10];
|
|
|
22 XmString labelstr;
|
|
|
23 #if 0
|
|
|
24 sprintf(labelarr, "%d", xms->value);
|
|
|
25 labelstr = XmStringCreateLocalized(labelarr);
|
|
|
26 XtVaSetValues(label, XmNlabelString, labelstr, NULL);
|
|
|
27 XmStringFree(labelstr);
|
|
|
28 #endif
|
|
|
29 }
|
|
|
30
|
|
|
31 #ifdef TOOLTALK
|
|
|
32 static void
|
|
|
33 handle_tt_input(XtPointer client_data, int *source, XtInputId *id)
|
|
|
34 {
|
|
|
35 Tt_message m = tt_message_receive();
|
|
|
36
|
|
|
37 if (m && !(tt_ptr_error(m))) {
|
|
|
38 tt_message_destroy(m);
|
|
|
39 }
|
|
|
40 }
|
|
|
41
|
|
|
42 Tt_status
|
|
|
43 HxInitializeToolTalk()
|
|
|
44 {
|
|
|
45 static Boolean initialized = FALSE;
|
|
|
46
|
|
|
47 if (!initialized) {
|
|
|
48 int fd;
|
|
|
49 Tt_status status;
|
|
|
50
|
|
|
51 HxProcID = tt_open();
|
|
|
52 fd = tt_fd();
|
|
|
53 if (TT_OK != (status = tt_session_join( tt_default_session() )))
|
|
|
54 return status;
|
|
|
55 (void)XtAppAddInput(xt_app_con, fd, (void *)XtInputReadMask, handle_tt_input, NULL);
|
|
|
56 initialized = TRUE;
|
|
|
57 }
|
|
|
58
|
|
|
59 return TT_OK;
|
|
|
60 }
|
|
|
61 #endif
|
|
|
62
|
|
|
63 main(int argc, char **argv)
|
|
|
64 {
|
|
|
65 Widget shell, rowcolumn, scale, pushbutton, label1, label2, text;
|
|
|
66 Widget paned, text2;
|
|
|
67 int n, i;
|
|
|
68 Widget widlist[100];
|
|
|
69 Widget emacscli[100];
|
|
|
70 Arg args[100];
|
|
|
71 int no_ews = 1;
|
|
|
72 char buf[100];
|
|
|
73
|
|
|
74 if (argc > 1)
|
|
|
75 no_ews = atoi (argv[1]);
|
|
|
76
|
|
|
77 shell = XtAppInitialize(&xt_app_con, "Testmotif", NULL, 0,
|
|
|
78 &argc, argv, NULL, NULL, 0);
|
|
|
79
|
|
|
80 #ifdef TOOLTALK
|
|
|
81 HxInitializeToolTalk();
|
|
|
82 #endif
|
|
|
83
|
|
|
84 rowcolumn = XmCreateRowColumn(shell, "rowcolumn", NULL, 0);
|
|
|
85 XtManageChild(rowcolumn);
|
|
|
86
|
|
|
87 n = 0;
|
|
|
88 XtSetArg(args[n], XmNtraversalOn, TRUE); n++;
|
|
|
89 #if 0
|
|
|
90 label1 = XmCreateLabel(rowcolumn, "label1", args, n);
|
|
|
91 #endif
|
|
|
92 label1 = XtVaCreateWidget("label1", xmLabelWidgetClass, rowcolumn,
|
|
|
93 XmNwidth, 50, XmNheight, 30,
|
|
|
94 XmNtraversalOn, TRUE, NULL);
|
|
|
95 label2 = XmCreateLabel(rowcolumn, "label2", NULL, 0);
|
|
|
96 scale = XmCreateScale(rowcolumn, "scale", NULL, 0);
|
|
|
97 XtAddCallback(scale, XmNvalueChangedCallback, ScaleValueChangedCB, label1);
|
|
|
98 paned = XmCreatePanedWindow(rowcolumn, "paned", NULL, 0);
|
|
|
99 n = 0;
|
|
|
100 widlist[n++] = label1;
|
|
|
101 widlist[n++] = label2;
|
|
|
102 widlist[n++] = scale;
|
|
|
103 widlist[n++] = paned;
|
|
|
104 XtManageChildren(widlist, n);
|
|
|
105
|
|
|
106 pushbutton = XmCreatePushButton(paned, "pushbutton", NULL, 0);
|
|
|
107 text = XmCreateText(paned, "text", NULL, 0);
|
|
|
108 for (i=0; i<no_ews; i++) {
|
|
|
109 sprintf (buf, "extcli%d", i);
|
|
|
110 emacscli[i] = XtVaCreateWidget(buf, externalClientWidgetClass, paned,
|
|
|
111 XmNwidth, 500, XmNheight, 200,
|
|
|
112 XmNtraversalOn, TRUE,
|
|
|
113 #ifdef TOOLTALK
|
|
|
114 XtNuseToolTalk, TRUE,
|
|
|
115 #endif
|
|
|
116 NULL);
|
|
|
117 }
|
|
|
118 text2 = XmCreateText(paned, "text2", NULL, 0);
|
|
|
119 n = 0;
|
|
|
120 widlist[n++] = pushbutton;
|
|
|
121 widlist[n++] = text;
|
|
|
122 for (i=0; i<no_ews; i++)
|
|
|
123 widlist[n++] = emacscli[i];
|
|
|
124 widlist[n++] = text2;
|
|
|
125 XtManageChildren(widlist, n);
|
|
|
126
|
|
|
127 XtRealizeWidget(shell);
|
|
|
128
|
|
|
129 {
|
|
|
130 XmString lab;
|
|
|
131 char labarr[1000];
|
|
|
132 char tmpbuf[50];
|
|
|
133
|
|
|
134 strcpy (labarr, "window:");
|
|
|
135 for (i=0; i<no_ews; i++) {
|
|
|
136 sprintf (tmpbuf, " %d", XtWindow(emacscli[i]));
|
|
|
137 strcat (labarr, tmpbuf);
|
|
|
138 }
|
|
|
139 lab = XmStringCreateLocalized(labarr);
|
|
|
140 XtVaSetValues(label2, XmNlabelString, lab, NULL);
|
|
|
141 XmStringFree(lab);
|
|
|
142 }
|
|
|
143
|
|
|
144 XtAppMainLoop(xt_app_con);
|
|
|
145 }
|
