From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <insight-return-3805-listarch-insight=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 16354 invoked by alias); 8 Nov 2002 20:58:37 -0000
Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:insight-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/insight/>
List-Post: <mailto:insight@sources.redhat.com>
List-Help: <mailto:insight-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: insight-owner@sources.redhat.com
Received: (qmail 16346 invoked from network); 8 Nov 2002 20:58:35 -0000
Received: from unknown (HELO mx1.redhat.com) (66.187.233.31)
  by sources.redhat.com with SMTP; 8 Nov 2002 20:58:35 -0000
Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254])
	by mx1.redhat.com (8.11.6/8.11.6) with ESMTP id gA8KZkw24067
	for <insight@sources.redhat.com>; Fri, 8 Nov 2002 15:35:46 -0500
Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156])
	by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gA8KwZf21309
	for <insight@sources.redhat.com>; Fri, 8 Nov 2002 15:58:35 -0500
Received: from DRAGON (romulus-int.sfbay.redhat.com [172.16.27.46])
	by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gA8KwYs02576
	for <insight@sources.redhat.com>; Fri, 8 Nov 2002 15:58:34 -0500
Subject: [patch] prefs.tcl
From: "Martin M. Hunt" <hunt@redhat.com>
To: "insight@sources.redhat.com" <insight@sources.redhat.com>
Content-Type: multipart/mixed; boundary="=-M+4e4ns9k0dqy9x87M22"
Date: Fri, 08 Nov 2002 12:58:00 -0000
Message-Id: <1036789187.1113.102.camel@localhost.localdomain>
Mime-Version: 1.0
X-SW-Source: 2002-q4/txt/msg00089.txt.bz2


--=-M+4e4ns9k0dqy9x87M22
Content-Type: text/plain
Content-Transfer-Encoding: 7bit
Content-length: 263

Fix some accidental breakage from previous change and check that values
are not null when writing.

2002-11-08  Martin M. Hunt  <hunt@redhat.com>

	* library/prefs.tcl (pref_save): Fix GDBtkInitVersion.
	(pref_save): Check that value is not null before writing.


--=-M+4e4ns9k0dqy9x87M22
Content-Disposition: attachment; filename=p
Content-Transfer-Encoding: quoted-printable
Content-Type: text/x-patch; name=p; charset=UTF-8
Content-length: 1387

Index: prefs.tcl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvs/src/src/gdb/gdbtk/library/prefs.tcl,v
retrieving revision 1.19
diff -p -r1.19 prefs.tcl
*** prefs.tcl	6 Nov 2002 20:45:54 -0000	1.19
--- prefs.tcl	8 Nov 2002 20:54:43 -0000
*************** proc pref_save {{win {}}} {
*** 160,166 ****
      }
=20=20=20=20=20=20
      puts $fd "\# GDBtk Init file"
!     puts $fd "{# GDBtkInitVersion: 1}"
=20=20
      set plist [pref list]
      # write out global options
--- 160,166 ----
      }
=20=20=20=20=20=20
      puts $fd "\# GDBtk Init file"
!     puts $fd {# GDBtkInitVersion: 1}
=20=20
      set plist [pref list]
      # write out global options
*************** proc pref_save {{win {}}} {
*** 188,195 ****
        if {[lindex $t 0] =3D=3D "gdb"
  	  && [string compare [join [lreplace $t 0 1] /] ""] =3D=3D 0} {
  	set x [lindex $t 1]
! 	if {$x !=3D ""} {
! 	  set v [escape_value [pref get $var]]
  	  puts $fd "\t$x=3D$v"
  	}
        }
--- 188,195 ----
        if {[lindex $t 0] =3D=3D "gdb"
  	  && [string compare [join [lreplace $t 0 1] /] ""] =3D=3D 0} {
  	set x [lindex $t 1]
! 	set v [escape_value [pref get $var]]
! 	if {$x !=3D "" && $v !=3D ""} {
  	  puts $fd "\t$x=3D$v"
  	}
        }

--=-M+4e4ns9k0dqy9x87M22--