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
|
--- dialog.c.orig 1995-06-19 22:15:13 UTC
+++ dialog.c
@@ -130,8 +130,8 @@ void DeleteWord(w, event, params, num_pa
Cardinal i;
textblock.firstPos = 0;
- textblock.length = 0;
- textblock.ptr = "";
+ textblock.length = 1;
+ textblock.ptr = " ";
pos = XawTextGetInsertionPoint(w);
if (pos <= StartPos)
@@ -142,6 +142,30 @@ void DeleteWord(w, event, params, num_pa
XawTextSetInsertionPoint(w, i);
}
+/* Erases the preceding word.
+ * Simulates the action of the WERASE character (ctrl-W).
+ */
+/* ARGSUSED */
+void DeleteChar(w, event, params, num_params)
+ Widget w;
+ XEvent *event;
+ String *params;
+ Cardinal *num_params;
+{
+ XawTextBlock textblock;
+ XawTextPosition pos;
+
+ textblock.firstPos = 0;
+ textblock.length = 1;
+ textblock.ptr = " ";
+
+ pos = XawTextGetInsertionPoint(w);
+ if (pos > StartPos) {
+ XawTextReplace(w, pos-1, pos, &textblock);
+ XawTextSetInsertionPoint(w, pos-1);
+ }
+}
+
/* Deletes the entire current input line.
* simulates the action of the KILL character (ctrl-U).
@@ -159,8 +183,8 @@ void DeleteLine(w, event, params, num_pa
char *s;
textblock.firstPos = 0;
- textblock.length = 0;
- textblock.ptr = "";
+ textblock.length = 1;
+ textblock.ptr = " ";
pos = XawTextGetInsertionPoint(w);
if (w == dialogWindow) {
@@ -307,6 +331,7 @@ Widget parent;
{"SigQuit", (XtActionProc) SigQuit},
{"InsertSpace", (XtActionProc) InsertSpace},
{"Dispatch", (XtActionProc) Dispatch},
+ {"DeleteChar", (XtActionProc) DeleteChar},
{NULL, NULL}
};
@@ -316,10 +341,10 @@ Widget parent;
Ctrl<Key>|: SigQuit()\n\
Ctrl<Key>W: DeleteWord()\n\
Ctrl<Key>U: DeleteLine()\n\
- Ctrl<Key>H: InsertSpace() delete-previous-character()\n\
- <Key>Delete: InsertSpace() delete-previous-character()\n\
- <Key>BackSpace: InsertSpace() delete-previous-character()\n\
- <Key>Return: newline() Dispatch()\n\
+ Ctrl<Key>H: DeleteChar()\n\
+ <Key>Delete: DeleteChar()\n\
+ <Key>BackSpace: DeleteChar()\n\
+ <Key>Return: newline()Dispatch()\n\
";
n = 0;
|
