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