From 8e5bc49fe50282f857474c48d9e1e75a7b9628ce Mon Sep 17 00:00:00 2001
From: Stu Grossman <grossman@cygnus>
Date: Wed, 25 Jan 1995 00:36:33 +0000
Subject: [PATCH] 	* gdbtk.tcl (create_registers_window):  Work around a
 radiobutton 	widget bug to make Options|Natural button work.

---
 gdb/ChangeLog |  3 +++
 gdb/gdbtk.tcl | 16 ++++++++--------
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f7ca8ab9b47..3dfc5541193 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,8 @@
 Tue Jan 24 12:10:28 1995  Stu Grossman  (grossman@cygnus.com)
 
+	* gdbtk.tcl (create_registers_window):  Work around a radiobutton
+	widget bug to make Options|Natural button work.
+
 	* gdbtk.c (gdb_disassemble):  Fix problem with source+assembly and
 	g++ caused by out-of-order pc's.
 	* gdbtk.tcl (files_command):  Remove duplicate file names.  Also,
diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 92f32b9ddf0..f44dc741fd5 100644
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1411,20 +1411,20 @@ proc create_registers_window {} {
 	.reg.menubar.view.menu delete 0 last
 
 # Hex menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Hex -value x -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Hex \
+		-command {set reg_format x ; update_registers all}
 
 # Decimal menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Decimal -value d -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Decimal \
+		-command {set reg_format d ; update_registers all}
 
 # Octal menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Octal -value o -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Octal \
+		-command {set reg_format o ; update_registers all}
 
 # Natural menu item
-	.reg.menubar.view.menu add radiobutton -variable reg_format \
-		-label Natural -value {} -command {update_registers all}
+	.reg.menubar.view.menu add radiobutton -label Natural \
+		-command {set reg_format {} ; update_registers all}
 
 # Config menu item
 	.reg.menubar.view.menu add separator
-- 
2.30.2