mirror of
https://github.com/git/git.git
synced 2024-10-01 10:41:25 +02:00
1ac17950e9
The procedure [mc ...] will translate the strings through msgcat. Strings must be enclosed in quotes, not in braces, because otherwise xgettext cannot extract them properly, although on the Tcl side both delimiters would work fine. [jes: I merged the later patches to that end.] Signed-off-by: Christian Stimming <stimming@tuhh.de> Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
313 lines
12 KiB
Tcl
313 lines
12 KiB
Tcl
# git-gui tree browser
|
|
# Copyright (C) 2006, 2007 Shawn Pearce
|
|
|
|
class browser {
|
|
|
|
image create photo ::browser::img_parent -data {R0lGODlhEAAQAIUAAPwCBBxSHBxOHMTSzNzu3KzCtBRGHCSKFIzCjLzSxBQ2FAxGHDzCLCyeHBQ+FHSmfAwuFBxKLDSCNMzizISyjJzOnDSyLAw+FAQSDAQeDBxWJAwmDAQOBKzWrDymNAQaDAQODAwaDDyKTFSyXFTGTEy6TAQCBAQKDAwiFBQyHAwSFAwmHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAZ1QIBwSCwaj0hiQCBICpcDQsFgGAaIguhhi0gohIsrQEDYMhiNrRfgeAQC5fMCAolIDhD2hFI5WC4YRBkaBxsOE2l/RxsHHA4dHmkfRyAbIQ4iIyQlB5NFGCAACiakpSZEJyinTgAcKSesACorgU4mJ6uxR35BACH+aENyZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3IuY29tADs=}
|
|
image create photo ::browser::img_rblob -data {R0lGODlhEAAQAIUAAPwCBFxaXNze3Ly2rJSWjPz+/Ozq7GxqbJyanPT29HRydMzOzDQyNIyKjERCROTi3Pz69PTy7Pzy7PTu5Ozm3LyqlJyWlJSSjJSOhOzi1LyulPz27PTq3PTm1OzezLyqjIyKhJSKfOzaxPz29OzizLyidIyGdIyCdOTOpLymhOzavOTStMTCtMS+rMS6pMSynMSulLyedAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAaQQIAQECgajcNkQMBkDgKEQFK4LFgLhkMBIVUKroWEYlEgMLxbBKLQUBwc52HgAQ4LBo049atWQyIPA3pEdFcQEhMUFYNVagQWFxgZGoxfYRsTHB0eH5UJCJAYICEinUoPIxIcHCQkIiIllQYEGCEhJicoKYwPmiQeKisrKLFKLCwtLi8wHyUlMYwM0tPUDH5BACH+aENyZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3IuY29tADs=}
|
|
image create photo ::browser::img_xblob -data {R0lGODlhEAAQAIYAAPwCBFRWVFxaXNza3OTi3Nze3Ly2tJyanPz+/Ozq7GxubNzSxMzOzMTGxHRybDQyNLy+vHRydHx6fKSipISChIyKjGxqbERCRCwuLLy6vGRiZExKTCQiJAwKDLSytLy2rJSSlHx+fDw6PKyqrBQWFPTu5Ozm3LyulLS2tCQmJAQCBPTq3Ozi1MSynCwqLAQGBOTazOzizOzezLyqjBweHNzSvOzaxKyurHRuZNzOtLymhDw+PIyCdOzWvOTOpLyidNzKtOTStLyifMTCtMS+rLyedAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAfZgACCAAEChYeGg4oCAwQFjgYBBwGKggEECJkICQoIkwADCwwNDY2mDA4Lng8QDhESsLARExQVDhYXGBkWExIaGw8cHR4SCQQfFQ8eFgUgIQEiwiMSBMYfGB4atwEXDyQd0wQlJicPKAHoFyIpJCoeDgMrLC0YKBsX6i4kL+4OMDEyZijr5oLGNxUqUCioEcPGDAwjPNyI6MEDChQjcOSwsUDHgw07RIgI4KCkAgs8cvTw8eOBogAxQtXIASTISiEuBwUYMoRIixYnZggpUgTDywdIkWJIitRPIAAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
|
|
image create photo ::browser::img_tree -data {R0lGODlhEAAQAIYAAPwCBAQCBExKTBwWHMzKzOzq7ERCRExGTCwqLARqnAQ+ZHR2dKyqrNTOzHx2fCQiJMTi9NTu9HzC3AxmnAQ+XPTm7Dy67DymzITC3IzG5AxypHRydKymrMzOzOzu7BweHByy9AyGtFyy1IzG3NTu/ARupFRSVByazBR6rAyGvFyuzJTK3MTm9BR+tAxWhHS61MTi7Pz+/IymvCxulBRelAx2rHS63Pz6/PTy9PTu9Nza3ISitBRupFSixNTS1CxqnDQyNMzGzOTi5MTCxMTGxGxubGxqbLy2vLSutGRiZLy6vLSytKyurDQuNFxaXKSipDw6PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAfDgACCAAECg4eIAAMEBQYHCImDBgkKCwwNBQIBBw4Bhw8QERITFJYEFQUFnoIPFhcYoRkaFBscHR4Ggh8gIRciEiMQJBkltCa6JyUoKSkXKhIrLCQYuQAPLS4TEyUhKb0qLzDVAjEFMjMuNBMoNcw21QY3ODkFOjs82RM1PfDzFRU3fOggcM7Fj2pAgggRokOHDx9DhhAZUqQaISBGhjwMEvEIkiIHEgUAkgSJkiNLmFSMJChAEydPGBSBwvJQgAc0/QQCACH+aENyZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3IuY29tADs=}
|
|
image create photo ::browser::img_symlink -data {R0lGODlhEAAQAIQAAPwCBCwqLLSytLy+vERGRFRWVDQ2NKSmpAQCBKyurMTGxISChJyanHR2dIyKjGxubHRydGRmZIyOjFxeXHx6fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAVbICACwWieY1CibCCsrBkMb0zchSEcNYskCtqBBzshFkOGQFk0IRqOxqPBODRHCMhCQKteRc9FI/KQWGOIyFYgkDC+gPR4snCcfRGKOIKIgSMQE31+f4OEYCZ+IQAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
|
|
image create photo ::browser::img_unknown -data {R0lGODlhEAAQAIUAAPwCBFxaXIyKjNTW1Nze3LS2tJyanER2RGS+VPz+/PTu5GxqbPz69BQ6BCxeLFSqRPT29HRydMzOzDQyNERmPKSypCRWHIyKhERCRDyGPKz2nESiLBxGHCyCHGxubPz6/PTy7Ozi1Ly2rKSipOzm3LyqlKSWhCRyFOzizLymhNTKtNzOvOzaxOTStPz27OzWvOTOpLSupLyedMS+rMS6pMSulLyqjLymfLyifAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAamQIAQECgajcOkYEBoDgoBQyAJOCCuiENCsWBIh9aGw9F4HCARiXciRDQoBUnlYRlcIgsMG5CxXAgMGhscBRAEBRd7AB0eBBoIgxUfICEiikSPgyMMIAokJZcBkBybJgomIaBJAZoMpyCmqkMBFCcVCrgKKAwpoSorKqchKCwtvasIFBIhLiYvLzDHsxQNMcMKLDAwMqEz3jQ1NTY3ONyrE+jp6hN+QQAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
|
|
|
|
field w
|
|
field browser_commit
|
|
field browser_path
|
|
field browser_files {}
|
|
field browser_status [mc "Starting..."]
|
|
field browser_stack {}
|
|
field browser_busy 1
|
|
|
|
field ls_buf {}; # Buffered record output from ls-tree
|
|
|
|
constructor new {commit {path {}}} {
|
|
global cursor_ptr M1B
|
|
make_toplevel top w
|
|
wm title $top [append "[appname] ([reponame]): " [mc "File Browser"]]
|
|
|
|
set browser_commit $commit
|
|
set browser_path $browser_commit:$path
|
|
|
|
label $w.path \
|
|
-textvariable @browser_path \
|
|
-anchor w \
|
|
-justify left \
|
|
-borderwidth 1 \
|
|
-relief sunken \
|
|
-font font_uibold
|
|
pack $w.path -anchor w -side top -fill x
|
|
|
|
frame $w.list
|
|
set w_list $w.list.l
|
|
text $w_list -background white -borderwidth 0 \
|
|
-cursor $cursor_ptr \
|
|
-state disabled \
|
|
-wrap none \
|
|
-height 20 \
|
|
-width 70 \
|
|
-xscrollcommand [list $w.list.sbx set] \
|
|
-yscrollcommand [list $w.list.sby set]
|
|
$w_list tag conf in_sel \
|
|
-background [$w_list cget -foreground] \
|
|
-foreground [$w_list cget -background]
|
|
scrollbar $w.list.sbx -orient h -command [list $w_list xview]
|
|
scrollbar $w.list.sby -orient v -command [list $w_list yview]
|
|
pack $w.list.sbx -side bottom -fill x
|
|
pack $w.list.sby -side right -fill y
|
|
pack $w_list -side left -fill both -expand 1
|
|
pack $w.list -side top -fill both -expand 1
|
|
|
|
label $w.status \
|
|
-textvariable @browser_status \
|
|
-anchor w \
|
|
-justify left \
|
|
-borderwidth 1 \
|
|
-relief sunken
|
|
pack $w.status -anchor w -side bottom -fill x
|
|
|
|
bind $w_list <Button-1> "[cb _click 0 @%x,%y];break"
|
|
bind $w_list <Double-Button-1> "[cb _click 1 @%x,%y];break"
|
|
bind $w_list <$M1B-Up> "[cb _parent] ;break"
|
|
bind $w_list <$M1B-Left> "[cb _parent] ;break"
|
|
bind $w_list <Up> "[cb _move -1] ;break"
|
|
bind $w_list <Down> "[cb _move 1] ;break"
|
|
bind $w_list <$M1B-Right> "[cb _enter] ;break"
|
|
bind $w_list <Return> "[cb _enter] ;break"
|
|
bind $w_list <Prior> "[cb _page -1] ;break"
|
|
bind $w_list <Next> "[cb _page 1] ;break"
|
|
bind $w_list <Left> break
|
|
bind $w_list <Right> break
|
|
|
|
bind $w_list <Visibility> [list focus $w_list]
|
|
set w $w_list
|
|
if {$path ne {}} {
|
|
_ls $this $browser_commit:$path $path
|
|
} else {
|
|
_ls $this $browser_commit $path
|
|
}
|
|
return $this
|
|
}
|
|
|
|
method _move {dir} {
|
|
if {$browser_busy} return
|
|
set lno [lindex [split [$w index in_sel.first] .] 0]
|
|
incr lno $dir
|
|
if {[lindex $browser_files [expr {$lno - 1}]] ne {}} {
|
|
$w tag remove in_sel 0.0 end
|
|
$w tag add in_sel $lno.0 [expr {$lno + 1}].0
|
|
$w see $lno.0
|
|
}
|
|
}
|
|
|
|
method _page {dir} {
|
|
if {$browser_busy} return
|
|
$w yview scroll $dir pages
|
|
set lno [expr {int(
|
|
[lindex [$w yview] 0]
|
|
* [llength $browser_files]
|
|
+ 1)}]
|
|
if {[lindex $browser_files [expr {$lno - 1}]] ne {}} {
|
|
$w tag remove in_sel 0.0 end
|
|
$w tag add in_sel $lno.0 [expr {$lno + 1}].0
|
|
$w see $lno.0
|
|
}
|
|
}
|
|
|
|
method _parent {} {
|
|
if {$browser_busy} return
|
|
set info [lindex $browser_files 0]
|
|
if {[lindex $info 0] eq {parent}} {
|
|
set parent [lindex $browser_stack end-1]
|
|
set browser_stack [lrange $browser_stack 0 end-2]
|
|
if {$browser_stack eq {}} {
|
|
regsub {:.*$} $browser_path {:} browser_path
|
|
} else {
|
|
regsub {/[^/]+$} $browser_path {} browser_path
|
|
}
|
|
set browser_status [mc "Loading %s..." $browser_path]
|
|
_ls $this [lindex $parent 0] [lindex $parent 1]
|
|
}
|
|
}
|
|
|
|
method _enter {} {
|
|
if {$browser_busy} return
|
|
set lno [lindex [split [$w index in_sel.first] .] 0]
|
|
set info [lindex $browser_files [expr {$lno - 1}]]
|
|
if {$info ne {}} {
|
|
switch -- [lindex $info 0] {
|
|
parent {
|
|
_parent $this
|
|
}
|
|
tree {
|
|
set name [lindex $info 2]
|
|
set escn [escape_path $name]
|
|
set browser_status [mc "Loading %s..." $escn]
|
|
append browser_path $escn
|
|
_ls $this [lindex $info 1] $name
|
|
}
|
|
blob {
|
|
set name [lindex $info 2]
|
|
set p {}
|
|
foreach n $browser_stack {
|
|
append p [lindex $n 1]
|
|
}
|
|
append p $name
|
|
blame::new $browser_commit $p
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
method _click {was_double_click pos} {
|
|
if {$browser_busy} return
|
|
set lno [lindex [split [$w index $pos] .] 0]
|
|
focus $w
|
|
|
|
if {[lindex $browser_files [expr {$lno - 1}]] ne {}} {
|
|
$w tag remove in_sel 0.0 end
|
|
$w tag add in_sel $lno.0 [expr {$lno + 1}].0
|
|
if {$was_double_click} {
|
|
_enter $this
|
|
}
|
|
}
|
|
}
|
|
|
|
method _ls {tree_id {name {}}} {
|
|
set ls_buf {}
|
|
set browser_files {}
|
|
set browser_busy 1
|
|
|
|
$w conf -state normal
|
|
$w tag remove in_sel 0.0 end
|
|
$w delete 0.0 end
|
|
if {$browser_stack ne {}} {
|
|
$w image create end \
|
|
-align center -padx 5 -pady 1 \
|
|
-name icon0 \
|
|
-image ::browser::img_parent
|
|
$w insert end [mc "\[Up To Parent\]"]
|
|
lappend browser_files parent
|
|
}
|
|
lappend browser_stack [list $tree_id $name]
|
|
$w conf -state disabled
|
|
|
|
set fd [git_read ls-tree -z $tree_id]
|
|
fconfigure $fd -blocking 0 -translation binary -encoding binary
|
|
fileevent $fd readable [cb _read $fd]
|
|
}
|
|
|
|
method _read {fd} {
|
|
append ls_buf [read $fd]
|
|
set pck [split $ls_buf "\0"]
|
|
set ls_buf [lindex $pck end]
|
|
|
|
set n [llength $browser_files]
|
|
$w conf -state normal
|
|
foreach p [lrange $pck 0 end-1] {
|
|
set tab [string first "\t" $p]
|
|
if {$tab == -1} continue
|
|
|
|
set info [split [string range $p 0 [expr {$tab - 1}]] { }]
|
|
set path [string range $p [expr {$tab + 1}] end]
|
|
set type [lindex $info 1]
|
|
set object [lindex $info 2]
|
|
|
|
switch -- $type {
|
|
blob {
|
|
scan [lindex $info 0] %o mode
|
|
if {$mode == 0120000} {
|
|
set image ::browser::img_symlink
|
|
} elseif {($mode & 0100) != 0} {
|
|
set image ::browser::img_xblob
|
|
} else {
|
|
set image ::browser::img_rblob
|
|
}
|
|
}
|
|
tree {
|
|
set image ::browser::img_tree
|
|
append path /
|
|
}
|
|
default {
|
|
set image ::browser::img_unknown
|
|
}
|
|
}
|
|
|
|
if {$n > 0} {$w insert end "\n"}
|
|
$w image create end \
|
|
-align center -padx 5 -pady 1 \
|
|
-name icon[incr n] \
|
|
-image $image
|
|
$w insert end [escape_path $path]
|
|
lappend browser_files [list $type $object $path]
|
|
}
|
|
$w conf -state disabled
|
|
|
|
if {[eof $fd]} {
|
|
close $fd
|
|
set browser_status [mc "Ready."]
|
|
set browser_busy 0
|
|
set ls_buf {}
|
|
if {$n > 0} {
|
|
$w tag add in_sel 1.0 2.0
|
|
focus -force $w
|
|
}
|
|
}
|
|
} ifdeleted {
|
|
catch {close $fd}
|
|
}
|
|
|
|
}
|
|
|
|
class browser_open {
|
|
|
|
field w ; # widget path
|
|
field w_rev ; # mega-widget to pick the initial revision
|
|
|
|
constructor dialog {} {
|
|
make_toplevel top w
|
|
wm title $top [append "[appname] ([reponame]): " [mc "Browse Branch Files"]]
|
|
if {$top ne {.}} {
|
|
wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
|
|
}
|
|
|
|
label $w.header \
|
|
-text [mc "Browse Branch Files"] \
|
|
-font font_uibold
|
|
pack $w.header -side top -fill x
|
|
|
|
frame $w.buttons
|
|
button $w.buttons.browse -text [mc Browse] \
|
|
-default active \
|
|
-command [cb _open]
|
|
pack $w.buttons.browse -side right
|
|
button $w.buttons.cancel -text [mc Cancel] \
|
|
-command [list destroy $w]
|
|
pack $w.buttons.cancel -side right -padx 5
|
|
pack $w.buttons -side bottom -fill x -pady 10 -padx 10
|
|
|
|
set w_rev [::choose_rev::new $w.rev [mc Revision]]
|
|
$w_rev bind_listbox <Double-Button-1> [cb _open]
|
|
pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5
|
|
|
|
bind $w <Visibility> [cb _visible]
|
|
bind $w <Key-Escape> [list destroy $w]
|
|
bind $w <Key-Return> [cb _open]\;break
|
|
tkwait window $w
|
|
}
|
|
|
|
method _open {} {
|
|
if {[catch {$w_rev commit_or_die} err]} {
|
|
return
|
|
}
|
|
set name [$w_rev get]
|
|
destroy $w
|
|
browser::new $name
|
|
}
|
|
|
|
method _visible {} {
|
|
grab $w
|
|
$w_rev focus_filter
|
|
}
|
|
|
|
}
|