gitk: Make .gitk a hidden file under windows

This sets the hidden attribute on the ~/.gitk file so it doesn't appear in the windows user profile. Signed-off-by: Paul Mackerras <paulus@samba.org>
git-mirror · Apr 17, 2009 · 9832e4f · 9832e4f
1 parent 010509f
commit 9832e4f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/gitk b/gitk
@@ -2519,6 +2519,9 @@ proc savestuff {w} {
     if {![winfo viewable .]} return
     catch {
 	set f [open "~/.gitk-new" w]
+	if {$::tcl_platform(platform) eq {windows}} {
+	    file attributes "~/.gitk-new" -hidden true
+	}
 	puts $f [list set mainfont $mainfont]
 	puts $f [list set textfont $textfont]
 	puts $f [list set uifont $uifont]