From 9832e4f29b82e0072f40ef73279da3cd09e4a75c Mon Sep 17 00:00:00 2001
From: Paul Mackerras <paulus@samba.org>
Date: Mon, 23 Mar 2009 21:37:51 +1100
Subject: [PATCH] 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>
---
gitk | 3 +++
1 file changed, 3 insertions(+)
diff --git a/gitk b/gitk
index bdd1223..0bc2f30 100755
--- 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]
--
2.23.0