From: Fred Fish <fnf@specifix.com>
Date: Fri, 21 Jun 1996 18:09:27 +0000 (+0000)
Subject: 	* gdbtk.tcl (create_register_windows): Include missing '$'s.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ab5c0a12f97020fa8530b8c53cfd907e394f9478;p=binutils-gdb.git

	* 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 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  <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 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}