2 #include <Xm/RowColumn.h>
8 #include "ExternalClient.h"
11 #include <desktop/tt_c.h>
15 XtAppContext xt_app_con;
17 void ScaleValueChangedCB(Widget scale, XtPointer app_data,
18 XtPointer widget_data)
20 XmScaleCallbackStruct *xms = (XmScaleCallbackStruct *) widget_data;
21 Widget label = (Widget) app_data;
25 sprintf(labelarr, "%d", xms->value);
26 labelstr = XmStringCreateLocalized(labelarr);
27 XtVaSetValues(label, XmNlabelString, labelstr, NULL);
28 XmStringFree(labelstr);
33 static void handle_tt_input(XtPointer client_data, int *source, XtInputId * id)
35 Tt_message m = tt_message_receive();
37 if (m && !(tt_ptr_error(m))) {
38 tt_message_destroy(m);
42 Tt_status HxInitializeToolTalk()
44 static Boolean initialized = FALSE;
52 if (TT_OK != (status = tt_session_join(tt_default_session())))
54 (void)XtAppAddInput(xt_app_con, fd, (void *)XtInputReadMask,
55 handle_tt_input, NULL);
63 main(int argc, char **argv)
65 Widget shell, rowcolumn, scale, pushbutton, label1, label2, text;
75 no_ews = atoi(argv[1]);
77 shell = XtAppInitialize(&xt_app_con, "Testmotif", NULL, 0,
78 &argc, argv, NULL, NULL, 0);
81 HxInitializeToolTalk();
84 rowcolumn = XmCreateRowColumn(shell, "rowcolumn", NULL, 0);
85 XtManageChild(rowcolumn);
88 XtSetArg(args[n], XmNtraversalOn, TRUE);
91 label1 = XmCreateLabel(rowcolumn, "label1", args, n);
93 label1 = XtVaCreateWidget("label1", xmLabelWidgetClass, rowcolumn,
94 XmNwidth, 50, XmNheight, 30,
95 XmNtraversalOn, TRUE, NULL);
96 label2 = XmCreateLabel(rowcolumn, "label2", NULL, 0);
97 scale = XmCreateScale(rowcolumn, "scale", NULL, 0);
98 XtAddCallback(scale, XmNvalueChangedCallback, ScaleValueChangedCB,
100 paned = XmCreatePanedWindow(rowcolumn, "paned", NULL, 0);
102 widlist[n++] = label1;
103 widlist[n++] = label2;
104 widlist[n++] = scale;
105 widlist[n++] = paned;
106 XtManageChildren(widlist, n);
108 pushbutton = XmCreatePushButton(paned, "pushbutton", NULL, 0);
109 text = XmCreateText(paned, "text", NULL, 0);
110 for (i = 0; i < no_ews; i++) {
111 sprintf(buf, "extcli%d", i);
113 XtVaCreateWidget(buf, externalClientWidgetClass, paned,
114 XmNwidth, 500, XmNheight, 200,
115 XmNtraversalOn, TRUE,
117 XtNuseToolTalk, TRUE,
121 text2 = XmCreateText(paned, "text2", NULL, 0);
123 widlist[n++] = pushbutton;
125 for (i = 0; i < no_ews; i++)
126 widlist[n++] = emacscli[i];
127 widlist[n++] = text2;
128 XtManageChildren(widlist, n);
130 XtRealizeWidget(shell);
137 strcpy(labarr, "window:");
138 for (i = 0; i < no_ews; i++) {
139 sprintf(tmpbuf, " %d", XtWindow(emacscli[i]));
140 strcat(labarr, tmpbuf);
142 lab = XmStringCreateLocalized(labarr);
143 XtVaSetValues(label2, XmNlabelString, lab, NULL);
147 XtAppMainLoop(xt_app_con);