Re: [RFA] Memory Preferences Now Permanent

[Syd Polk <spolk@redhat.com>]

At 08:30 PM 11/3/00 -0500, Larry Smith wrote:

>This patch adds code to save and restore the preferences selected
>in displaying memory, and fixes a bug that prevented one from
>changing the color of the memory display window.
>
>2000-11-03  Larry Smith  <lsmith@redhat.com>
>         * mempref.itb (constructor): Added code to retrieve
>         memory display preferences.
>         * mempref.itb (build_win): Added code to retrieve
>         memory display preferences, corrected bug preventing
>         display of color background preference for memory display.
>         * mempref.itb (apply): Added code to save new preferences.
>         * memwin.itb (buildwin): added retrieval of memory display
>         preferences
>         * prefs.tcl (pref_save): added new memory section for memory
>         display preferences.
>         * prefs.tcl (pref_set_defaults): added defaults for new memory
>         section

Style nits.


>Index: mempref.itb
>===================================================================
>RCS file: /cvs/src/src/gdb/gdbtk/library/mempref.itb,v
>retrieving revision 1.1.1.1
>diff -u -r1.1.1.1 mempref.itb
>--- mempref.itb 2000/02/07 00:19:42     1.1.1.1
>+++ mempref.itb 2000/11/04 01:27:19
>@@ -10,8 +10,8 @@
>  # but WITHOUT ANY WARRANTY; without even the implied warranty of
>  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
>  # GNU General Public License for more details.
>+#
>
>-
>  # ------------------------------------------------------------------
>  #  METHOD:  constructor - build the dialog
>  # ------------------------------------------------------------------
>@@ -20,7 +20,15 @@
>    window_name "Memory Preferences"
>
>    eval itk_initialize $args
>-
>+
>+  set size [ pref get gdb/memory/size ]
>+  set format [ pref get gdb/memory/format ]
>+  set numbytes [ pref get gdb/memory/numbytes ]
>+  set bpr [ pref get gdb/memory/bytesperrow ]
>+  set ascii [ pref get gdb/memory/dispascii ]
>+  set ascii_char [ pref get gdb/memory/ctrlchar ]
>+  set color [pref get gdb/memory/color ]
>+

This is not using the same coding standard as the rest of the file. It 
should be:

     set size [pref get gdb/memory/size]

etc.

The Tcl code in Insight uses the Tcl coding standards.

>    if {$float_size == ""} {
>      set float_size [gdb_eval sizeof(float)]
>      set double_size [gdb_eval sizeof(double)]
>@@ -144,10 +152,12 @@
>    # MISC
>    Labelledframe $f.1 -anchor nw -text "Miscellaneous"
>    set fr [$f.1 get_frame]
>+
>    frame $fr.1
>    label $fr.1.plabel -height 1 -width 1 -bg $color -relief raised
>    set Widgets(b-color) [button $fr.1.pc -text "Change color..."  \
>                           -command [code $this pick $fr.1.plabel]]
>+
>    grid $fr.1.plabel $fr.1.pc
>    frame $fr.2
>    label $fr.2.l -text "Bytes Per Row "
>@@ -169,10 +179,13 @@
>    frame $fr.4
>    set Widgets(e-ascii_char) [entry $fr.4.e -textvariable [scope 
> gascii_char] -width 1]
>    label $fr.4.l -text "Control Char"
>-  grid $fr.4.e $fr.4.l -sticky we
>-  grid $fr.2 x $fr.3 -sticky w -padx 4
>-  grid $fr.4 -sticky w -padx 4
>-  grid columnconfigure $fr 1 -weight 1
>+  grid $fr.4.e -row 0 -column 0 -ipadx 10
>+  grid $fr.4.l -row 0 -column 1 -sticky e -ipadx 10
>+  grid $fr.2 -row 1 -column 0 -sticky e
>+  grid $fr.3 -row 1 -column 1 -sticky w -ipadx 8
>+  grid $fr.1 -row 2 -column 0 -sticky e -ipadx 10
>+  grid $fr.4 -row 2 -column 1 -sticky w -ipadx 10
>+  # grid columnconfigure $fr 1 -weight 1
>

Please don't leave commented out code sitting around.

>    grid $f.f1 -padx 5 -pady 6 -sticky news
>    grid $f.f2 -padx 5 -pady 6 -sticky news
>@@ -328,6 +341,16 @@
>      -color $color
>
>    $win reconfig
>+
>+  pref set gdb/memory/size $size
>+  pref set gdb/memory/format $format
>+  pref set gdb/memory/numbytes $numbytes
>+  pref set gdb/memory/bytesperrow $gbpr
>+  pref set gdb/memory/dispascii $gascii
>+  pref set gdb/memory/ctrlchar $gascii_char
>+  pref set gdb/memory/color $color
>+
>+  pref_save
>
>    gdbtk_idle
>    idle
>Index: memwin.itb
>===================================================================
>RCS file: /cvs/src/src/gdb/gdbtk/library/memwin.itb,v
>retrieving revision 1.1.1.1
>diff -u -r1.1.1.1 memwin.itb
>--- memwin.itb  2000/02/07 00:19:42     1.1.1.1
>+++ memwin.itb  2000/11/04 01:27:19
>@@ -51,6 +51,14 @@
>  body MemWin::build_win {} {
>    global tcl_platform gdb_ImageDir _mem ${this}_memval
>
>+  set size [ pref get gdb/memory/size ]
>+  set format [ pref get gdb/memory/format ]
>+  set numbytes [ pref get gdb/memory/numbytes ]
>+  set bpr [ pref get gdb/memory/bytesperrow ]
>+  set ascii [ pref get gdb/memory/dispascii ]
>+  set ascii_char [ pref get gdb/memory/ctrlchar ]
>+  set color [pref get gdb/memory/color ]
>+
>    set maxlen 0
>    set maxalen 0
>    set saved_value ""
>Index: prefs.tcl
>===================================================================
>RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v
>retrieving revision 1.3
>diff -u -r1.3 prefs.tcl
>--- prefs.tcl   2000/04/04 00:17:47     1.3
>+++ prefs.tcl   2000/11/04 01:27:20
>@@ -172,7 +172,7 @@
>
>      #now loop through all sections writing out values
>      lappend secs load console src reg stack locals watch bp search \
>-      process geometry help browser kod window
>+      process geometry help browser memory kod window
>
>      foreach section $secs {
>        puts $fd "\[$section\]"
>@@ -262,6 +262,7 @@
>    pref define gdb/console/prompt_fg       DarkGreen
>    pref define gdb/console/error_fg        red
>    pref define gdb/console/font            src-font
>+  pref define gdb/console/wrap            0
>
>    # Source window defaults
>    pref define gdb/src/PC_TAG              green
>@@ -326,6 +327,16 @@
>    pref define gdb/browser/top_height       0
>    pref define gdb/browser/view_height      -1
>    pref define gdb/browser/view_is_open    0
>+
>+  # Memory
>+  pref define gdb/memory/size             4; # Word
>+  pref define gdb/memory/format           x; # hex
>+  pref define gdb/memory/numbytesdepends  0; # on window size
>+  pref define gdb/memory/numbytes         0
>+  pref define gdb/memory/bytesperrow      16
>+  pref define gdb/memory/dispascii        1
>+  pref define gdb/memory/ctrlchar         .
>+  pref define gdb/memory/color            green
>
>    # BP (breakpoint)
>    pref define gdb/bp/show_threads         0

With the above fixes, I would approve this.


Syd Polk		spolk@redhat.com
Engineering Manager	+1 415 777 9810 x 241
Red Hat, Inc.