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 /gdb/gdbtk.tcl | |
| 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.
Diffstat (limited to 'gdb/gdbtk.tcl')
| -rw-r--r-- | gdb/gdbtk.tcl | 21 |
1 files changed, 14 insertions, 7 deletions
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} |