Skip to content

Commit c3ee2e2

Browse files
committed
Merge git://ozlabs.org/~paulus/gitk
* git://ozlabs.org/~paulus/gitk: gitk: sv.po: Update Swedish translation (311t) gitk: Let .bleft.mid widgets 'breathe' gitk: Match ttk fonts to gitk fonts gitk: Update revision date in Japanese PO file gitk: Update "Language:" header gitk: Improve translation message gitk: Remove unused line gitk: Update year gitk: Change last translator line gitk: Update fuzzy messages gitk: Update Japanese translation gitk: Fix translation around copyright sign gitk: Update Japanese translation gitk: Fix wrong translation gitk: Translate Japanese catalog gitk: Translate more to Japanese catalog gitk: Update Japanese message catalog gitk: Re-sync line number in Japanese message catalogue gitk: Color name update
2 parents f3adf45 + 0de75aa commit c3ee2e2

File tree

3 files changed

+680
-664
lines changed

3 files changed

+680
-664
lines changed

gitk-git/gitk

Lines changed: 30 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1943,6 +1943,8 @@ proc confirm_popup {msg {owner .}} {
19431943
}
19441944

19451945
proc 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
33843402
image 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}
1217412192
if {[tk windowingsystem] eq "win32"} {
1217512193
set uicolor SystemButtonFace
1217612194
set uifgcolor SystemButtonText
@@ -12188,12 +12206,12 @@ if {[tk windowingsystem] eq "win32"} {
1218812206
}
1218912207
set diffcolors {red "#00a000" blue}
1219012208
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"}
1219212210
set ignorespace 0
1219312211
set worddiff ""
1219412212
set markbgcolor "#e0e0ff"
1219512213

12196-
set headbgcolor green
12214+
set headbgcolor lime
1219712215
set headfgcolor black
1219812216
set headoutlinecolor black
1219912217
set remotebgcolor #ffddaa
@@ -12208,7 +12226,7 @@ set linehoverfgcolor black
1220812226
set linehoveroutlinecolor black
1220912227
set mainheadcirclecolor yellow
1221012228
set workingfilescirclecolor red
12211-
set indexcirclecolor green
12229+
set indexcirclecolor lime
1221212230
set circlecolors {white blue gray blue blue}
1221312231
set linkfgcolor blue
1221412232
set circleoutlinecolor $fgcolor
@@ -12356,6 +12374,10 @@ if {![info exists have_ttk]} {
1235612374
set use_ttk [expr {$have_ttk && $want_ttk}]
1235712375
set NS [expr {$use_ttk ? "ttk" : ""}]
1235812376

12377+
if {$use_ttk} {
12378+
setttkstyle
12379+
}
12380+
1235912381
regexp {^git version ([\d.]*\d)} [exec git version] _ git_version
1236012382

1236112383
set show_notes {}

0 commit comments

Comments
 (0)