2 Editor dialogs for high level editing commands
4 Copyright (C) 2009, 2011
5 The Free Software Foundation, Inc.
8 Slava Zanko <slavazanko@gmail.com>, 2009.
10 This file is part of the Midnight Commander.
12 The Midnight Commander is free software: you can redistribute it
13 and/or modify it under the terms of the GNU General Public License as
14 published by the Free Software Foundation, either version 3 of the License,
15 or (at your option) any later version.
17 The Midnight Commander is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with this program. If not, see <http://www.gnu.org/licenses/>.
28 #include "lib/global.h"
29 #include "lib/tty/tty.h"
30 #include "lib/skin.h" /* INPUT_COLOR */
31 #include "lib/tty/key.h"
32 #include "lib/search.h"
33 #include "lib/strutil.h"
34 #include "lib/widget.h"
36 #include "lib/charsets.h"
40 #include "src/history.h"
42 #include "src/editor/editwidget.h"
43 #include "src/editor/etags.h"
44 #include "src/editor/editcmd_dialogs.h"
46 /*** global variables ****************************************************************************/
48 edit_search_options_t edit_search_options
= {
49 .type
= MC_SEARCH_T_NORMAL
,
52 .only_in_selection
= FALSE
,
54 .all_codepages
= FALSE
57 /*** file scope macro definitions ****************************************************************/
59 #define SEARCH_DLG_WIDTH 58
60 #define SEARCH_DLG_MIN_HEIGHT 13
61 #define SEARCH_DLG_HEIGHT_SUPPLY 3
63 #define REPLACE_DLG_WIDTH 58
64 #define REPLACE_DLG_MIN_HEIGHT 17
65 #define REPLACE_DLG_HEIGHT_SUPPLY 5
67 /*** file scope type declarations ****************************************************************/
69 /*** file scope variables ************************************************************************/
71 /*** file scope functions ************************************************************************/
72 /* --------------------------------------------------------------------------------------------- */
75 editcmd_dialog_raw_key_query_cb (struct Dlg_head
*h
, Widget
* sender
,
76 dlg_msg_t msg
, int parm
, void *data
)
85 return default_dlg_callback (h
, sender
, msg
, parm
, data
);
89 /* --------------------------------------------------------------------------------------------- */
90 /*** public functions ****************************************************************************/
91 /* --------------------------------------------------------------------------------------------- */
94 editcmd_dialog_replace_show (WEdit
* edit
, const char *search_default
, const char *replace_default
,
95 /*@out@ */ char **search_text
, /*@out@ */ char **replace_text
)
97 if ((search_default
== NULL
) || (*search_default
== '\0'))
98 search_default
= INPUT_LAST_TEXT
;
102 gchar
**list_of_types
= mc_search_get_types_strings_array (&num_of_types
);
103 int REPLACE_DLG_HEIGHT
= REPLACE_DLG_MIN_HEIGHT
+ num_of_types
- REPLACE_DLG_HEIGHT_SUPPLY
;
105 QuickWidget quick_widgets
[] = {
106 /* 0 */ QUICK_BUTTON (6, 10, 13, REPLACE_DLG_HEIGHT
, N_("&Cancel"), B_CANCEL
, NULL
),
107 /* 1 */ QUICK_BUTTON (2, 10, 13, REPLACE_DLG_HEIGHT
, N_("&OK"), B_ENTER
, NULL
),
109 /* 2 */ QUICK_CHECKBOX (33, REPLACE_DLG_WIDTH
, 11, REPLACE_DLG_HEIGHT
,
111 &edit_search_options
.all_codepages
),
113 /* 3 */ QUICK_CHECKBOX (33, REPLACE_DLG_WIDTH
, 10, REPLACE_DLG_HEIGHT
,
115 &edit_search_options
.whole_words
),
116 /* 4 */ QUICK_CHECKBOX (33, REPLACE_DLG_WIDTH
, 9, REPLACE_DLG_HEIGHT
,
118 &edit_search_options
.only_in_selection
),
119 /* 5 */ QUICK_CHECKBOX (33, REPLACE_DLG_WIDTH
, 8, REPLACE_DLG_HEIGHT
, N_("&Backwards"),
120 &edit_search_options
.backwards
),
121 /* 6 */ QUICK_CHECKBOX (33, REPLACE_DLG_WIDTH
, 7, REPLACE_DLG_HEIGHT
,
122 N_("Cas&e sensitive"),
123 &edit_search_options
.case_sens
),
124 /* 7 */ QUICK_RADIO (3, REPLACE_DLG_WIDTH
, 7, REPLACE_DLG_HEIGHT
,
125 num_of_types
, (const char **) list_of_types
,
126 (int *) &edit_search_options
.type
),
127 /* 8 */ QUICK_LABEL (3, REPLACE_DLG_WIDTH
, 4, REPLACE_DLG_HEIGHT
,
128 N_("Enter replacement string:")),
129 /* 9 */ QUICK_INPUT (3, REPLACE_DLG_WIDTH
, 5, REPLACE_DLG_HEIGHT
,
130 replace_default
, REPLACE_DLG_WIDTH
- 6, 0, "replace",
132 /* 10 */ QUICK_LABEL (3, REPLACE_DLG_WIDTH
, 2, REPLACE_DLG_HEIGHT
,
133 N_("Enter search string:")),
134 /* 11 */ QUICK_INPUT (3, REPLACE_DLG_WIDTH
, 3, REPLACE_DLG_HEIGHT
,
135 search_default
, REPLACE_DLG_WIDTH
- 6, 0,
136 MC_HISTORY_SHARED_SEARCH
, search_text
),
140 QuickDialog Quick_input
= {
141 REPLACE_DLG_WIDTH
, REPLACE_DLG_HEIGHT
, -1, -1, N_("Replace"),
142 "[Input Line Keys]", quick_widgets
, NULL
, FALSE
145 if (quick_dialog (&Quick_input
) != B_CANCEL
)
147 edit
->replace_mode
= 0;
151 *replace_text
= NULL
;
155 g_strfreev (list_of_types
);
159 /* --------------------------------------------------------------------------------------------- */
162 editcmd_dialog_search_show (WEdit
* edit
)
167 gchar
**list_of_types
= mc_search_get_types_strings_array (&num_of_types
);
168 int SEARCH_DLG_HEIGHT
= SEARCH_DLG_MIN_HEIGHT
+ num_of_types
- SEARCH_DLG_HEIGHT_SUPPLY
;
173 QuickWidget quick_widgets
[] = {
175 QUICK_BUTTON (6, 10, 11, SEARCH_DLG_HEIGHT
, N_("&Cancel"), B_CANCEL
, NULL
),
177 QUICK_BUTTON (4, 10, 11, SEARCH_DLG_HEIGHT
, N_("&Find all"), B_USER
, NULL
),
179 QUICK_BUTTON (2, 10, 11, SEARCH_DLG_HEIGHT
, N_("&OK"), B_ENTER
, NULL
),
182 QUICK_CHECKBOX (33, SEARCH_DLG_WIDTH
, 9, SEARCH_DLG_HEIGHT
, N_("&All charsets"),
183 &edit_search_options
.all_codepages
),
186 QUICK_CHECKBOX (33, SEARCH_DLG_WIDTH
, 8, SEARCH_DLG_HEIGHT
, N_("&Whole words"),
187 &edit_search_options
.whole_words
),
189 QUICK_CHECKBOX (33, SEARCH_DLG_WIDTH
, 7, SEARCH_DLG_HEIGHT
, N_("In se&lection"),
190 &edit_search_options
.only_in_selection
),
192 QUICK_CHECKBOX (33, SEARCH_DLG_WIDTH
, 6, SEARCH_DLG_HEIGHT
, N_("&Backwards"),
193 &edit_search_options
.backwards
),
195 QUICK_CHECKBOX (33, SEARCH_DLG_WIDTH
, 5, SEARCH_DLG_HEIGHT
, N_("Cas&e sensitive"),
196 &edit_search_options
.case_sens
),
198 QUICK_RADIO (3, SEARCH_DLG_WIDTH
, 5, SEARCH_DLG_HEIGHT
,
199 num_of_types
, (const char **) list_of_types
,
200 (int *) &edit_search_options
.type
),
202 QUICK_INPUT (3, SEARCH_DLG_WIDTH
, 3, SEARCH_DLG_HEIGHT
,
203 INPUT_LAST_TEXT
, SEARCH_DLG_WIDTH
- 6, 0,
204 MC_HISTORY_SHARED_SEARCH
, &search_text
),
206 QUICK_LABEL (3, SEARCH_DLG_WIDTH
, 2, SEARCH_DLG_HEIGHT
, N_("Enter search string:")),
211 size_t last_checkbox
= 7;
213 size_t last_checkbox
= 6;
216 QuickDialog Quick_input
= {
217 SEARCH_DLG_WIDTH
, SEARCH_DLG_HEIGHT
, -1, -1, N_("Search"),
218 "[Input Line Keys]", quick_widgets
, NULL
, TRUE
222 char **list_of_types_nls
;
225 Quick_input
.title
= _(Quick_input
.title
);
227 for (i
= 0; i
< 3; i
++)
228 quick_widgets
[i
].u
.button
.text
= _(quick_widgets
[i
].u
.button
.text
);
230 for (i
= 3; i
<= last_checkbox
; i
++)
231 quick_widgets
[i
].u
.checkbox
.text
= _(quick_widgets
[i
].u
.checkbox
.text
);
233 quick_widgets
[10].u
.label
.text
= _(quick_widgets
[10].u
.label
.text
);
236 /* create copy of radio items to avoid memory leak */
237 list_of_types_nls
= g_new0 (char *, num_of_types
+ 1);
238 for (i
= 0; i
< num_of_types
; i
++)
239 list_of_types_nls
[i
] = g_strdup (_(list_of_types
[i
]));
240 g_strfreev (list_of_types
);
241 list_of_types
= list_of_types_nls
;
242 quick_widgets
[last_checkbox
+ 1].u
.radio
.items
= (const char **) list_of_types
;
245 /* calculate widget coordinates */
249 gchar
**radio
= list_of_types
;
250 int b0_len
, b1_len
, b2_len
;
251 const int button_gap
= 2;
253 /* length of radiobuttons */
254 while (*radio
!= NULL
)
256 len
= max (len
, str_term_width1 (*radio
));
259 /* length of checkboxes */
260 for (i
= 3; i
<= last_checkbox
; i
++)
261 len
= max (len
, str_term_width1 (quick_widgets
[i
].u
.checkbox
.text
) + 4);
263 /* preliminary dialog width */
264 dlg_width
= max (len
* 2, str_term_width1 (Quick_input
.title
)) + 4;
266 /* length of buttons */
267 b0_len
= str_term_width1 (quick_widgets
[0].u
.button
.text
) + 3;
268 b1_len
= str_term_width1 (quick_widgets
[1].u
.button
.text
) + 3;
269 b2_len
= str_term_width1 (quick_widgets
[2].u
.button
.text
) + 5; /* default button */
270 len
= b0_len
+ b1_len
+ b2_len
+ button_gap
* 2;
273 Quick_input
.xlen
= max (SEARCH_DLG_WIDTH
, max (dlg_width
, len
+ 6));
275 /* correct widget coordinates */
276 for (i
= 0; i
< sizeof (quick_widgets
) / sizeof (quick_widgets
[0]); i
++)
277 quick_widgets
[i
].x_divisions
= Quick_input
.xlen
;
279 /* checkbox positions */
280 for (i
= 3; i
<= last_checkbox
; i
++)
281 quick_widgets
[i
].relative_x
= Quick_input
.xlen
/ 2 + 2;
283 quick_widgets
[last_checkbox
+ 2].u
.input
.len
= Quick_input
.xlen
- 6;
284 /* button positions */
285 quick_widgets
[2].relative_x
= Quick_input
.xlen
/ 2 - len
/ 2;
286 quick_widgets
[1].relative_x
= quick_widgets
[2].relative_x
+ b2_len
+ button_gap
;
287 quick_widgets
[0].relative_x
= quick_widgets
[1].relative_x
+ b1_len
+ button_gap
;
290 dialog_result
= quick_dialog (&Quick_input
);
292 g_strfreev (list_of_types
);
294 if ((dialog_result
== B_CANCEL
) || (search_text
== NULL
) || (search_text
[0] == '\0'))
296 g_free (search_text
);
300 if (dialog_result
== B_USER
)
301 search_create_bookmark
= TRUE
;
307 tmp
= str_convert_to_input (search_text
);
310 g_free (search_text
);
311 search_text
= g_string_free (tmp
, FALSE
);
316 g_free (edit
->last_search_string
);
317 edit
->last_search_string
= search_text
;
318 mc_search_free (edit
->search
);
320 edit
->search
= mc_search_new (edit
->last_search_string
, -1);
321 if (edit
->search
!= NULL
)
323 edit
->search
->search_type
= edit_search_options
.type
;
324 edit
->search
->is_all_charsets
= edit_search_options
.all_codepages
;
325 edit
->search
->is_case_sensitive
= edit_search_options
.case_sens
;
326 edit
->search
->whole_words
= edit_search_options
.whole_words
;
327 edit
->search
->search_fn
= edit_search_cmd_callback
;
330 return (edit
->search
!= NULL
);
333 /* --------------------------------------------------------------------------------------------- */
334 /* gets a raw key from the keyboard. Passing cancel = 1 draws
335 a cancel button thus allowing c-c etc. Alternatively, cancel = 0
336 will return the next key pressed. ctrl-a (=B_CANCEL), ctrl-g, ctrl-c,
337 and Esc are cannot returned */
340 editcmd_dialog_raw_key_query (const char *heading
, const char *query
, int cancel
)
342 int w
= str_term_width1 (query
) + 7;
344 struct Dlg_head
*raw_dlg
=
345 create_dlg (TRUE
, 0, 0, 7, w
, dialog_colors
, editcmd_dialog_raw_key_query_cb
,
346 NULL
, heading
, DLG_CENTER
| DLG_TRYUP
| DLG_WANT_TAB
);
347 add_widget (raw_dlg
, input_new (3 - cancel
, w
- 5, input_get_default_colors (),
348 2, "", 0, INPUT_COMPLETE_DEFAULT
));
349 add_widget (raw_dlg
, label_new (3 - cancel
, 2, query
));
351 add_widget (raw_dlg
, button_new (4, w
/ 2 - 5, B_CANCEL
, NORMAL_BUTTON
, _("Cancel"), 0));
352 w
= run_dlg (raw_dlg
);
353 destroy_dlg (raw_dlg
);
355 return (cancel
&& (w
== ESC_CHAR
|| w
== B_CANCEL
)) ? 0 : w
;
358 /* --------------------------------------------------------------------------------------------- */
359 /* let the user select its preferred completion */
362 editcmd_dialog_completion_show (WEdit
* edit
, int max_len
, int word_len
,
363 struct selection
*compl, int num_compl
)
366 int start_x
, start_y
, offset
, i
;
369 WListbox
*compl_list
;
370 int compl_dlg_h
; /* completion dialog height */
371 int compl_dlg_w
; /* completion dialog width */
373 /* calculate the dialog metrics */
374 compl_dlg_h
= num_compl
+ 2;
375 compl_dlg_w
= max_len
+ 4;
376 start_x
= edit
->curs_col
+ edit
->start_col
- (compl_dlg_w
/ 2) +
377 EDIT_TEXT_HORIZONTAL_OFFSET
+ option_line_state_width
;
378 start_y
= edit
->curs_row
+ EDIT_TEXT_VERTICAL_OFFSET
+ 1;
382 if (compl_dlg_w
> COLS
)
384 if (compl_dlg_h
> LINES
- 2)
385 compl_dlg_h
= LINES
- 2;
387 offset
= start_x
+ compl_dlg_w
- COLS
;
390 offset
= start_y
+ compl_dlg_h
- LINES
;
392 start_y
-= (offset
+ 1);
394 /* create the dialog */
396 create_dlg (TRUE
, start_y
, start_x
, compl_dlg_h
, compl_dlg_w
,
397 dialog_colors
, NULL
, "[Completion]", NULL
, DLG_COMPACT
);
399 /* create the listbox */
400 compl_list
= listbox_new (1, 1, compl_dlg_h
- 2, compl_dlg_w
- 2, FALSE
, NULL
);
403 add_widget (compl_dlg
, compl_list
);
405 /* fill the listbox with the completions */
406 for (i
= num_compl
- 1; i
>= 0; i
--) /* reverse order */
407 listbox_add_item (compl_list
, LISTBOX_APPEND_AT_END
, 0, (char *) compl[i
].text
, NULL
);
409 /* pop up the dialog and apply the choosen completion */
410 if (run_dlg (compl_dlg
) == B_ENTER
)
412 listbox_get_current (compl_list
, &curr
, NULL
);
416 GString
*temp
, *temp2
;
417 temp
= g_string_new ("");
418 for (curr
+= word_len
; *curr
; curr
++)
419 g_string_append_c (temp
, *curr
);
421 temp2
= str_convert_to_input (temp
->str
);
423 if (temp2
&& temp2
->len
)
425 g_string_free (temp
, TRUE
);
429 g_string_free (temp2
, TRUE
);
430 for (curr
= temp
->str
; *curr
; curr
++)
431 edit_insert (edit
, *curr
);
432 g_string_free (temp
, TRUE
);
434 for (curr
+= word_len
; *curr
; curr
++)
435 edit_insert (edit
, *curr
);
440 /* destroy dialog before return */
441 destroy_dlg (compl_dlg
);
444 /* --------------------------------------------------------------------------------------------- */
445 /* let the user select where function definition */
448 editcmd_dialog_select_definition_show (WEdit
* edit
, char *match_expr
, int max_len
, int word_len
,
449 etags_hash_t
* def_hash
, int num_lines
)
452 int start_x
, start_y
, offset
, i
;
454 etags_hash_t
*curr_def
= NULL
;
457 int def_dlg_h
; /* dialog height */
458 int def_dlg_w
; /* dialog width */
459 char *label_def
= NULL
;
462 /* calculate the dialog metrics */
463 def_dlg_h
= num_lines
+ 2;
464 def_dlg_w
= max_len
+ 4;
465 start_x
= edit
->curs_col
+ edit
->start_col
- (def_dlg_w
/ 2) +
466 EDIT_TEXT_HORIZONTAL_OFFSET
+ option_line_state_width
;
467 start_y
= edit
->curs_row
+ EDIT_TEXT_VERTICAL_OFFSET
+ 1;
471 if (def_dlg_w
> COLS
)
473 if (def_dlg_h
> LINES
- 2)
474 def_dlg_h
= LINES
- 2;
476 offset
= start_x
+ def_dlg_w
- COLS
;
479 offset
= start_y
+ def_dlg_h
- LINES
;
481 start_y
-= (offset
+ 1);
483 /* create the dialog */
484 def_dlg
= create_dlg (TRUE
, start_y
, start_x
, def_dlg_h
, def_dlg_w
,
485 dialog_colors
, NULL
, "[Definitions]", match_expr
, DLG_COMPACT
);
487 /* create the listbox */
488 def_list
= listbox_new (1, 1, def_dlg_h
- 2, def_dlg_w
- 2, FALSE
, NULL
);
491 add_widget (def_dlg
, def_list
);
493 /* fill the listbox with the completions */
494 for (i
= 0; i
< num_lines
; i
++)
497 g_strdup_printf ("%s -> %s:%ld", def_hash
[i
].short_define
, def_hash
[i
].filename
,
499 listbox_add_item (def_list
, LISTBOX_APPEND_AT_END
, 0, label_def
, &def_hash
[i
]);
503 /* pop up the dialog and apply the choosen completion */
504 if (run_dlg (def_dlg
) == B_ENTER
)
506 char *tmp_curr_def
= (char *) curr_def
;
509 listbox_get_current (def_list
, &curr
, (void **) &tmp_curr_def
);
510 curr_def
= (etags_hash_t
*) tmp_curr_def
;
513 if (!edit_query_dialog2
515 _("Current text was modified without a file save.\n"
516 "Continue discards these changes."), _("C&ontinue"), _("&Cancel")))
518 edit
->force
|= REDRAW_COMPLETELY
;
527 if (curr
&& do_moveto
)
529 if (edit_stack_iterator
+ 1 < MAX_HISTORY_MOVETO
)
531 vfs_path_free (edit_history_moveto
[edit_stack_iterator
].filename_vpath
);
532 if (edit
->dir_vpath
!= NULL
)
534 edit_history_moveto
[edit_stack_iterator
].filename_vpath
=
535 vfs_path_append_vpath_new (edit
->dir_vpath
, edit
->filename_vpath
, NULL
);
539 edit_history_moveto
[edit_stack_iterator
].filename_vpath
=
540 vfs_path_clone (edit
->filename_vpath
);
542 edit_history_moveto
[edit_stack_iterator
].line
= edit
->start_line
+
544 edit_stack_iterator
++;
545 vfs_path_free (edit_history_moveto
[edit_stack_iterator
].filename_vpath
);
546 edit_history_moveto
[edit_stack_iterator
].filename_vpath
=
547 vfs_path_from_str ((char *) curr_def
->fullpath
);
548 edit_history_moveto
[edit_stack_iterator
].line
= curr_def
->line
;
549 edit_reload_line (edit
, edit_history_moveto
[edit_stack_iterator
].filename_vpath
,
550 edit_history_moveto
[edit_stack_iterator
].line
);
555 /* clear definition hash */
556 for (i
= 0; i
< MAX_DEFINITIONS
; i
++)
558 g_free (def_hash
[i
].filename
);
561 /* destroy dialog before return */
562 destroy_dlg (def_dlg
);
565 /* --------------------------------------------------------------------------------------------- */
568 editcmd_dialog_replace_prompt_show (WEdit
* edit
, char *from_text
, char *to_text
, int xpos
,
579 char *repl_from
, *repl_to
;
580 char tmp
[BUF_MEDIUM
];
582 QuickWidget quick_widgets
[] = {
583 /* 0 */ QUICK_BUTTON (44, dlg_width
, 6, dlg_height
, N_("&Cancel"), B_CANCEL
, NULL
),
584 /* 1 */ QUICK_BUTTON (29, dlg_width
, 6, dlg_height
, N_("&Skip"), B_SKIP_REPLACE
, NULL
),
585 /* 2 */ QUICK_BUTTON (21, dlg_width
, 6, dlg_height
, N_("A&ll"), B_REPLACE_ALL
, NULL
),
586 /* 3 */ QUICK_BUTTON (4, dlg_width
, 6, dlg_height
, N_("&Replace"), B_ENTER
, NULL
),
587 /* 4 */ QUICK_LABEL (3, dlg_width
, 2, dlg_height
, NULL
),
588 /* 5 */ QUICK_LABEL (3, dlg_width
, 3, dlg_height
, N_("Replace with:")),
589 /* 6 */ QUICK_LABEL (3, dlg_width
, 4, dlg_height
, NULL
),
594 for (i
= 0; i
< 4; i
++)
595 quick_widgets
[i
].u
.button
.text
= _(quick_widgets
[i
].u
.button
.text
);
598 /* calculate button positions */
601 for (i
= 3; i
> -1; i
--)
603 quick_widgets
[i
].relative_x
= btn_pos
;
604 btn_pos
+= str_term_width1 (quick_widgets
[i
].u
.button
.text
) + 5;
605 if (i
== 3) /* default button */
609 dlg_width
= btn_pos
+ 2;
611 /* correct widget coordinates */
612 for (i
= 0; i
< 7; i
++)
613 quick_widgets
[i
].x_divisions
= dlg_width
;
615 g_snprintf (tmp
, sizeof (tmp
), "\"%s\"", from_text
);
616 repl_from
= g_strdup (str_fit_to_term (tmp
, dlg_width
- 7, J_LEFT
));
618 g_snprintf (tmp
, sizeof (tmp
), "\"%s\"", to_text
);
619 repl_to
= g_strdup (str_fit_to_term (tmp
, dlg_width
- 7, J_LEFT
));
621 quick_widgets
[4].u
.label
.text
= repl_from
;
622 quick_widgets
[6].u
.label
.text
= repl_to
;
625 xpos
= (edit
->widget
.cols
- dlg_width
) / 2;
628 ypos
= edit
->widget
.lines
* 2 / 3;
631 QuickDialog Quick_input
= {
632 dlg_width
, dlg_height
, 0, 0, N_("Confirm replace"),
633 "[Input Line Keys]", quick_widgets
, NULL
, FALSE
636 /* Sometimes menu can hide replaced text. I don't like it */
637 if ((edit
->curs_row
>= ypos
- 1) && (edit
->curs_row
<= ypos
+ dlg_height
- 1))
640 Quick_input
.ypos
= ypos
;
641 Quick_input
.xpos
= xpos
;
643 retval
= quick_dialog (&Quick_input
);
651 /* --------------------------------------------------------------------------------------------- */