From 8e5bc49fe50282f857474c48d9e1e75a7b9628ce Mon Sep 17 00:00:00 2001 From: Stu Grossman 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