diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/gdbtk.tcl | 34 |
2 files changed, 33 insertions, 7 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 6ced582..b35bc6d 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +Sat Aug 19 17:20:22 1995 Michael Tiemann <tiemann@axon.cygnus.com> + + * gdbtk.tcl: ENABLE comes back as "1" or "0", not "enable" or + "disable". + Also, wire up the breakpoint window so that it can be demo'd. + Sat Aug 19 01:19:34 1995 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * gdbtypes.c (recursive_dump_type): Add dont_print_type_obstack diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl index f06c589..f35dbf5 100644 --- a/gdb/gdbtk.tcl +++ b/gdb/gdbtk.tcl @@ -157,7 +157,7 @@ proc gdbtk_tcl_breakpoint {action bpnum} { set enable [lindex $bpinfo 4] if {$action == "modify"} { - if {$enable == "enabled"} { + if {$enable == "1"} { set action enable } else { set action disable @@ -208,6 +208,8 @@ proc create_breakpoints_window {} { proc add_breakpoint_frame bpnum { global bpframe_lasty + global enabled + global disposition if ![winfo exists .breakpoints] return @@ -217,8 +219,8 @@ proc add_breakpoint_frame bpnum { set line [lindex $bpinfo 1] set pc [lindex $bpinfo 2] set type [lindex $bpinfo 3] - set enabled [lindex $bpinfo 4] - set disposition [lindex $bpinfo 5] + set enabled($bpnum) [lindex $bpinfo 4] + set disposition($bpnum) [lindex $bpinfo 5] set silent [lindex $bpinfo 6] set ignore_count [lindex $bpinfo 7] set commands [lindex $bpinfo 8] @@ -239,7 +241,8 @@ proc add_breakpoint_frame bpnum { label $f.hit_count.val -text $hit_count -relief flat \ -bd 2 -anchor w checkbutton $f.hit_count.enabled -text Enabled \ - -variable enabled -anchor w -relief flat + -variable enabled($bpnum) -anchor w -relief flat + pack $f.hit_count.label $f.hit_count.val -side left pack $f.hit_count.enabled -side right @@ -273,13 +276,16 @@ proc add_breakpoint_frame bpnum { -anchor w -width 11 radiobutton $f.disps.delete -text Delete \ - -variable disposition -anchor w -relief flat + -variable disposition($bpnum) -anchor w -relief flat \ + -command "gdb_cmd \"delete break $bpnum\"" radiobutton $f.disps.disable -text Disable \ - -variable disposition -anchor w -relief flat + -variable disposition($bpnum) -anchor w -relief flat \ + -command "gdb_cmd \"disable break $bpnum\"" radiobutton $f.disps.donttouch -text "Leave alone" \ - -variable disposition -anchor w -relief flat + -variable disposition($bpnum) -anchor w -relief flat \ + -command "gdb_cmd \"enable break $bpnum\"" pack $f.disps.label $f.disps.delete $f.disps.disable \ $f.disps.donttouch -side left -anchor w @@ -469,6 +475,7 @@ proc delete_breakpoint {bpnum file line pc} { proc enable_breakpoint {bpnum file line pc} { global wins global cfunc pclist + global enabled if [info exists wins($file)] { $wins($file) tag configure $line -fgstipple {} @@ -480,6 +487,12 @@ proc enable_breakpoint {bpnum file line pc} { if [winfo exists $win] { $win tag configure [pc_to_line $pclist($cfunc) $pc] -fgstipple {} } + +# If there's a breakpoint window, update that too + + if [winfo exists .breakpoints] { + set enabled($bpnum) 1 + } } # @@ -497,6 +510,7 @@ proc enable_breakpoint {bpnum file line pc} { proc disable_breakpoint {bpnum file line pc} { global wins global cfunc pclist + global enabled if [info exists wins($file)] { $wins($file) tag configure $line -fgstipple gray50 @@ -508,6 +522,12 @@ proc disable_breakpoint {bpnum file line pc} { if [winfo exists $win] { $win tag configure [pc_to_line $pclist($cfunc) $pc] -fgstipple gray50 } + +# If there's a breakpoint window, update that too + + if [winfo exists .breakpoints] { + set enabled($bpnum) 0 + } } # |