2002-03-07 Martin M. Hunt <hunt@redhat.com>

	* library/srctextwin.itb (SrcTextWin::showBPBalloon): Put
	linefeeds between multiple breakpoints.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index b13a8f1..cb88c15 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-07  Martin M. Hunt  <hunt@redhat.com>
+
+       * library/srctextwin.itb (SrcTextWin::showBPBalloon): Put 
+       linefeeds between multiple breakpoints.
+
 2002-03-06  Martin M. Hunt  <hunt@redhat.com>
 
        * library/srctextwin.itb (SrcTextWin::showBPBalloon):

diff --git a/gdb/gdbtk/library/srctextwin.itb b/gdb/gdbtk/library/srctextwin.itb
index 7588955..b5dbaad 100644 (file)
--- a/gdb/gdbtk/library/srctextwin.itb
+++ b/gdb/gdbtk/library/srctextwin.itb
@@ -2310,6 +2310,7 @@ body SrcTextWin::showBPBalloon {win x y} {
   }
 
   set str ""
+  set need_lf 0
   foreach b $bps {
     set bpinfo [gdb_get_breakpoint_info $b]
     lassign $bpinfo file func linenum addr type enabled disposition \
@@ -2321,6 +2322,8 @@ body SrcTextWin::showBPBalloon {win x y} {
       set enabled "DIS"
     }
 
+    if {$need_lf} {append str \n}
+
     append str [format "breakpoint %d at %s:%d (%#x)\n   %s %s %s" \
                  $b $file $linenum $addr $enabled $type $disposition]
 
@@ -2343,6 +2346,7 @@ body SrcTextWin::showBPBalloon {win x y} {
        append str "\n   commands: $commands"
       }
     }
+    set need_lf 1
   }
 
   # Scope out which break type is set here, and use the tag to get