* gdbtk.tcl (create_register_windows): Include missing '$'s.
Add global declarations for various reg_format_* variables.
This commit is contained in:
parent
96926bf0f6
commit
ab5c0a12f9
|
@ -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.
|
||||
|
|
|
@ -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}
|
||||
|
||||
|
|
Loading…
Reference in New Issue