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 "~/.g |
|
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 "~/.g |
|
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 ~/.g |
|
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