* gdbtk.tcl (populate_register_window): Make initial window one

	line taller to account for new column header line.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6b1baa271dbd583e3581feb0b85e7441e0d0de96..9516c86724c7e23dc661f25f8b0bd77b77eeb23d 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -3,6 +3,8 @@ 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.
+       * gdbtk.tcl (populate_register_window): Make initial window one
+       line taller to account for new column header line.
 
 Fri Jun 21 09:46:47 1996  Fred Fish  <fnf@cygnus.com>
 

diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 04d5fa6955445d7a7a6d2388b75d16b4b792afdd..f517245cfa36344c8479cf0e52be08427db5c02e 100644 (file)
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -1977,7 +1977,7 @@ proc populate_reg_window {} {
 
     set width [expr $max_regname_width + 15]
 
-    set height [llength $regnames]
+    set height [expr [llength $regnames] + 1]
 
     if {$height > 60} {set height 60}