Merge git://git.kernel.org/pub/scm/gitk/gitk
* git://git.kernel.org/pub/scm/gitk/gitk: gitk: Allow diff view without context lines gitk: Add another string to translation gitk: Add option 'Simple history' to the options menu gitk: Handle msysGit version during version comparisons gitk: Make more options easily accessible from Edit View dialog gitk: Check git version before using --textconv flag gitk: Use --textconv to generate diff text gitk: Update German translation.
This commit is contained in:
147
gitk-git/gitk
147
gitk-git/gitk
@ -187,7 +187,8 @@ proc parseviewargs {n arglist} {
|
|||||||
"--until=*" - "--before=*" - "--max-age=*" - "--min-age=*" -
|
"--until=*" - "--before=*" - "--max-age=*" - "--min-age=*" -
|
||||||
"--author=*" - "--committer=*" - "--grep=*" - "-[iE]" -
|
"--author=*" - "--committer=*" - "--grep=*" - "-[iE]" -
|
||||||
"--remove-empty" - "--first-parent" - "--cherry-pick" -
|
"--remove-empty" - "--first-parent" - "--cherry-pick" -
|
||||||
"-S*" - "--pickaxe-all" - "--pickaxe-regex" {
|
"-S*" - "--pickaxe-all" - "--pickaxe-regex" -
|
||||||
|
"--simplify-by-decoration" {
|
||||||
# These mean that we get a subset of the commits
|
# These mean that we get a subset of the commits
|
||||||
set filtered 1
|
set filtered 1
|
||||||
lappend glflags $arg
|
lappend glflags $arg
|
||||||
@ -2145,7 +2146,7 @@ proc makewindow {} {
|
|||||||
label .bleft.mid.labeldiffcontext -text " [mc "Lines of context"]: "
|
label .bleft.mid.labeldiffcontext -text " [mc "Lines of context"]: "
|
||||||
pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
|
pack .bleft.mid.diff .bleft.mid.old .bleft.mid.new -side left
|
||||||
spinbox .bleft.mid.diffcontext -width 5 -font textfont \
|
spinbox .bleft.mid.diffcontext -width 5 -font textfont \
|
||||||
-from 1 -increment 1 -to 10000000 \
|
-from 0 -increment 1 -to 10000000 \
|
||||||
-validate all -validatecommand "diffcontextvalidate %P" \
|
-validate all -validatecommand "diffcontextvalidate %P" \
|
||||||
-textvariable diffcontextstring
|
-textvariable diffcontextstring
|
||||||
.bleft.mid.diffcontext set $diffcontext
|
.bleft.mid.diffcontext set $diffcontext
|
||||||
@ -3671,17 +3672,36 @@ proc newview {ishighlight} {
|
|||||||
}
|
}
|
||||||
|
|
||||||
set known_view_options {
|
set known_view_options {
|
||||||
{perm b . {} {mc "Remember this view"}}
|
{perm b . {} {mc "Remember this view"}}
|
||||||
{args t50= + {} {mc "Commits to include (arguments to git log):"}}
|
{reflabel l + {} {mc "References (space separated list):"}}
|
||||||
{all b * "--all" {mc "Use all refs"}}
|
{refs t15 .. {} {mc "Branches & tags:"}}
|
||||||
{dorder b . {"--date-order" "-d"} {mc "Strictly sort by date"}}
|
{allrefs b *. "--all" {mc "All refs"}}
|
||||||
{lright b . "--left-right" {mc "Mark branch sides"}}
|
{branches b . "--branches" {mc "All (local) branches"}}
|
||||||
{since t15 + {"--since=*" "--after=*"} {mc "Since date:"}}
|
{tags b . "--tags" {mc "All tags"}}
|
||||||
{until t15 . {"--until=*" "--before=*"} {mc "Until date:"}}
|
{remotes b . "--remotes" {mc "All remote-tracking branches"}}
|
||||||
{limit t10 + "--max-count=*" {mc "Max count:"}}
|
{commitlbl l + {} {mc "Commit Info (regular expressions):"}}
|
||||||
{skip t10 . "--skip=*" {mc "Skip:"}}
|
{author t15 .. "--author=*" {mc "Author:"}}
|
||||||
{first b . "--first-parent" {mc "Limit to first parent"}}
|
{committer t15 . "--committer=*" {mc "Committer:"}}
|
||||||
{cmd t50= + {} {mc "Command to generate more commits to include:"}}
|
{loginfo t15 .. "--grep=*" {mc "Commit Message:"}}
|
||||||
|
{allmatch b .. "--all-match" {mc "Matches all Commit Info criteria"}}
|
||||||
|
{changes_l l + {} {mc "Changes to Files:"}}
|
||||||
|
{pickaxe_s r0 . {} {mc "Fixed String"}}
|
||||||
|
{pickaxe_t r1 . "--pickaxe-regex" {mc "Regular Expression"}}
|
||||||
|
{pickaxe t15 .. "-S*" {mc "Search string:"}}
|
||||||
|
{datelabel l + {} {mc "Commit Dates (\"2 weeks ago\", \"2009-03-17 15:27:38\", \"March 17, 2009 15:27:38\"):"}}
|
||||||
|
{since t15 .. {"--since=*" "--after=*"} {mc "Since:"}}
|
||||||
|
{until t15 . {"--until=*" "--before=*"} {mc "Until:"}}
|
||||||
|
{limit_lbl l + {} {mc "Limit and/or skip a number of revisions (positive integer):"}}
|
||||||
|
{limit t10 *. "--max-count=*" {mc "Number to show:"}}
|
||||||
|
{skip t10 . "--skip=*" {mc "Number to skip:"}}
|
||||||
|
{misc_lbl l + {} {mc "Miscellaneous options:"}}
|
||||||
|
{dorder b *. {"--date-order" "-d"} {mc "Strictly sort by date"}}
|
||||||
|
{lright b . "--left-right" {mc "Mark branch sides"}}
|
||||||
|
{first b . "--first-parent" {mc "Limit to first parent"}}
|
||||||
|
{smplhst b . "--simplify-by-decoration" {mc "Simple history"}}
|
||||||
|
{args t50 *. {} {mc "Additional arguments to git log:"}}
|
||||||
|
{allpaths path + {} {mc "Enter files and directories to include, one per line:"}}
|
||||||
|
{cmd t50= + {} {mc "Command to generate more commits to include:"}}
|
||||||
}
|
}
|
||||||
|
|
||||||
proc encode_view_opts {n} {
|
proc encode_view_opts {n} {
|
||||||
@ -3693,13 +3713,19 @@ proc encode_view_opts {n} {
|
|||||||
if {$patterns eq {}} continue
|
if {$patterns eq {}} continue
|
||||||
set pattern [lindex $patterns 0]
|
set pattern [lindex $patterns 0]
|
||||||
|
|
||||||
set val $newviewopts($n,[lindex $opt 0])
|
|
||||||
|
|
||||||
if {[lindex $opt 1] eq "b"} {
|
if {[lindex $opt 1] eq "b"} {
|
||||||
|
set val $newviewopts($n,[lindex $opt 0])
|
||||||
if {$val} {
|
if {$val} {
|
||||||
lappend rargs $pattern
|
lappend rargs $pattern
|
||||||
}
|
}
|
||||||
|
} elseif {[regexp {^r(\d+)$} [lindex $opt 1] type value]} {
|
||||||
|
regexp {^(.*_)} [lindex $opt 0] uselessvar button_id
|
||||||
|
set val $newviewopts($n,$button_id)
|
||||||
|
if {$val eq $value} {
|
||||||
|
lappend rargs $pattern
|
||||||
|
}
|
||||||
} else {
|
} else {
|
||||||
|
set val $newviewopts($n,[lindex $opt 0])
|
||||||
set val [string trim $val]
|
set val [string trim $val]
|
||||||
if {$val ne {}} {
|
if {$val ne {}} {
|
||||||
set pfix [string range $pattern 0 end-1]
|
set pfix [string range $pattern 0 end-1]
|
||||||
@ -3707,6 +3733,7 @@ proc encode_view_opts {n} {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
set rargs [concat $rargs [shellsplit $newviewopts($n,refs)]]
|
||||||
return [concat $rargs [shellsplit $newviewopts($n,args)]]
|
return [concat $rargs [shellsplit $newviewopts($n,args)]]
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -3714,14 +3741,22 @@ proc decode_view_opts {n view_args} {
|
|||||||
global known_view_options newviewopts
|
global known_view_options newviewopts
|
||||||
|
|
||||||
foreach opt $known_view_options {
|
foreach opt $known_view_options {
|
||||||
|
set id [lindex $opt 0]
|
||||||
if {[lindex $opt 1] eq "b"} {
|
if {[lindex $opt 1] eq "b"} {
|
||||||
|
# Checkboxes
|
||||||
|
set val 0
|
||||||
|
} elseif {[regexp {^r(\d+)$} [lindex $opt 1]]} {
|
||||||
|
# Radiobuttons
|
||||||
|
regexp {^(.*_)} $id uselessvar id
|
||||||
set val 0
|
set val 0
|
||||||
} else {
|
} else {
|
||||||
|
# Text fields
|
||||||
set val {}
|
set val {}
|
||||||
}
|
}
|
||||||
set newviewopts($n,[lindex $opt 0]) $val
|
set newviewopts($n,$id) $val
|
||||||
}
|
}
|
||||||
set oargs [list]
|
set oargs [list]
|
||||||
|
set refargs [list]
|
||||||
foreach arg $view_args {
|
foreach arg $view_args {
|
||||||
if {[regexp -- {^-([0-9]+)$} $arg arg cnt]
|
if {[regexp -- {^-([0-9]+)$} $arg arg cnt]
|
||||||
&& ![info exists found(limit)]} {
|
&& ![info exists found(limit)]} {
|
||||||
@ -3735,11 +3770,17 @@ proc decode_view_opts {n view_args} {
|
|||||||
if {[info exists found($id)]} continue
|
if {[info exists found($id)]} continue
|
||||||
foreach pattern [lindex $opt 3] {
|
foreach pattern [lindex $opt 3] {
|
||||||
if {![string match $pattern $arg]} continue
|
if {![string match $pattern $arg]} continue
|
||||||
if {[lindex $opt 1] ne "b"} {
|
if {[lindex $opt 1] eq "b"} {
|
||||||
|
# Check buttons
|
||||||
|
set val 1
|
||||||
|
} elseif {[regexp {^r(\d+)$} [lindex $opt 1] match num]} {
|
||||||
|
# Radio buttons
|
||||||
|
regexp {^(.*_)} $id uselessvar id
|
||||||
|
set val $num
|
||||||
|
} else {
|
||||||
|
# Text input fields
|
||||||
set size [string length $pattern]
|
set size [string length $pattern]
|
||||||
set val [string range $arg [expr {$size-1}] end]
|
set val [string range $arg [expr {$size-1}] end]
|
||||||
} else {
|
|
||||||
set val 1
|
|
||||||
}
|
}
|
||||||
set newviewopts($n,$id) $val
|
set newviewopts($n,$id) $val
|
||||||
set found($id) 1
|
set found($id) 1
|
||||||
@ -3748,8 +3789,13 @@ proc decode_view_opts {n view_args} {
|
|||||||
if {[info exists val]} break
|
if {[info exists val]} break
|
||||||
}
|
}
|
||||||
if {[info exists val]} continue
|
if {[info exists val]} continue
|
||||||
lappend oargs $arg
|
if {[regexp {^-} $arg]} {
|
||||||
|
lappend oargs $arg
|
||||||
|
} else {
|
||||||
|
lappend refargs $arg
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
set newviewopts($n,refs) [shellarglist $refargs]
|
||||||
set newviewopts($n,args) [shellarglist $oargs]
|
set newviewopts($n,args) [shellarglist $oargs]
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -3785,16 +3831,16 @@ proc vieweditor {top n title} {
|
|||||||
global known_view_options
|
global known_view_options
|
||||||
|
|
||||||
toplevel $top
|
toplevel $top
|
||||||
wm title $top $title
|
wm title $top [concat $title [mc "-- criteria for selecting revisions"]]
|
||||||
make_transient $top .
|
make_transient $top .
|
||||||
|
|
||||||
# View name
|
# View name
|
||||||
frame $top.nfr
|
frame $top.nfr
|
||||||
label $top.nl -text [mc "Name"]
|
label $top.nl -text [mc "View Name:"]
|
||||||
entry $top.name -width 20 -textvariable newviewname($n)
|
entry $top.name -width 20 -textvariable newviewname($n)
|
||||||
pack $top.nfr -in $top -fill x -pady 5 -padx 3
|
pack $top.nfr -in $top -fill x -pady 5 -padx 3
|
||||||
pack $top.nl -in $top.nfr -side left -padx {0 30}
|
pack $top.nl -in $top.nfr -side left -padx {0 5}
|
||||||
pack $top.name -in $top.nfr -side left
|
pack $top.name -in $top.nfr -side left -padx {0 25}
|
||||||
|
|
||||||
# View options
|
# View options
|
||||||
set cframe $top.nfr
|
set cframe $top.nfr
|
||||||
@ -3813,14 +3859,28 @@ proc vieweditor {top n title} {
|
|||||||
frame $cframe
|
frame $cframe
|
||||||
pack $cframe -in $top -fill x -pady 3 -padx 3
|
pack $cframe -in $top -fill x -pady 3 -padx 3
|
||||||
set cexpand [expr {$flags eq "*"}]
|
set cexpand [expr {$flags eq "*"}]
|
||||||
|
} elseif {$flags eq ".." || $flags eq "*."} {
|
||||||
|
set cframe $top.fr$cnt
|
||||||
|
incr cnt
|
||||||
|
frame $cframe
|
||||||
|
pack $cframe -in $top -fill x -pady 3 -padx [list 15 3]
|
||||||
|
set cexpand [expr {$flags eq "*."}]
|
||||||
} else {
|
} else {
|
||||||
set lxpad 5
|
set lxpad 5
|
||||||
}
|
}
|
||||||
|
|
||||||
if {$type eq "b"} {
|
if {$type eq "l"} {
|
||||||
|
label $cframe.l_$id -text $title
|
||||||
|
pack $cframe.l_$id -in $cframe -side left -pady [list 3 0] -anchor w
|
||||||
|
} elseif {$type eq "b"} {
|
||||||
checkbutton $cframe.c_$id -text $title -variable newviewopts($n,$id)
|
checkbutton $cframe.c_$id -text $title -variable newviewopts($n,$id)
|
||||||
pack $cframe.c_$id -in $cframe -side left \
|
pack $cframe.c_$id -in $cframe -side left \
|
||||||
-padx [list $lxpad 0] -expand $cexpand -anchor w
|
-padx [list $lxpad 0] -expand $cexpand -anchor w
|
||||||
|
} elseif {[regexp {^r(\d+)$} $type type sz]} {
|
||||||
|
regexp {^(.*_)} $id uselessvar button_id
|
||||||
|
radiobutton $cframe.c_$id -text $title -variable newviewopts($n,$button_id) -value $sz
|
||||||
|
pack $cframe.c_$id -in $cframe -side left \
|
||||||
|
-padx [list $lxpad 0] -expand $cexpand -anchor w
|
||||||
} elseif {[regexp {^t(\d+)$} $type type sz]} {
|
} elseif {[regexp {^t(\d+)$} $type type sz]} {
|
||||||
message $cframe.l_$id -aspect 1500 -text $title
|
message $cframe.l_$id -aspect 1500 -text $title
|
||||||
entry $cframe.e_$id -width $sz -background $bgcolor \
|
entry $cframe.e_$id -width $sz -background $bgcolor \
|
||||||
@ -3833,23 +3893,22 @@ proc vieweditor {top n title} {
|
|||||||
-textvariable newviewopts($n,$id)
|
-textvariable newviewopts($n,$id)
|
||||||
pack $cframe.l_$id -in $cframe -side top -pady [list 3 0] -anchor w
|
pack $cframe.l_$id -in $cframe -side top -pady [list 3 0] -anchor w
|
||||||
pack $cframe.e_$id -in $cframe -side top -fill x
|
pack $cframe.e_$id -in $cframe -side top -fill x
|
||||||
|
} elseif {$type eq "path"} {
|
||||||
|
message $top.l -aspect 1500 -text $title
|
||||||
|
pack $top.l -in $top -side top -pady [list 3 0] -anchor w -padx 3
|
||||||
|
text $top.t -width 40 -height 5 -background $bgcolor -font uifont
|
||||||
|
if {[info exists viewfiles($n)]} {
|
||||||
|
foreach f $viewfiles($n) {
|
||||||
|
$top.t insert end $f
|
||||||
|
$top.t insert end "\n"
|
||||||
|
}
|
||||||
|
$top.t delete {end - 1c} end
|
||||||
|
$top.t mark set insert 0.0
|
||||||
|
}
|
||||||
|
pack $top.t -in $top -side top -pady [list 0 5] -fill both -expand 1 -padx 3
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
# Path list
|
|
||||||
message $top.l -aspect 1500 \
|
|
||||||
-text [mc "Enter files and directories to include, one per line:"]
|
|
||||||
pack $top.l -in $top -side top -pady [list 7 0] -anchor w -padx 3
|
|
||||||
text $top.t -width 40 -height 5 -background $bgcolor -font uifont
|
|
||||||
if {[info exists viewfiles($n)]} {
|
|
||||||
foreach f $viewfiles($n) {
|
|
||||||
$top.t insert end $f
|
|
||||||
$top.t insert end "\n"
|
|
||||||
}
|
|
||||||
$top.t delete {end - 1c} end
|
|
||||||
$top.t mark set insert 0.0
|
|
||||||
}
|
|
||||||
pack $top.t -in $top -side top -pady [list 0 5] -fill both -expand 1 -padx 3
|
|
||||||
frame $top.buts
|
frame $top.buts
|
||||||
button $top.buts.ok -text [mc "OK"] -command [list newviewok $top $n]
|
button $top.buts.ok -text [mc "OK"] -command [list newviewok $top $n]
|
||||||
button $top.buts.apply -text [mc "Apply (F5)"] -command [list newviewok $top $n 1]
|
button $top.buts.apply -text [mc "Apply (F5)"] -command [list newviewok $top $n 1]
|
||||||
@ -7249,7 +7308,7 @@ proc diffcontextchange {n1 n2 op} {
|
|||||||
global diffcontextstring diffcontext
|
global diffcontextstring diffcontext
|
||||||
|
|
||||||
if {[string is integer -strict $diffcontextstring]} {
|
if {[string is integer -strict $diffcontextstring]} {
|
||||||
if {$diffcontextstring > 0} {
|
if {$diffcontextstring >= 0} {
|
||||||
set diffcontext $diffcontextstring
|
set diffcontext $diffcontextstring
|
||||||
reselectline
|
reselectline
|
||||||
}
|
}
|
||||||
@ -7267,8 +7326,13 @@ proc getblobdiffs {ids} {
|
|||||||
global ignorespace
|
global ignorespace
|
||||||
global limitdiffs vfilelimit curview
|
global limitdiffs vfilelimit curview
|
||||||
global diffencoding targetline diffnparents
|
global diffencoding targetline diffnparents
|
||||||
|
global git_version
|
||||||
|
|
||||||
set cmd [diffcmd $ids "-p -C --cc --no-commit-id -U$diffcontext"]
|
set textconv {}
|
||||||
|
if {[package vcompare $git_version "1.6.1"] >= 0} {
|
||||||
|
set textconv "--textconv"
|
||||||
|
}
|
||||||
|
set cmd [diffcmd $ids "-p $textconv -C --cc --no-commit-id -U$diffcontext"]
|
||||||
if {$ignorespace} {
|
if {$ignorespace} {
|
||||||
append cmd " -w"
|
append cmd " -w"
|
||||||
}
|
}
|
||||||
@ -11090,6 +11154,7 @@ set nullid2 "0000000000000000000000000000000000000001"
|
|||||||
set nullfile "/dev/null"
|
set nullfile "/dev/null"
|
||||||
|
|
||||||
set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
|
set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
|
||||||
|
set git_version [join [lrange [split [lindex [exec git version] end] .] 0 2] .]
|
||||||
|
|
||||||
set runq {}
|
set runq {}
|
||||||
set history {}
|
set history {}
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user