1 /* TUI window generic functions.
3 Copyright (C) 1998-2020 Free Software Foundation, Inc.
5 Contributed by Hewlett-Packard Company.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 /* This module contains procedures for handling tui window functions
23 like resize, scrolling, scrolling, changing focus, etc.
25 Author: Susan B. Macchia */
30 #include "breakpoint.h"
32 #include "cli/cli-cmds.h"
33 #include "cli/cli-style.h"
36 #include "event-loop.h"
40 #include "tui/tui-io.h"
41 #include "tui/tui-command.h"
42 #include "tui/tui-data.h"
43 #include "tui/tui-layout.h"
44 #include "tui/tui-wingeneral.h"
45 #include "tui/tui-stack.h"
46 #include "tui/tui-regs.h"
47 #include "tui/tui-disasm.h"
48 #include "tui/tui-source.h"
49 #include "tui/tui-winsource.h"
50 #include "tui/tui-win.h"
52 #include "gdb_curses.h"
54 #include "readline/readline.h"
55 #include "gdbsupport/gdb_string_view.h"
59 static void tui_set_tab_width_command (const char *, int);
60 static void tui_refresh_all_command (const char *, int);
61 static void tui_all_windows_info (const char *, int);
62 static void tui_scroll_forward_command (const char *, int);
63 static void tui_scroll_backward_command (const char *, int);
64 static void tui_scroll_left_command (const char *, int);
65 static void tui_scroll_right_command (const char *, int);
66 static void parse_scrolling_args (const char *,
67 struct tui_win_info
**,
72 # define ACS_LRCORNER '+'
75 # define ACS_LLCORNER '+'
78 # define ACS_ULCORNER '+'
81 # define ACS_URCORNER '+'
84 # define ACS_HLINE '-'
87 # define ACS_VLINE '|'
90 /* Possible values for tui-border-kind variable. */
91 static const char *const tui_border_kind_enums
[] = {
98 /* Possible values for tui-border-mode and tui-active-border-mode. */
99 static const char *const tui_border_mode_enums
[] = {
116 /* Translation table for border-mode variables.
117 The list of values must be terminated by a NULL.
118 After the NULL value, an entry defines the default. */
119 static struct tui_translate tui_border_mode_translate
[] = {
120 { "normal", A_NORMAL
},
121 { "standout", A_STANDOUT
},
122 { "reverse", A_REVERSE
},
124 { "half-standout", A_DIM
| A_STANDOUT
},
126 { "bold-standout", A_BOLD
| A_STANDOUT
},
128 { "normal", A_NORMAL
}
131 /* Translation tables for border-kind, one for each border
132 character (see wborder, border curses operations).
133 -1 is used to indicate the ACS because ACS characters
134 are determined at run time by curses (depends on terminal). */
135 static struct tui_translate tui_border_kind_translate_vline
[] = {
143 static struct tui_translate tui_border_kind_translate_hline
[] = {
151 static struct tui_translate tui_border_kind_translate_ulcorner
[] = {
159 static struct tui_translate tui_border_kind_translate_urcorner
[] = {
167 static struct tui_translate tui_border_kind_translate_llcorner
[] = {
175 static struct tui_translate tui_border_kind_translate_lrcorner
[] = {
184 /* Tui configuration variables controlled with set/show command. */
185 static const char *tui_active_border_mode
= "bold-standout";
187 show_tui_active_border_mode (struct ui_file
*file
,
189 struct cmd_list_element
*c
,
192 fprintf_filtered (file
, _("\
193 The attribute mode to use for the active TUI window border is \"%s\".\n"),
197 static const char *tui_border_mode
= "normal";
199 show_tui_border_mode (struct ui_file
*file
,
201 struct cmd_list_element
*c
,
204 fprintf_filtered (file
, _("\
205 The attribute mode to use for the TUI window borders is \"%s\".\n"),
209 static const char *tui_border_kind
= "acs";
211 show_tui_border_kind (struct ui_file
*file
,
213 struct cmd_list_element
*c
,
216 fprintf_filtered (file
, _("The kind of border for TUI windows is \"%s\".\n"),
221 /* Tui internal configuration variables. These variables are updated
222 by tui_update_variables to reflect the tui configuration
224 chtype tui_border_vline
;
225 chtype tui_border_hline
;
226 chtype tui_border_ulcorner
;
227 chtype tui_border_urcorner
;
228 chtype tui_border_llcorner
;
229 chtype tui_border_lrcorner
;
231 int tui_border_attrs
;
232 int tui_active_border_attrs
;
234 /* Identify the item in the translation table.
235 When the item is not recognized, use the default entry. */
236 static struct tui_translate
*
237 translate (const char *name
, struct tui_translate
*table
)
241 if (name
&& strcmp (table
->name
, name
) == 0)
246 /* Not found, return default entry. */
251 /* Update the tui internal configuration according to gdb settings.
252 Returns 1 if the configuration has changed and the screen should
255 tui_update_variables ()
257 bool need_redraw
= false;
258 struct tui_translate
*entry
;
260 entry
= translate (tui_border_mode
, tui_border_mode_translate
);
261 if (tui_border_attrs
!= entry
->value
)
263 tui_border_attrs
= entry
->value
;
266 entry
= translate (tui_active_border_mode
, tui_border_mode_translate
);
267 if (tui_active_border_attrs
!= entry
->value
)
269 tui_active_border_attrs
= entry
->value
;
273 /* If one corner changes, all characters are changed.
274 Only check the first one. The ACS characters are determined at
275 run time by curses terminal management. */
276 entry
= translate (tui_border_kind
, tui_border_kind_translate_lrcorner
);
277 if (tui_border_lrcorner
!= (chtype
) entry
->value
)
279 tui_border_lrcorner
= (entry
->value
< 0) ? ACS_LRCORNER
: entry
->value
;
282 entry
= translate (tui_border_kind
, tui_border_kind_translate_llcorner
);
283 tui_border_llcorner
= (entry
->value
< 0) ? ACS_LLCORNER
: entry
->value
;
285 entry
= translate (tui_border_kind
, tui_border_kind_translate_ulcorner
);
286 tui_border_ulcorner
= (entry
->value
< 0) ? ACS_ULCORNER
: entry
->value
;
288 entry
= translate (tui_border_kind
, tui_border_kind_translate_urcorner
);
289 tui_border_urcorner
= (entry
->value
< 0) ? ACS_URCORNER
: entry
->value
;
291 entry
= translate (tui_border_kind
, tui_border_kind_translate_hline
);
292 tui_border_hline
= (entry
->value
< 0) ? ACS_HLINE
: entry
->value
;
294 entry
= translate (tui_border_kind
, tui_border_kind_translate_vline
);
295 tui_border_vline
= (entry
->value
< 0) ? ACS_VLINE
: entry
->value
;
301 set_tui_cmd (const char *args
, int from_tty
)
306 show_tui_cmd (const char *args
, int from_tty
)
310 static struct cmd_list_element
*tuilist
;
313 tui_command (const char *args
, int from_tty
)
315 printf_unfiltered (_("\"tui\" must be followed by the name of a "
317 help_list (tuilist
, "tui ", all_commands
, gdb_stdout
);
320 struct cmd_list_element
**
321 tui_get_cmd_list (void)
324 add_prefix_cmd ("tui", class_tui
, tui_command
,
325 _("Text User Interface commands."),
326 &tuilist
, "tui ", 0, &cmdlist
);
330 /* The set_func hook of "set tui ..." commands that affect the window
331 borders on the TUI display. */
334 tui_set_var_cmd (const char *null_args
,
335 int from_tty
, struct cmd_list_element
*c
)
337 if (tui_update_variables () && tui_active
)
338 tui_rehighlight_all ();
343 /* True if TUI resizes should print a message. This is used by the
346 static bool resize_message
;
349 show_tui_resize_message (struct ui_file
*file
, int from_tty
,
350 struct cmd_list_element
*c
, const char *value
)
352 fprintf_filtered (file
, _("TUI resize messaging is %s.\n"), value
);
357 /* Generic window name completion function. Complete window name pointed
358 to by TEXT and WORD. If INCLUDE_NEXT_PREV_P is true then the special
359 window names 'next' and 'prev' will also be considered as possible
360 completions of the window name. */
363 window_name_completer (completion_tracker
&tracker
,
364 int include_next_prev_p
,
365 const char *text
, const char *word
)
367 std::vector
<const char *> completion_name_vec
;
369 for (tui_win_info
*win_info
: all_tui_windows ())
371 const char *completion_name
= NULL
;
373 /* We can't focus on an invisible window. */
374 if (!win_info
->is_visible ())
377 completion_name
= win_info
->name ();
378 gdb_assert (completion_name
!= NULL
);
379 completion_name_vec
.push_back (completion_name
);
382 /* If no windows are considered visible then the TUI has not yet been
383 initialized. But still "focus src" and "focus cmd" will work because
384 invoking the focus command will entail initializing the TUI which sets the
385 default layout to "src". */
386 if (completion_name_vec
.empty ())
388 completion_name_vec
.push_back (SRC_NAME
);
389 completion_name_vec
.push_back (CMD_NAME
);
392 if (include_next_prev_p
)
394 completion_name_vec
.push_back ("next");
395 completion_name_vec
.push_back ("prev");
399 completion_name_vec
.push_back (NULL
);
400 complete_on_enum (tracker
, completion_name_vec
.data (), text
, word
);
403 /* Complete possible window names to focus on. TEXT is the complete text
404 entered so far, WORD is the word currently being completed. */
407 focus_completer (struct cmd_list_element
*ignore
,
408 completion_tracker
&tracker
,
409 const char *text
, const char *word
)
411 window_name_completer (tracker
, 1, text
, word
);
414 /* Complete possible window names for winheight command. TEXT is the
415 complete text entered so far, WORD is the word currently being
419 winheight_completer (struct cmd_list_element
*ignore
,
420 completion_tracker
&tracker
,
421 const char *text
, const char *word
)
423 /* The first word is the window name. That we can complete. Subsequent
424 words can't be completed. */
428 window_name_completer (tracker
, 0, text
, word
);
431 /* Update gdb's knowledge of the terminal size. */
433 tui_update_gdb_sizes (void)
439 width
= TUI_CMD_WIN
->width
;
440 height
= TUI_CMD_WIN
->height
;
444 width
= tui_term_width ();
445 height
= tui_term_height ();
448 set_screen_width_and_height (width
, height
);
453 tui_win_info::forward_scroll (int num_to_scroll
)
455 if (num_to_scroll
== 0)
456 num_to_scroll
= height
- 3;
458 do_scroll_vertical (num_to_scroll
);
462 tui_win_info::backward_scroll (int num_to_scroll
)
464 if (num_to_scroll
== 0)
465 num_to_scroll
= height
- 3;
467 do_scroll_vertical (-num_to_scroll
);
472 tui_win_info::left_scroll (int num_to_scroll
)
474 if (num_to_scroll
== 0)
477 do_scroll_horizontal (num_to_scroll
);
482 tui_win_info::right_scroll (int num_to_scroll
)
484 if (num_to_scroll
== 0)
487 do_scroll_horizontal (-num_to_scroll
);
492 tui_refresh_all_win (void)
494 clearok (curscr
, TRUE
);
499 tui_rehighlight_all (void)
501 for (tui_win_info
*win_info
: all_tui_windows ())
502 win_info
->check_and_display_highlight_if_needed ();
505 /* Resize all the windows based on the terminal size. This function
506 gets called from within the readline SIGWINCH handler. */
508 tui_resize_all (void)
510 int height_diff
, width_diff
;
511 int screenheight
, screenwidth
;
513 rl_get_screen_size (&screenheight
, &screenwidth
);
514 width_diff
= screenwidth
- tui_term_width ();
515 height_diff
= screenheight
- tui_term_height ();
516 if (height_diff
|| width_diff
)
518 struct tui_win_info
*win_with_focus
= tui_win_with_focus ();
520 #ifdef HAVE_RESIZE_TERM
521 resize_term (screenheight
, screenwidth
);
523 /* Turn keypad off while we resize. */
524 if (win_with_focus
!= TUI_CMD_WIN
)
525 keypad (TUI_CMD_WIN
->handle
.get (), FALSE
);
526 tui_update_gdb_sizes ();
527 tui_set_term_height_to (screenheight
);
528 tui_set_term_width_to (screenwidth
);
530 /* erase + clearok are used instead of a straightforward clear as
531 AIX 5.3 does not define clear. */
533 clearok (curscr
, TRUE
);
534 tui_apply_current_layout ();
535 /* Turn keypad back on, unless focus is in the command
537 if (win_with_focus
!= TUI_CMD_WIN
)
538 keypad (TUI_CMD_WIN
->handle
.get (), TRUE
);
543 /* Token for use by TUI's asynchronous SIGWINCH handler. */
544 static struct async_signal_handler
*tui_sigwinch_token
;
546 /* TUI's SIGWINCH signal handler. */
548 tui_sigwinch_handler (int signal
)
550 mark_async_signal_handler (tui_sigwinch_token
);
551 tui_set_win_resized_to (true);
554 /* Callback for asynchronously resizing TUI following a SIGWINCH signal. */
556 tui_async_resize_screen (gdb_client_data arg
)
558 rl_resize_terminal ();
562 int screen_height
, screen_width
;
564 rl_get_screen_size (&screen_height
, &screen_width
);
565 set_screen_width_and_height (screen_width
, screen_height
);
567 /* win_resized is left set so that the next call to tui_enable()
568 resizes the TUI windows. */
572 tui_set_win_resized_to (false);
574 tui_refresh_all_win ();
575 tui_update_gdb_sizes ();
579 printf_unfiltered ("@@ resize done %d, size = %dx%d\n", count
,
580 tui_term_width (), tui_term_height ());
583 tui_redisplay_readline ();
588 /* Initialize TUI's SIGWINCH signal handler. Note that the handler is not
589 uninstalled when we exit TUI, so the handler should not assume that TUI is
592 tui_initialize_win (void)
596 = create_async_signal_handler (tui_async_resize_screen
, NULL
);
599 #ifdef HAVE_SIGACTION
600 struct sigaction old_winch
;
602 memset (&old_winch
, 0, sizeof (old_winch
));
603 old_winch
.sa_handler
= &tui_sigwinch_handler
;
605 old_winch
.sa_flags
= SA_RESTART
;
607 sigaction (SIGWINCH
, &old_winch
, NULL
);
609 signal (SIGWINCH
, &tui_sigwinch_handler
);
617 tui_scroll_forward_command (const char *arg
, int from_tty
)
619 int num_to_scroll
= 1;
620 struct tui_win_info
*win_to_scroll
;
622 /* Make sure the curses mode is enabled. */
625 parse_scrolling_args (arg
, &win_to_scroll
, NULL
);
627 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
628 win_to_scroll
->forward_scroll (num_to_scroll
);
633 tui_scroll_backward_command (const char *arg
, int from_tty
)
635 int num_to_scroll
= 1;
636 struct tui_win_info
*win_to_scroll
;
638 /* Make sure the curses mode is enabled. */
641 parse_scrolling_args (arg
, &win_to_scroll
, NULL
);
643 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
644 win_to_scroll
->backward_scroll (num_to_scroll
);
649 tui_scroll_left_command (const char *arg
, int from_tty
)
652 struct tui_win_info
*win_to_scroll
;
654 /* Make sure the curses mode is enabled. */
656 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
657 win_to_scroll
->left_scroll (num_to_scroll
);
662 tui_scroll_right_command (const char *arg
, int from_tty
)
665 struct tui_win_info
*win_to_scroll
;
667 /* Make sure the curses mode is enabled. */
669 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
670 win_to_scroll
->right_scroll (num_to_scroll
);
674 /* Answer the window represented by name. */
675 static struct tui_win_info
*
676 tui_partial_win_by_name (gdb::string_view name
)
678 struct tui_win_info
*best
= nullptr;
682 for (tui_win_info
*item
: all_tui_windows ())
684 const char *cur_name
= item
->name ();
686 if (name
== cur_name
)
688 if (startswith (cur_name
, name
))
691 error (_("Window name \"%*s\" is ambiguous"),
692 (int) name
.size (), name
.data ());
701 /* Set focus to the window named by 'arg'. */
703 tui_set_focus_command (const char *arg
, int from_tty
)
708 error_no_arg (_("name of window to focus"));
710 struct tui_win_info
*win_info
= NULL
;
712 if (subset_compare (arg
, "next"))
713 win_info
= tui_next_win (tui_win_with_focus ());
714 else if (subset_compare (arg
, "prev"))
715 win_info
= tui_prev_win (tui_win_with_focus ());
717 win_info
= tui_partial_win_by_name (arg
);
719 if (win_info
== NULL
)
720 error (_("Unrecognized window name \"%s\""), arg
);
721 if (!win_info
->is_visible ())
722 error (_("Window \"%s\" is not visible"), arg
);
724 tui_set_win_focus_to (win_info
);
725 keypad (TUI_CMD_WIN
->handle
.get (), win_info
!= TUI_CMD_WIN
);
726 printf_filtered (_("Focus set to %s window.\n"),
727 tui_win_with_focus ()->name ());
731 tui_all_windows_info (const char *arg
, int from_tty
)
735 printf_filtered (_("The TUI is not active.\n"));
739 struct tui_win_info
*win_with_focus
= tui_win_with_focus ();
740 struct ui_out
*uiout
= current_uiout
;
742 ui_out_emit_table
table_emitter (uiout
, 3, -1, "tui-windows");
743 uiout
->table_header (10, ui_left
, "name", "Name");
744 uiout
->table_header (5, ui_right
, "lines", "Lines");
745 uiout
->table_header (10, ui_left
, "focus", "Focus");
746 uiout
->table_body ();
748 for (tui_win_info
*win_info
: all_tui_windows ())
749 if (win_info
->is_visible ())
751 ui_out_emit_tuple
tuple_emitter (uiout
, nullptr);
753 uiout
->field_string ("name", win_info
->name ());
754 uiout
->field_signed ("lines", win_info
->height
);
755 if (win_with_focus
== win_info
)
756 uiout
->field_string ("focus", _("(has focus)"));
758 uiout
->field_skip ("focus");
765 tui_refresh_all_command (const char *arg
, int from_tty
)
767 /* Make sure the curses mode is enabled. */
770 tui_refresh_all_win ();
773 /* The tab width that should be used by the TUI. */
775 unsigned int tui_tab_width
= DEFAULT_TAB_LEN
;
777 /* The tab width as set by the user. */
779 static unsigned int internal_tab_width
= DEFAULT_TAB_LEN
;
781 /* After the tab width is set, call this to update the relevant
787 for (tui_win_info
*win_info
: all_tui_windows ())
789 if (win_info
->is_visible ())
790 win_info
->update_tab_width ();
794 /* Callback for "set tui tab-width". */
797 tui_set_tab_width (const char *ignore
,
798 int from_tty
, struct cmd_list_element
*c
)
800 if (internal_tab_width
== 0)
802 internal_tab_width
= tui_tab_width
;
803 error (_("Tab width must not be 0"));
806 tui_tab_width
= internal_tab_width
;
810 /* Callback for "show tui tab-width". */
813 tui_show_tab_width (struct ui_file
*file
, int from_tty
,
814 struct cmd_list_element
*c
, const char *value
)
816 fprintf_filtered (gdb_stdout
, _("TUI tab width is %s spaces.\n"), value
);
822 bool compact_source
= false;
824 /* Callback for "set tui compact-source". */
827 tui_set_compact_source (const char *ignore
, int from_tty
,
828 struct cmd_list_element
*c
)
830 if (TUI_SRC_WIN
!= nullptr)
831 TUI_SRC_WIN
->refill ();
834 /* Callback for "show tui compact-source". */
837 tui_show_compact_source (struct ui_file
*file
, int from_tty
,
838 struct cmd_list_element
*c
, const char *value
)
840 printf_filtered (_("TUI source window compactness is %s.\n"), value
);
843 /* Set the tab width of the specified window. */
845 tui_set_tab_width_command (const char *arg
, int from_tty
)
847 /* Make sure the curses mode is enabled. */
855 warning (_("Tab widths greater than 0 must be specified."));
858 internal_tab_width
= ts
;
867 /* Set the height of the specified window. */
869 tui_set_win_height_command (const char *arg
, int from_tty
)
871 /* Make sure the curses mode is enabled. */
874 error_no_arg (_("name of window"));
876 const char *buf
= arg
;
877 const char *buf_ptr
= buf
;
879 struct tui_win_info
*win_info
;
881 buf_ptr
= skip_to_space (buf_ptr
);
883 /* Validate the window name. */
884 gdb::string_view
wname (buf
, buf_ptr
- buf
);
885 win_info
= tui_partial_win_by_name (wname
);
887 if (win_info
== NULL
)
888 error (_("Unrecognized window name \"%s\""), arg
);
889 if (!win_info
->is_visible ())
890 error (_("Window \"%s\" is not visible"), arg
);
892 /* Process the size. */
893 buf_ptr
= skip_spaces (buf_ptr
);
895 if (*buf_ptr
!= '\0')
898 bool fixed_size
= true;
901 if (*buf_ptr
== '+' || *buf_ptr
== '-')
908 input_no
= atoi (buf_ptr
);
914 new_height
= input_no
;
916 new_height
= win_info
->height
+ input_no
;
918 /* Now change the window's height, and adjust
919 all other windows around it. */
920 tui_adjust_window_height (win_info
, new_height
);
921 tui_update_gdb_sizes ();
924 error (_("Invalid window height specified"));
928 /* See tui-data.h. */
931 tui_win_info::max_height () const
933 return tui_term_height () - 2;
936 /* See tui-data.h. */
939 tui_gen_win_info::max_width () const
941 return tui_term_width () - 2;
945 parse_scrolling_args (const char *arg
,
946 struct tui_win_info
**win_to_scroll
,
951 *win_to_scroll
= tui_win_with_focus ();
953 /* First set up the default window to scroll, in case there is no
959 /* Process the number of lines to scroll. */
960 std::string copy
= arg
;
962 if (isdigit (*buf_ptr
))
967 buf_ptr
= strchr (buf_ptr
, ' ');
972 *num_to_scroll
= atoi (num_str
);
975 else if (num_to_scroll
)
976 *num_to_scroll
= atoi (num_str
);
979 /* Process the window name if one is specified. */
984 wname
= skip_spaces (buf_ptr
);
988 *win_to_scroll
= tui_partial_win_by_name (wname
);
990 if (*win_to_scroll
== NULL
)
991 error (_("Unrecognized window `%s'"), wname
);
992 if (!(*win_to_scroll
)->is_visible ())
993 error (_("Window is not visible"));
994 else if (*win_to_scroll
== TUI_CMD_WIN
)
995 *win_to_scroll
= *(tui_source_windows ().begin ());
1001 /* Function to initialize gdb commands, for tui window
1004 void _initialize_tui_win ();
1006 _initialize_tui_win ()
1008 static struct cmd_list_element
*tui_setlist
;
1009 static struct cmd_list_element
*tui_showlist
;
1010 struct cmd_list_element
*cmd
;
1012 /* Define the classes of commands.
1013 They will appear in the help list in the reverse of this order. */
1014 add_prefix_cmd ("tui", class_tui
, set_tui_cmd
,
1015 _("TUI configuration variables."),
1016 &tui_setlist
, "set tui ",
1017 0 /* allow-unknown */, &setlist
);
1018 add_prefix_cmd ("tui", class_tui
, show_tui_cmd
,
1019 _("TUI configuration variables."),
1020 &tui_showlist
, "show tui ",
1021 0 /* allow-unknown */, &showlist
);
1023 add_com ("refresh", class_tui
, tui_refresh_all_command
,
1024 _("Refresh the terminal display."));
1026 cmd
= add_com ("tabset", class_tui
, tui_set_tab_width_command
, _("\
1027 Set the width (in characters) of tab stops.\n\
1029 deprecate_cmd (cmd
, "set tui tab-width");
1031 cmd
= add_com ("winheight", class_tui
, tui_set_win_height_command
, _("\
1032 Set or modify the height of a specified window.\n\
1033 Usage: winheight WINDOW-NAME [+ | -] NUM-LINES\n\
1034 Use \"info win\" to see the names of the windows currently being displayed."));
1035 add_com_alias ("wh", "winheight", class_tui
, 0);
1036 set_cmd_completer (cmd
, winheight_completer
);
1037 add_info ("win", tui_all_windows_info
,
1038 _("List of all displayed windows."));
1039 cmd
= add_com ("focus", class_tui
, tui_set_focus_command
, _("\
1040 Set focus to named window or next/prev window.\n\
1041 Usage: focus [WINDOW-NAME | next | prev]\n\
1042 Use \"info win\" to see the names of the windows currently being displayed."));
1043 add_com_alias ("fs", "focus", class_tui
, 0);
1044 set_cmd_completer (cmd
, focus_completer
);
1045 add_com ("+", class_tui
, tui_scroll_forward_command
, _("\
1046 Scroll window forward.\n\
1047 Usage: + [N] [WIN]\n\
1048 Scroll window WIN N lines forwards. Both WIN and N are optional, N\n\
1049 defaults to 1, and WIN defaults to the currently focused window."));
1050 add_com ("-", class_tui
, tui_scroll_backward_command
, _("\
1051 Scroll window backward.\n\
1052 Usage: - [N] [WIN]\n\
1053 Scroll window WIN N lines backwards. Both WIN and N are optional, N\n\
1054 defaults to 1, and WIN defaults to the currently focused window."));
1055 add_com ("<", class_tui
, tui_scroll_left_command
, _("\
1056 Scroll window text to the left.\n\
1057 Usage: < [N] [WIN]\n\
1058 Scroll window WIN N characters left. Both WIN and N are optional, N\n\
1059 defaults to 1, and WIN defaults to the currently focused window."));
1060 add_com (">", class_tui
, tui_scroll_right_command
, _("\
1061 Scroll window text to the right.\n\
1062 Usage: > [N] [WIN]\n\
1063 Scroll window WIN N characters right. Both WIN and N are optional, N\n\
1064 defaults to 1, and WIN defaults to the currently focused window."));
1066 /* Define the tui control variables. */
1067 add_setshow_enum_cmd ("border-kind", no_class
, tui_border_kind_enums
,
1068 &tui_border_kind
, _("\
1069 Set the kind of border for TUI windows."), _("\
1070 Show the kind of border for TUI windows."), _("\
1071 This variable controls the border of TUI windows:\n\
1072 space use a white space\n\
1073 ascii use ascii characters + - | for the border\n\
1074 acs use the Alternate Character Set"),
1076 show_tui_border_kind
,
1077 &tui_setlist
, &tui_showlist
);
1079 add_setshow_enum_cmd ("border-mode", no_class
, tui_border_mode_enums
,
1080 &tui_border_mode
, _("\
1081 Set the attribute mode to use for the TUI window borders."), _("\
1082 Show the attribute mode to use for the TUI window borders."), _("\
1083 This variable controls the attributes to use for the window borders:\n\
1084 normal normal display\n\
1085 standout use highlight mode of terminal\n\
1086 reverse use reverse video mode\n\
1087 half use half bright\n\
1088 half-standout use half bright and standout mode\n\
1089 bold use extra bright or bold\n\
1090 bold-standout use extra bright or bold with standout mode"),
1092 show_tui_border_mode
,
1093 &tui_setlist
, &tui_showlist
);
1095 add_setshow_enum_cmd ("active-border-mode", no_class
, tui_border_mode_enums
,
1096 &tui_active_border_mode
, _("\
1097 Set the attribute mode to use for the active TUI window border."), _("\
1098 Show the attribute mode to use for the active TUI window border."), _("\
1099 This variable controls the attributes to use for the active window border:\n\
1100 normal normal display\n\
1101 standout use highlight mode of terminal\n\
1102 reverse use reverse video mode\n\
1103 half use half bright\n\
1104 half-standout use half bright and standout mode\n\
1105 bold use extra bright or bold\n\
1106 bold-standout use extra bright or bold with standout mode"),
1108 show_tui_active_border_mode
,
1109 &tui_setlist
, &tui_showlist
);
1111 add_setshow_zuinteger_cmd ("tab-width", no_class
,
1112 &internal_tab_width
, _("\
1113 Set the tab width, in characters, for the TUI."), _("\
1114 Show the tab witdh, in characters, for the TUI."), _("\
1115 This variable controls how many spaces are used to display a tab character."),
1116 tui_set_tab_width
, tui_show_tab_width
,
1117 &tui_setlist
, &tui_showlist
);
1119 add_setshow_boolean_cmd ("tui-resize-message", class_maintenance
,
1120 &resize_message
, _("\
1121 Set TUI resize messaging."), _("\
1122 Show TUI resize messaging."), _("\
1123 When enabled GDB will print a message when the terminal is resized."),
1125 show_tui_resize_message
,
1126 &maintenance_set_cmdlist
,
1127 &maintenance_show_cmdlist
);
1129 add_setshow_boolean_cmd ("compact-source", class_tui
,
1130 &compact_source
, _("\
1131 Set whether the TUI source window is compact."), _("\
1132 Show whether the TUI source window is compact."), _("\
1133 This variable controls whether the TUI source window is shown\n\
1134 in a compact form. The compact form puts the source closer to\n\
1135 the line numbers and uses less horizontal space."),
1136 tui_set_compact_source
, tui_show_compact_source
,
1137 &tui_setlist
, &tui_showlist
);
1139 tui_border_style
.changed
.attach (tui_rehighlight_all
);
1140 tui_active_border_style
.changed
.attach (tui_rehighlight_all
);