* gdbtk.tcl (create_registers_window): Work around a radiobutton
widget bug to make Options|Natural button work.
This commit is contained in:
parent
f2224fe249
commit
8e5bc49fe5
|
@ -1,5 +1,8 @@
|
||||||
Tue Jan 24 12:10:28 1995 Stu Grossman (grossman@cygnus.com)
|
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
|
* gdbtk.c (gdb_disassemble): Fix problem with source+assembly and
|
||||||
g++ caused by out-of-order pc's.
|
g++ caused by out-of-order pc's.
|
||||||
* gdbtk.tcl (files_command): Remove duplicate file names. Also,
|
* gdbtk.tcl (files_command): Remove duplicate file names. Also,
|
||||||
|
|
|
@ -1411,20 +1411,20 @@ proc create_registers_window {} {
|
||||||
.reg.menubar.view.menu delete 0 last
|
.reg.menubar.view.menu delete 0 last
|
||||||
|
|
||||||
# Hex menu item
|
# Hex menu item
|
||||||
.reg.menubar.view.menu add radiobutton -variable reg_format \
|
.reg.menubar.view.menu add radiobutton -label Hex \
|
||||||
-label Hex -value x -command {update_registers all}
|
-command {set reg_format x ; update_registers all}
|
||||||
|
|
||||||
# Decimal menu item
|
# Decimal menu item
|
||||||
.reg.menubar.view.menu add radiobutton -variable reg_format \
|
.reg.menubar.view.menu add radiobutton -label Decimal \
|
||||||
-label Decimal -value d -command {update_registers all}
|
-command {set reg_format d ; update_registers all}
|
||||||
|
|
||||||
# Octal menu item
|
# Octal menu item
|
||||||
.reg.menubar.view.menu add radiobutton -variable reg_format \
|
.reg.menubar.view.menu add radiobutton -label Octal \
|
||||||
-label Octal -value o -command {update_registers all}
|
-command {set reg_format o ; update_registers all}
|
||||||
|
|
||||||
# Natural menu item
|
# Natural menu item
|
||||||
.reg.menubar.view.menu add radiobutton -variable reg_format \
|
.reg.menubar.view.menu add radiobutton -label Natural \
|
||||||
-label Natural -value {} -command {update_registers all}
|
-command {set reg_format {} ; update_registers all}
|
||||||
|
|
||||||
# Config menu item
|
# Config menu item
|
||||||
.reg.menubar.view.menu add separator
|
.reg.menubar.view.menu add separator
|
||||||
|
|
Loading…
Reference in New Issue