diff options
| author | Fred Fish <fnf@specifix.com> | 1996-06-21 18:09:27 +0000 |
|---|---|---|
| committer | Fred Fish <fnf@specifix.com> | 1996-06-21 18:09:27 +0000 |
| commit | ab5c0a12f97020fa8530b8c53cfd907e394f9478 (patch) | |
| tree | f81555692554e3bcdb71fbccfba66b1839943a6b | |
| parent | 96926bf0f625e9fa5b9371052fa79c2e01cf9612 (diff) | |
| download | gdb-ab5c0a12f97020fa8530b8c53cfd907e394f9478.zip gdb-ab5c0a12f97020fa8530b8c53cfd907e394f9478.tar.gz gdb-ab5c0a12f97020fa8530b8c53cfd907e394f9478.tar.bz2 | |
* gdbtk.tcl (create_register_windows): Include missing '$'s.
Add global declarations for various reg_format_* variables.
| -rw-r--r-- | gdb/ChangeLog | 10 | ||||
| -rw-r--r-- | gdb/gdbtk.tcl | 21 |
2 files changed, 22 insertions, 9 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index ebd1fce..6b1baa2 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,12 +1,18 @@ start-sanitize-gdbtk -Fri Jun 21 09:46:47 1996 Fred Fish <fnf@fishfood.ninemoons.com> +Fri Jun 21 11:04:47 1996 Fred Fish <fnf@cygnus.com> + + * 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 <fnf@cygnus.com> * 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 8546352..04d5fa6 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} |