@@ -1943,6 +1943,8 @@ proc confirm_popup {msg {owner .}} {
1943
1943
}
1944
1944
1945
1945
proc setoptions {} {
1946
+ global use_ttk
1947
+
1946
1948
if {[tk windowingsystem] ne " win32" } {
1947
1949
option add *Panedwindow.showHandle 1 startupFile
1948
1950
option add *Panedwindow.sashRelief raised startupFile
@@ -1965,6 +1967,18 @@ proc setoptions {} {
1965
1967
option add *Listbox.font mainfont startupFile
1966
1968
}
1967
1969
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
+
1968
1982
# Make a menu and submenus.
1969
1983
# m is the window name for the menu, items is the list of menu items to add.
1970
1984
# Each item is a list {mc label type description options...}
@@ -2251,7 +2265,7 @@ proc makewindow {} {
2251
2265
set h [expr {[font metrics uifont -linespace] + 2}]
2252
2266
set progresscanv .tf.bar.progress
2253
2267
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 ]
2255
2269
set fprogitem [$progresscanv create rect -1 0 0 $h -fill yellow]
2256
2270
set rprogitem [$progresscanv create rect -1 0 0 $h -fill red]
2257
2271
}
@@ -2347,6 +2361,9 @@ proc makewindow {} {
2347
2361
${NS} ::frame .bleft.mid
2348
2362
${NS} ::frame .bleft.bottom
2349
2363
2364
+ # gap between sub-widgets
2365
+ set wgap [font measure uifont " i" ]
2366
+
2350
2367
${NS} ::button .bleft.top.search -text [mc " Search" ] -command dosearch
2351
2368
pack .bleft.top.search -side left -padx 5
2352
2369
set sstring .bleft.top.sstring
@@ -2361,16 +2378,17 @@ proc makewindow {} {
2361
2378
-command changediffdisp -variable diffelide -value {0 1}
2362
2379
${NS} ::radiobutton .bleft.mid.new -text [mc " New version" ] \
2363
2380
-command changediffdisp -variable diffelide -value {1 0}
2381
+
2364
2382
${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
2366
2384
spinbox .bleft.mid.diffcontext -width 5 \
2367
2385
-from 0 -increment 1 -to 10000000 \
2368
2386
-validate all -validatecommand " diffcontextvalidate %P" \
2369
2387
-textvariable diffcontextstring
2370
2388
.bleft.mid.diffcontext set $diffcontext
2371
2389
trace add variable diffcontextstring write diffcontextchange
2372
2390
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
2374
2392
${NS} ::checkbutton .bleft.mid.ignspace -text [mc " Ignore space change" ] \
2375
2393
-command changeignorespace -variable ignorespace
2376
2394
pack .bleft.mid.ignspace -side left -padx 5
@@ -3379,7 +3397,7 @@ set rectmask {
3379
3397
0x00, 0x00, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f,
3380
3398
0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0xfc, 0x0f, 0x00, 0x00};
3381
3399
}
3382
- image create bitmap reficon-H -background black -foreground green \
3400
+ image create bitmap reficon-H -background black -foreground lime \
3383
3401
-data $rectdata -maskdata $rectmask
3384
3402
image create bitmap reficon-o -background black -foreground " #ddddff" \
3385
3403
-data $rectdata -maskdata $rectmask
@@ -12170,7 +12188,7 @@ if {[tk windowingsystem] eq "aqua"} {
12170
12188
set extdifftool " meld"
12171
12189
}
12172
12190
12173
- set colors {green red blue magenta darkgrey brown orange}
12191
+ set colors {lime red blue magenta darkgrey brown orange}
12174
12192
if {[tk windowingsystem] eq " win32" } {
12175
12193
set uicolor SystemButtonFace
12176
12194
set uifgcolor SystemButtonText
@@ -12188,12 +12206,12 @@ if {[tk windowingsystem] eq "win32"} {
12188
12206
}
12189
12207
set diffcolors {red " #00a000" blue}
12190
12208
set 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" }
12192
12210
set ignorespace 0
12193
12211
set worddiff " "
12194
12212
set markbgcolor " #e0e0ff"
12195
12213
12196
- set headbgcolor green
12214
+ set headbgcolor lime
12197
12215
set headfgcolor black
12198
12216
set headoutlinecolor black
12199
12217
set remotebgcolor #ffddaa
@@ -12208,7 +12226,7 @@ set linehoverfgcolor black
12208
12226
set linehoveroutlinecolor black
12209
12227
set mainheadcirclecolor yellow
12210
12228
set workingfilescirclecolor red
12211
- set indexcirclecolor green
12229
+ set indexcirclecolor lime
12212
12230
set circlecolors {white blue gray blue blue}
12213
12231
set linkfgcolor blue
12214
12232
set circleoutlinecolor $fgcolor
@@ -12356,6 +12374,10 @@ if {![info exists have_ttk]} {
12356
12374
set use_ttk [expr {$have_ttk && $want_ttk }]
12357
12375
set NS [expr {$use_ttk ? " ttk" : " " }]
12358
12376
12377
+ if {$use_ttk } {
12378
+ setttkstyle
12379
+ }
12380
+
12359
12381
regexp {^git version ([\d.]*\d)} [ exec git version] _ git_version
12360
12382
12361
12383
set show_notes {}
0 commit comments