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>
Paul Mackerras committed
Mar 23, 2009 at 21:37 UTC
9832e4f29b82e0072f40ef73279da3cd09e4a75c
1 file changed
+3
gitk
+3
@@ -2519,6 +2519,9 @@ proc savestuff {w} {
2519
if {![winfo viewable .]} return
2520
catch {
2521
set f [open "~/.gitk-new" w]
2522
+ if {$::tcl_platform(platform) eq {windows}} {
2523
+ file attributes "~/.gitk-new" -hidden true
2524
+ }
2525
puts $f [list set mainfont $mainfont]
2526
puts $f [list set textfont $textfont]
2527
puts $f [list set uifont $uifont]