1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
/*
** getfilename.c
**
*/
/* $XFree86: xc/programs/xgc/getfile.c,v 1.4tsi Exp $ */
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Xaw/Label.h>
#include <X11/Xaw/Command.h>
#include <X11/Xaw/Form.h>
#include <X11/Shell.h>
#include <X11/Xaw/AsciiText.h>
#include <stdio.h>
#include "xgc.h"
static Widget popupshell = NULL; /* popup dialog box */
Widget filename_text_widget; /* Widget containing the name of
the file the user has selected */
static void kill_popup_shell(void);
void
get_filename(
void (*success)(void), /* what function to call when a filename is
chosen */
void (*failure)(void)) /* what function to call when the user
cancels */
{
static Widget popupform; /* form inside shell */
static Widget label; /* "Filename :" */
Window dummy1, dummy2;
int x1,y1,x2,y2;
unsigned int mask;
/* The translation table for the text widget. Things such as <RETURN>
** confirm the user's choice. Other keys which would move out of
** the range of a one-line window are disabled. */
static const char *translationtable =
"Ctrl<Key>J: KillPopup() Done()\n\
Ctrl<Key>M: KillPopup() Done()\n\
<Key>Linefeed: KillPopup() Done()\n\
<Key>Return: KillPopup() Done()\n\
Ctrl<Key>O: Nothing()\n\
Meta<Key>I: Nothing()\n\
Ctrl<Key>N: Nothing()\n\
Ctrl<Key>P: Nothing()\n\
Ctrl<Key>Z: Nothing()\n\
Meta<Key>Z: Nothing()\n\
Ctrl<Key>V: Nothing()\n\
Meta<Key>V: Nothing()";
/* What the actions in the translation table correspond to. */
static XtActionsRec actiontable[] = {
{"KillPopup", (XtActionProc) kill_popup_shell},
{"Done", NULL},
{"Nothing", NULL}
};
static Arg popupshellargs[] = { /* Where to put the popup shell. */
{XtNx, (XtArgVal) NULL},
{XtNy, (XtArgVal) NULL}
};
static Arg labelargs[] = { /* ArgList for the label */
{XtNborderWidth, (XtArgVal) 0},
{XtNjustify, (XtArgVal) XtJustifyRight}
};
static Arg textargs[] = { /* ArgList for the text widget */
{XtNeditType, (XtArgVal) XawtextEdit},
{XtNwidth, (XtArgVal) 200},
{XtNhorizDistance, (XtArgVal) 10},
{XtNfromHoriz, (XtArgVal) NULL},
};
static Arg cancelargs[] = { /* ArgList for the cancel button */
{XtNfromHoriz, (XtArgVal) NULL},
{XtNcallback, (XtArgVal) NULL}
};
/* Procedures to call when the user selects 'cancel' */
static XtCallbackRec cancelcallbacklist[] = {
{(XtCallbackProc) kill_popup_shell, NULL},
{NULL, NULL},
{NULL, NULL}
};
if (popupshell != NULL) {
XtPopup(popupshell,XtGrabExclusive);
return;
}
/* Find out where the pointer is, so we can put the popup window there */
(void) XQueryPointer(X.dpy,XtWindow(topform),&dummy1,&dummy2,&x1,&y1,
&x2,&y2,&mask);
popupshellargs[0].value = (XtArgVal) x2;
popupshellargs[1].value = (XtArgVal) y2;
popupshell = XtCreatePopupShell("popup",overrideShellWidgetClass,
topform,popupshellargs,XtNumber(popupshellargs));
popupform = XtCreateManagedWidget("form",formWidgetClass,popupshell,
NULL, 0);
label = XtCreateManagedWidget("Filename: ",labelWidgetClass,popupform,
labelargs,XtNumber(labelargs));
textargs[3].value = (XtArgVal) label;
filename_text_widget = XtCreateManagedWidget("text",asciiTextWidgetClass,
popupform,
textargs,XtNumber(textargs));
/* Complete the action table. We have to do it here because success
** isn't known at compile time. */
actiontable[1].proc = (XtActionProc) success;
/* Register actions, translations, callbacks */
XtAppAddActions(appcontext,actiontable,XtNumber(actiontable));
XtOverrideTranslations(filename_text_widget,
XtParseTranslationTable(translationtable));
cancelcallbacklist[1].callback = (XtCallbackProc) failure;
cancelargs[0].value = (XtArgVal) filename_text_widget;
cancelargs[1].value = (XtArgVal) cancelcallbacklist;
(void) XtCreateManagedWidget("Cancel",commandWidgetClass,popupform,
cancelargs,XtNumber(cancelargs));
/* Bring up the popup. When the user presses cancel or the return key,
** the function kill_popup_shell (below) will be called to remove it. */
XtPopup(popupshell,XtGrabExclusive);
}
/* kill_popup_shell()
** ------------------
** Remove the popup window that get_filename popped up.
*/
static void
kill_popup_shell(void)
{
XtPopdown(popupshell);
}
|
