##// END OF EJS Templates
hgk: change config file from .gitk to .hgk...
bdowning@lavos.net -
r5506:be20a42f default
parent child Browse files
Show More
@@ -649,7 +649,7 b' proc savestuff {w} {'
649 if {$stuffsaved} return
649 if {$stuffsaved} return
650 if {![winfo viewable .]} return
650 if {![winfo viewable .]} return
651 catch {
651 catch {
652 set f [open "~/.gitk-new" w]
652 set f [open "~/.hgk-new" w]
653 puts $f [list set mainfont $mainfont]
653 puts $f [list set mainfont $mainfont]
654 puts $f [list set curidfont $curidfont]
654 puts $f [list set curidfont $curidfont]
655 puts $f [list set textfont $textfont]
655 puts $f [list set textfont $textfont]
@@ -687,7 +687,7 b' proc savestuff {w} {'
687 puts $f "#"
687 puts $f "#"
688 puts $f "set authorcolors {$authorcolors}"
688 puts $f "set authorcolors {$authorcolors}"
689 close $f
689 close $f
690 file rename -force "~/.gitk-new" "~/.gitk"
690 file rename -force "~/.hgk-new" "~/.hgk"
691 }
691 }
692 set stuffsaved 1
692 set stuffsaved 1
693 }
693 }
@@ -3847,7 +3847,7 b' set authorcolors {'
3847 deeppink mediumorchid blue burlywood4 goldenrod slateblue red2 navy dimgrey
3847 deeppink mediumorchid blue burlywood4 goldenrod slateblue red2 navy dimgrey
3848 }
3848 }
3849
3849
3850 catch {source ~/.gitk}
3850 catch {source ~/.hgk}
3851
3851
3852 if {$curidfont == ""} { # initialize late based on current mainfont
3852 if {$curidfont == ""} { # initialize late based on current mainfont
3853 set curidfont "$mainfont bold italic underline"
3853 set curidfont "$mainfont bold italic underline"
General Comments 0
You need to be logged in to leave comments. Login now