From: Fred Fish <fnf@specifix.com>
Date: Fri, 21 Jun 1996 18:20:12 +0000 (+0000)
Subject: 	* gdbtk.tcl (populate_register_window): Make initial window one
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4149b5f44a9e3b13b73aeb8da6432a5ddf4f3479;p=binutils-gdb.git

	* 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 6b1baa271db..9516c86724c 100644
--- 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 04d5fa69554..f517245cfa3 100644
--- 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}