From mboxrd@z Thu Jan  1 00:00:00 1970
From: Steven Johnson <sbjohnson@ozemail.com.au>
To: James Ingham <jingham@cygnus.com>
Cc: insight@sourceware.cygnus.com
Subject: Re: Register Window Height Patch
Date: Mon, 03 Apr 2000 16:10:00 -0000
Message-id: <38E8976C.A4B1A75E@ozemail.com.au>
References: <38E8879D.8A14110F@ozemail.com.au> <14569.7315.271935.303866@leda.cygnus.com>
X-SW-Source: 2000-q2/msg00008.html

Jim,
  I agree with you on the vertical height resizing. I did this as
something quick so that
  I can have a window higher than 16 which is too small when your CPU
has 165 registers.

  Thanks for the info, Following is a revised patch, that icorporates
your comments. 
  (Hopefully in a better format than the previous one)

Steven Johnson


diff -C2 -r ../gdb_cvs/src/gdb/gdbtk/library/prefs.tcl
src/gdb/gdbtk/library/prefs.tcl
*** ../gdb_cvs/src/gdb/gdbtk/library/prefs.tcl  Tue Mar 28 11:59:40 2000
--- src/gdb/gdbtk/library/prefs.tcl     Mon Apr  3 22:59:46 2000
***************
*** 311,314 ****
--- 311,315 ----
    # Register Window
    pref define gdb/reg/highlight_fg        blue
+   pref define gdb/reg/rows                16
  
    # Global Prefs Dialogs
diff -C2 -r ../gdb_cvs/src/gdb/gdbtk/library/regwin.itb
src/gdb/gdbtk/library/regwin.itb
*** ../gdb_cvs/src/gdb/gdbtk/library/regwin.itb Wed Mar 29 09:04:13 2000
--- src/gdb/gdbtk/library/regwin.itb    Mon Apr  3 22:59:47 2000
***************
*** 348,352 ****
  # ------------------------------------------------------------------
  body RegWin::dimensions {} {
!   set rows 16
    #    set rows [expr int(floor(sqrt($num_regs)))]
    set cols [expr {int(ceil(sqrt($num_regs)))}]
--- 348,352 ----
  # ------------------------------------------------------------------
  body RegWin::dimensions {} {
!   set rows [pref get gdb/reg/rows]
    #    set rows [expr int(floor(sqrt($num_regs)))]
    set cols [expr {int(ceil(sqrt($num_regs)))}]