mirror of
https://git.freebsd.org/ports.git
synced 2025-07-15 16:29:15 -04:00
78 lines
2.1 KiB
C
78 lines
2.1 KiB
C
--- 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;
|