* gdbtk.tcl (create_register_windows): Include missing '$'s.

	Add global declarations for various reg_format_* variables.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ebd1fce73b96af3614ddd2bddd34642a647bec09..6b1baa271dbd583e3581feb0b85e7441e0d0de96 100644 (file)
--- 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 8546352f8a08c711f12ce9289872b8867cfe8714..04d5fa6955445d7a7a6d2388b75d16b4b792afdd 100644 (file)
--- 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}