##// END OF EJS Templates
hgk: Add background colour setting...
Robert Bauck Hamar -
r7738:db366ec8 default
parent child Browse files
Show More
@@ -439,7 +439,7 b' proc makewindow {} {'
439 global entries sha1entry sha1string sha1but
439 global entries sha1entry sha1string sha1but
440 global maincursor textcursor curtextcursor
440 global maincursor textcursor curtextcursor
441 global rowctxmenu gaudydiff mergemax
441 global rowctxmenu gaudydiff mergemax
442 global hgvdiff
442 global hgvdiff bgcolor
443
443
444 menu .bar
444 menu .bar
445 .bar add cascade -label "File" -menu .bar.file
445 .bar add cascade -label "File" -menu .bar.file
@@ -478,16 +478,16 b' proc makewindow {} {'
478 .ctop add .ctop.top
478 .ctop add .ctop.top
479 set canv .ctop.top.clist.canv
479 set canv .ctop.top.clist.canv
480 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
480 canvas $canv -height $geometry(canvh) -width $geometry(canv1) \
481 -bg white -bd 0 \
481 -bg $bgcolor -bd 0 \
482 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey
482 -yscrollincr $linespc -yscrollcommand "$cscroll set" -selectbackground grey
483 .ctop.top.clist add $canv
483 .ctop.top.clist add $canv
484 set canv2 .ctop.top.clist.canv2
484 set canv2 .ctop.top.clist.canv2
485 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \
485 canvas $canv2 -height $geometry(canvh) -width $geometry(canv2) \
486 -bg white -bd 0 -yscrollincr $linespc -selectbackground grey
486 -bg $bgcolor -bd 0 -yscrollincr $linespc -selectbackground grey
487 .ctop.top.clist add $canv2
487 .ctop.top.clist add $canv2
488 set canv3 .ctop.top.clist.canv3
488 set canv3 .ctop.top.clist.canv3
489 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \
489 canvas $canv3 -height $geometry(canvh) -width $geometry(canv3) \
490 -bg white -bd 0 -yscrollincr $linespc -selectbackground grey
490 -bg $bgcolor -bd 0 -yscrollincr $linespc -selectbackground grey
491 .ctop.top.clist add $canv3
491 .ctop.top.clist add $canv3
492 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}
492 bind .ctop.top.clist <Configure> {resizeclistpanes %W %w}
493
493
@@ -547,7 +547,7 b' proc makewindow {} {'
547 .ctop add .ctop.cdet
547 .ctop add .ctop.cdet
548 frame .ctop.cdet.left
548 frame .ctop.cdet.left
549 set ctext .ctop.cdet.left.ctext
549 set ctext .ctop.cdet.left.ctext
550 text $ctext -bg white -state disabled -font $textfont \
550 text $ctext -bg $bgcolor -state disabled -font $textfont \
551 -width $geometry(ctextw) -height $geometry(ctexth) \
551 -width $geometry(ctextw) -height $geometry(ctexth) \
552 -yscrollcommand ".ctop.cdet.left.sb set" \
552 -yscrollcommand ".ctop.cdet.left.sb set" \
553 -xscrollcommand ".ctop.cdet.left.hb set" -wrap none
553 -xscrollcommand ".ctop.cdet.left.hb set" -wrap none
@@ -581,7 +581,7 b' proc makewindow {} {'
581
581
582 frame .ctop.cdet.right
582 frame .ctop.cdet.right
583 set cflist .ctop.cdet.right.cfiles
583 set cflist .ctop.cdet.right.cfiles
584 listbox $cflist -bg white -selectmode extended -width $geometry(cflistw) \
584 listbox $cflist -bg $bgcolor -selectmode extended -width $geometry(cflistw) \
585 -yscrollcommand ".ctop.cdet.right.sb set"
585 -yscrollcommand ".ctop.cdet.right.sb set"
586 scrollbar .ctop.cdet.right.sb -command "$cflist yview"
586 scrollbar .ctop.cdet.right.sb -command "$cflist yview"
587 pack .ctop.cdet.right.sb -side right -fill y
587 pack .ctop.cdet.right.sb -side right -fill y
@@ -679,7 +679,7 b' proc click {w} {'
679 proc savestuff {w} {
679 proc savestuff {w} {
680 global canv canv2 canv3 ctext cflist mainfont textfont
680 global canv canv2 canv3 ctext cflist mainfont textfont
681 global stuffsaved findmergefiles gaudydiff maxgraphpct
681 global stuffsaved findmergefiles gaudydiff maxgraphpct
682 global maxwidth authorcolors curidfont
682 global maxwidth authorcolors curidfont bgcolor
683
683
684 if {$stuffsaved} return
684 if {$stuffsaved} return
685 if {![winfo viewable .]} return
685 if {![winfo viewable .]} return
@@ -721,6 +721,7 b' proc savestuff {w} {'
721 puts $f "# the last entry will be reused."
721 puts $f "# the last entry will be reused."
722 puts $f "#"
722 puts $f "#"
723 puts $f "set authorcolors {$authorcolors}"
723 puts $f "set authorcolors {$authorcolors}"
724 puts $f "set bgcolor $bgcolor"
724 close $f
725 close $f
725 file rename -force "~/.hgk-new" "~/.hgk"
726 file rename -force "~/.hgk-new" "~/.hgk"
726 }
727 }
@@ -3891,6 +3892,7 b' set colors {green red blue magenta darkg'
3891 set authorcolors {
3892 set authorcolors {
3892 black blue deeppink mediumorchid blue burlywood4 goldenrod slateblue red2 navy dimgrey
3893 black blue deeppink mediumorchid blue burlywood4 goldenrod slateblue red2 navy dimgrey
3893 }
3894 }
3895 set bgcolor white
3894
3896
3895 catch {source ~/.hgk}
3897 catch {source ~/.hgk}
3896
3898
General Comments 0
You need to be logged in to leave comments. Login now