gitk: Tcl9.0 requires "tildeexpand" for tilde substitution

See also:
https://www.tcl-lang.org/man/tcl9.0/TclCmd/filename.html

Signed-off-by: YOKOTA Hiroshi <[email protected]>

Author: qykth-git

gitk

@@ -12434,6 +12434,17 @@ proc get_path_encoding {path} {
     return $tcl_enc
 }
 
+# Tk9: Expand "~" and "~user_name" to canonical path name
+# Tk8: Just pass original path name to use built-in tilde expander
+proc tilde_expand {path} {
+    global have_tk90
+    if {$have_tk90} {
+	return [file tildeexpand $path]
+    } else {
+	return $path
+    }
+}
+
 ## For msgcat loading, first locate the installation location.
 if { [info exists ::env(GITK_MSGSDIR)] } {
     ## Msgsdir was manually set in the environment.
@@ -12458,6 +12469,9 @@ if {[catch {package require Tk 8.4-} err]} {
                          Gitk requires at least Tcl/Tk 8.4."]
     exit 1
 }
+set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
+set have_tk86 [expr {[package vcompare $tk_version "8.6"] >= 0}]
+set have_tk90 [expr {[package vcompare $tk_version "9.0"] >= 0}]
 
 # on OSX bring the current Wish process window to front
 if {[tk windowingsystem] eq "aqua"} {
@@ -12623,14 +12637,14 @@ catch {
         set config_file_tmp [file join $env(XDG_CONFIG_HOME) git gitk-tmp]
     } else {
         # default XDG_CONFIG_HOME
-        set config_file "~/.config/git/gitk"
-        set config_file_tmp "~/.config/git/gitk-tmp"
+        set config_file     [tilde_expand "~/.config/git/gitk"]
+        set config_file_tmp [tilde_expand "~/.config/git/gitk-tmp"]
     }
     if {![file exists $config_file]} {
         # for backward compatibility use the old config file if it exists
-        if {[file exists "~/.gitk"]} {
-            set config_file "~/.gitk"
-            set config_file_tmp "~/.gitk-tmp"
+        if {[file exists [tilde_expand "~/.gitk"]]} {
+            set config_file     [tilde_expand "~/.gitk"]
+            set config_file_tmp [tilde_expand "~/.gitk-tmp"]
         } elseif {![file exists [file dirname $config_file]]} {
             file mkdir [file dirname $config_file]
         }
@@ -12743,8 +12757,6 @@ set nullid "0000000000000000000000000000000000000000"
 set nullid2 "0000000000000000000000000000000000000001"
 set nullfile "/dev/null"
 
-set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
-set have_tk86 [expr {[package vcompare $tk_version "8.6"] >= 0}]
 if {![info exists have_ttk]} {
     set have_ttk [llength [info commands ::ttk::style]]
 }