* gdbtk.tcl (create_registers_window): Work around a radiobutton

	widget bug to make Options|Natural button work.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f7ca8ab9b47f5dbe634e05c1f89bbda6beeb36c4..3dfc5541193fafc0d43d494d3eaf10bffa7b48a5 100644 (file)
--- 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 92f32b9ddf0e61259575ef4601f5bf9bd30f9f25..f44dc741fd5f2f0f56f5b59b8e3c5f7bb999f76d 100644 (file)
--- 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