From ab5c0a12f97020fa8530b8c53cfd907e394f9478 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Fri, 21 Jun 1996 18:09:27 +0000 Subject: [PATCH] * gdbtk.tcl (create_register_windows): Include missing '$'s. Add global declarations for various reg_format_* variables. --- gdb/ChangeLog | 10 ++++++++-- gdb/gdbtk.tcl | 21 ++++++++++++++------- 2 files changed, 22 insertions(+), 9 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index ebd1fce73b9..6b1baa271db 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,12 +1,18 @@ start-sanitize-gdbtk -Fri Jun 21 09:46:47 1996 Fred Fish +Fri Jun 21 11:04:47 1996 Fred Fish + + * gdbtk.tcl (create_register_windows): Include missing '$'s. + Add global declarations for various reg_format_* variables. + +Fri Jun 21 09:46:47 1996 Fred Fish * gdbtk.c (get_register): Support for printing raw formats. * gdbtk.tcl: Add hint for using debug_interface. (center_window, add_breakpoint_frame, delete_breakpoint_frame): Enclose arg in braces for consistency. (create_registers_window, populate_reg_window, update_registers): - Major rewrite to support displaying multiple formats in the register window. + Major rewrite to support displaying multiple formats in the register + window. (init_reg_info): New function. (recompute_reg_display_list): Reset reg_display_list, start register display lines at line 2. diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index 8546352f8a0..04d5fa69554 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -1766,6 +1766,13 @@ proc reg_config_menu {} { # proc create_registers_window {} { + global reg_format_natural + global reg_format_decimal + global reg_format_hex + global reg_format_octal + global reg_format_raw + global reg_format_binary + global reg_format_unsigned # If we already have a register window, just use that one. @@ -1782,37 +1789,37 @@ proc create_registers_window {} { .reg.menubar.view.menu delete 0 last # Natural menu item - .reg.menubar.view.menu add checkbutton -label reg_format_natural(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_natural(label) \ -variable reg_format_natural(enable) -onvalue on -offvalue off \ -command {update_registers redraw} # Decimal menu item - .reg.menubar.view.menu add checkbutton -label reg_format_decimal(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_decimal(label) \ -variable reg_format_decimal(enable) -onvalue on -offvalue off \ -command {update_registers redraw} # Hex menu item - .reg.menubar.view.menu add checkbutton -label reg_format_hex(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_hex(label) \ -variable reg_format_hex(enable) -onvalue on -offvalue off \ -command {update_registers redraw} # Octal menu item - .reg.menubar.view.menu add checkbutton -label reg_format_octal(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_octal(label) \ -variable reg_format_octal(enable) -onvalue on -offvalue off \ -command {update_registers redraw} # Binary menu item - .reg.menubar.view.menu add checkbutton -label reg_format_binary(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_binary(label) \ -variable reg_format_binary(enable) -onvalue on -offvalue off \ -command {update_registers redraw} # Unsigned menu item - .reg.menubar.view.menu add checkbutton -label reg_format_unsigned(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_unsigned(label) \ -variable reg_format_unsigned(enable) -onvalue on -offvalue off \ -command {update_registers redraw} # Raw menu item - .reg.menubar.view.menu add checkbutton -label reg_format_raw(label) \ + .reg.menubar.view.menu add checkbutton -label $reg_format_raw(label) \ -variable reg_format_raw(enable) -onvalue on -offvalue off \ -command {update_registers redraw} -- 2.30.2