--- src/bin/pgaccess/lib/preferences.tcl	Fri Mar 31 15:22:31 2000
+++ src/bin/pgaccess/lib/preferences.tcl	Sun Apr 22 03:09:24 2001
@@ -15,7 +15,7 @@
 	set PgAcVar(pref,username) {}
 	set PgAcVar(pref,password) {}
 	set PgAcVar(pref,language) english
-	set retval [catch {set fid [open "~/.pgaccessrc" r]} errmsg]
+	set retval [catch {set fid [open "~/.desk/pgaccessrc" r]} errmsg]
 	if {! $retval} {
 		while {![eof $fid]} {
 			set pair [gets $fid]
@@ -24,7 +24,7 @@
 		close $fid
 		setGUIPreferences
 	}
-	# The following preferences values will be ignored from the .pgaccessrc file
+	# The following preferences values will be ignored from the .desk/pgaccessrc file
 	set PgAcVar(pref,typecolors) {black red brown #007e00 #004e00 blue orange yellow pink purple cyan  magenta lightblue lightgreen gray lightyellow}
 	set PgAcVar(pref,typelist) {text bool bytea float8 float4 int4 char name int8 int2 int28 regproc oid tid xid cid}
 	loadInternationalMessages
@@ -34,7 +34,7 @@
 proc {save} {} {
 global PgAcVar
 	catch {
-		set fid [open "~/.pgaccessrc" w]
+		set fid [open "~/.desk/pgaccessrc" w]
 		foreach key [array names PgAcVar pref,*] { puts $fid "$key {$PgAcVar($key)}" }
 		close $fid
 	}