[PATCH 05 of 11] hgk: store settings in ~/.hgkrc

[Markus F.X.J. Oberhumer]

# HG changeset patch
# User Markus F.X.J. Oberhumer <markus at oberhumer.com>
# Date 1182775580 -7200
# Node ID b8ae71e5e6bb46709df839d7e5f73d03902cea18
# Parent  5812aebfd29e3774778ff5e3e2d6480d7b73350d
hgk: store settings in ~/.hgkrc.

hgk and the latest gitk have diverged so much that we really need
to store our settings in a different file.

diff --git a/contrib/hgk b/contrib/hgk
--- a/contrib/hgk
+++ b/contrib/hgk
@@ -554,7 +554,7 @@ proc savestuff {w} {
     if {$stuffsaved} return
     if {![winfo viewable .]} return
     catch {
-	set f [open "~/.gitk-new" w]
+	set f [open "~/.hgkrc-new" w]
 	puts $f [list set mainfont $mainfont]
 	puts $f [list set textfont $textfont]
 	puts $f [list set findmergefiles $findmergefiles]
@@ -574,7 +574,7 @@ proc savestuff {w} {
 			   / [font measure [$cflist cget -font] "0"]}]
 	puts $f "set geometry(cflistw) $wid"
 	close $f
-	file rename -force "~/.gitk-new" "~/.gitk"
+	file rename -force "~/.hgkrc-new" "~/.hgkrc"
     }
     set stuffsaved 1
 }
@@ -3651,7 +3651,7 @@ set maxwidth 16
 
 set colors {green red blue magenta darkgrey brown orange}
 
-catch {source ~/.gitk}
+catch {source ~/.hgkrc}
 
 set namefont $mainfont
 if {$boldnames} {