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, XtPointer widget_data)
19 XmScaleCallbackStruct *xms = (XmScaleCallbackStruct *) widget_data;
20 Widget label = (Widget) app_data;
24 sprintf(labelarr, "%d", xms->value);
25 labelstr = XmStringCreateLocalized(labelarr);
26 XtVaSetValues(label, XmNlabelString, labelstr, NULL);
27 XmStringFree(labelstr);
33 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);
43 HxInitializeToolTalk()
45 static Boolean initialized = FALSE;
53 if (TT_OK != (status = tt_session_join( tt_default_session() )))
55 (void)XtAppAddInput(xt_app_con, fd, (void *)XtInputReadMask, 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); n++;
90 label1 = XmCreateLabel(rowcolumn, "label1", args, n);
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);
100 widlist[n++] = label1;
101 widlist[n++] = label2;
102 widlist[n++] = scale;
103 widlist[n++] = paned;
104 XtManageChildren(widlist, n);
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,
114 XtNuseToolTalk, TRUE,
118 text2 = XmCreateText(paned, "text2", NULL, 0);
120 widlist[n++] = pushbutton;
122 for (i=0; i<no_ews; i++)
123 widlist[n++] = emacscli[i];
124 widlist[n++] = text2;
125 XtManageChildren(widlist, n);
127 XtRealizeWidget(shell);
134 strcpy (labarr, "window:");
135 for (i=0; i<no_ews; i++) {
136 sprintf (tmpbuf, " %d", XtWindow(emacscli[i]));
137 strcat (labarr, tmpbuf);
139 lab = XmStringCreateLocalized(labarr);
140 XtVaSetValues(label2, XmNlabelString, lab, NULL);
144 XtAppMainLoop(xt_app_con);