@@ -1943,6 +1943,8 @@ proc confirm_popup {msg {owner .}} {
19431943}
19441944
19451945proc setoptions {} {
1946+ global use_ttk
1947+
19461948 if {[tk windowingsystem] ne " win32" } {
19471949 option add *Panedwindow.showHandle 1 startupFile
19481950 option add *Panedwindow.sashRelief raised startupFile
@@ -1965,6 +1967,18 @@ proc setoptions {} {
19651967 option add *Listbox.font mainfont startupFile
19661968}
19671969
1970+ proc setttkstyle {} {
1971+ eval font configure TkDefaultFont [fontflags mainfont]
1972+ eval font configure TkTextFont [fontflags textfont]
1973+ eval font configure TkHeadingFont [fontflags mainfont]
1974+ eval font configure TkCaptionFont [fontflags mainfont] -weight bold
1975+ eval font configure TkTooltipFont [fontflags uifont]
1976+ eval font configure TkFixedFont [fontflags textfont]
1977+ eval font configure TkIconFont [fontflags uifont]
1978+ eval font configure TkMenuFont [fontflags uifont]
1979+ eval font configure TkSmallCaptionFont [fontflags uifont]
1980+ }
1981+
19681982# Make a menu and submenus.
19691983# m is the window name for the menu, items is the list of menu items to add.
19701984# Each item is a list {mc label type description options...}
@@ -2251,7 +2265,7 @@ proc makewindow {} {
22512265 set h [expr {[font metrics uifont -linespace] + 2}]
22522266 set progresscanv .tf.bar.progress
22532267 canvas $progresscanv -relief sunken -height $h -borderwidth 2
2254- set progressitem [$progresscanv create rect -1 0 0 $h -fill green ]
2268+ set progressitem [$progresscanv create rect -1 0 0 $h -fill lime ]
22552269 set fprogitem [$progresscanv create rect -1 0 0 $h -fill yellow]
22562270 set rprogitem [$progresscanv create rect -1 0 0 $h -fill red]
22572271 }
@@ -2347,6 +2361,9 @@ proc makewindow {} {
23472361 ${NS} ::frame .bleft.mid
23482362 ${NS} ::frame .bleft.bottom
23492363
2364+ # gap between sub-widgets
2365+ set wgap [font measure uifont " i" ]
2366+
23502367 ${NS} ::button .bleft.top.search -text [mc " Search" ] -command dosearch
23512368 pack .bleft.top.search -side left -padx 5
23522369 set sstring .bleft.top.sstring
@@ -2361,16 +2378,17 @@ proc makewindow {} {
23612378 -command changediffdisp -variable diffelide -value {0 1}
23622379 ${NS} ::radiobutton .bleft.mid.new -text [mc " New version" ] \
23632380 -command changediffdisp -variable diffelide -value {1 0}
2381+
23642382 ${NS} ::label .bleft.mid.labeldiffcontext -text " [ mc " Lines of context" ] : "
2365- pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
2383+ pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left -ipadx $wgap
23662384 spinbox .bleft.mid.diffcontext -width 5 \
23672385 -from 0 -increment 1 -to 10000000 \
23682386 -validate all -validatecommand " diffcontextvalidate %P" \
23692387 -textvariable diffcontextstring
23702388 .bleft.mid.diffcontext set $diffcontext
23712389 trace add variable diffcontextstring write diffcontextchange
23722390 lappend entries .bleft.mid.diffcontext
2373- pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left
2391+ pack .bleft.mid.labeldiffcontext .bleft.mid.diffcontext -side left -ipadx $wgap
23742392 ${NS} ::checkbutton .bleft.mid.ignspace -text [mc " Ignore space change" ] \
23752393 -command changeignorespace -variable ignorespace
23762394 pack .bleft.mid.ignspace -side left -padx 5
@@ -3379,7 +3397,7 @@ set rectmask {
33793397 0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
33803398 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
33813399}
3382- image create bitmap reficon-H -background black -foreground green \
3400+ image create bitmap reficon-H -background black -foreground lime \
33833401 -data $rectdata -maskdata $rectmask
33843402image create bitmap reficon-o -background black -foreground " #ddddff" \
33853403 -data $rectdata -maskdata $rectmask
@@ -12170,7 +12188,7 @@ if {[tk windowingsystem] eq "aqua"} {
1217012188 set extdifftool " meld"
1217112189}
1217212190
12173- set colors {green red blue magenta darkgrey brown orange}
12191+ set colors {lime red blue magenta darkgrey brown orange}
1217412192if {[tk windowingsystem] eq " win32" } {
1217512193 set uicolor SystemButtonFace
1217612194 set uifgcolor SystemButtonText
@@ -12188,12 +12206,12 @@ if {[tk windowingsystem] eq "win32"} {
1218812206}
1218912207set diffcolors {red " #00a000" blue}
1219012208set diffcontext 3
12191- set mergecolors {red blue green purple brown " #009090" magenta " #808000" " #009000" " #ff0080" cyan " #b07070" " #70b0f0" " #70f0b0" " #f0b070" " #ff70b0" }
12209+ set mergecolors {red blue lime purple brown " #009090" magenta " #808000" " #009000" " #ff0080" cyan " #b07070" " #70b0f0" " #70f0b0" " #f0b070" " #ff70b0" }
1219212210set ignorespace 0
1219312211set worddiff " "
1219412212set markbgcolor " #e0e0ff"
1219512213
12196- set headbgcolor green
12214+ set headbgcolor lime
1219712215set headfgcolor black
1219812216set headoutlinecolor black
1219912217set remotebgcolor #ffddaa
@@ -12208,7 +12226,7 @@ set linehoverfgcolor black
1220812226set linehoveroutlinecolor black
1220912227set mainheadcirclecolor yellow
1221012228set workingfilescirclecolor red
12211- set indexcirclecolor green
12229+ set indexcirclecolor lime
1221212230set circlecolors {white blue gray blue blue}
1221312231set linkfgcolor blue
1221412232set circleoutlinecolor $fgcolor
@@ -12356,6 +12374,10 @@ if {![info exists have_ttk]} {
1235612374set use_ttk [expr {$have_ttk && $want_ttk }]
1235712375set NS [expr {$use_ttk ? " ttk" : " " }]
1235812376
12377+ if {$use_ttk } {
12378+ setttkstyle
12379+ }
12380+
1235912381regexp {^git version ([\d.]*\d)} [ exec git version] _ git_version
1236012382
1236112383set show_notes {}
0 commit comments