[thirdparty/git.git] / git-gui / lib / browser.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 use_ttk NS
	make_dialog top w
	wm withdraw $top
	wm title $top [mc "%s (%s): File Browser" [appname] [reponame]]

	if {$path ne {}} {
		if {[string index $path end] ne {/}} {
			append path /
		}
	}

	set browser_commit $commit
	set browser_path "$browser_commit:[escape_path $path]"

	${NS}::label $w.path \
		-textvariable @browser_path \
		-anchor w \
		-justify left \
		-font font_uibold
	if {!$use_ttk} { $w.path configure -borderwidth 1 -relief sunken}
	pack $w.path -anchor w -side top -fill x

	${NS}::frame $w.list
	set w_list $w.list.l
	text $w_list -background white -foreground black \
		-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]
	rmsel_tag $w_list
	${NS}::scrollbar $w.list.sbx -orient h -command [list $w_list xview]
	${NS}::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

	${NS}::label $w.status \
		-textvariable @browser_status \
		-anchor w \
		-justify left
	if {!$use_ttk} { $w.status configure -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]
	wm deiconify $top
	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 utf-8
	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 {} {
	global use_ttk NS
	make_dialog top w
	wm withdraw $top
	wm title $top [mc "%s (%s): Browse Branch Files" [appname] [reponame]]
	if {$top ne {.}} {
		wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
		wm transient $top .
	}

	${NS}::label $w.header \
		-text [mc "Browse Branch Files"] \
		-font font_uibold \
		-anchor center
	pack $w.header -side top -fill x

	${NS}::frame $w.buttons
	${NS}::button $w.buttons.browse -text [mc Browse] \
		-default active \
		-command [cb _open]
	pack $w.buttons.browse -side right
	${NS}::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
	wm deiconify $top
	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
}

}
Commit	Line	Data
f522c9b5 SP	1	# git-gui tree browser
	2	# Copyright (C) 2006, 2007 Shawn Pearce
	3
c74b6c66 SP	4	class browser {
c74b6c66 SP	5
dac70892 SP	6	image create photo ::browser::img_parent -data {R0lGODlhEAAQAIUAAPwCBBxSHBxOHMTSzNzu3KzCtBRGHCSKFIzCjLzSxBQ2FAxGHDzCLCyeHBQ+FHSmfAwuFBxKLDSCNMzizISyjJzOnDSyLAw+FAQSDAQeDBxWJAwmDAQOBKzWrDymNAQaDAQODAwaDDyKTFSyXFTGTEy6TAQCBAQKDAwiFBQyHAwSFAwmHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAZ1QIBwSCwaj0hiQCBICpcDQsFgGAaIguhhi0gohIsrQEDYMhiNrRfgeAQC5fMCAolIDhD2hFI5WC4YRBkaBxsOE2l/RxsHHA4dHmkfRyAbIQ4iIyQlB5NFGCAACiakpSZEJyinTgAcKSesACorgU4mJ6uxR35BACH+aENyZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3IuY29tADs=}
	7	image create photo ::browser::img_rblob -data {R0lGODlhEAAQAIUAAPwCBFxaXNze3Ly2rJSWjPz+/Ozq7GxqbJyanPT29HRydMzOzDQyNIyKjERCROTi3Pz69PTy7Pzy7PTu5Ozm3LyqlJyWlJSSjJSOhOzi1LyulPz27PTq3PTm1OzezLyqjIyKhJSKfOzaxPz29OzizLyidIyGdIyCdOTOpLymhOzavOTStMTCtMS+rMS6pMSynMSulLyedAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAaQQIAQECgajcNkQMBkDgKEQFK4LFgLhkMBIVUKroWEYlEgMLxbBKLQUBwc52HgAQ4LBo049atWQyIPA3pEdFcQEhMUFYNVagQWFxgZGoxfYRsTHB0eH5UJCJAYICEinUoPIxIcHCQkIiIllQYEGCEhJicoKYwPmiQeKisrKLFKLCwtLi8wHyUlMYwM0tPUDH5BACH+aENyZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3IuY29tADs=}
	8	image create photo ::browser::img_xblob -data {R0lGODlhEAAQAIYAAPwCBFRWVFxaXNza3OTi3Nze3Ly2tJyanPz+/Ozq7GxubNzSxMzOzMTGxHRybDQyNLy+vHRydHx6fKSipISChIyKjGxqbERCRCwuLLy6vGRiZExKTCQiJAwKDLSytLy2rJSSlHx+fDw6PKyqrBQWFPTu5Ozm3LyulLS2tCQmJAQCBPTq3Ozi1MSynCwqLAQGBOTazOzizOzezLyqjBweHNzSvOzaxKyurHRuZNzOtLymhDw+PIyCdOzWvOTOpLyidNzKtOTStLyifMTCtMS+rLyedAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAfZgACCAAEChYeGg4oCAwQFjgYBBwGKggEECJkICQoIkwADCwwNDY2mDA4Lng8QDhESsLARExQVDhYXGBkWExIaGw8cHR4SCQQfFQ8eFgUgIQEiwiMSBMYfGB4atwEXDyQd0wQlJicPKAHoFyIpJCoeDgMrLC0YKBsX6i4kL+4OMDEyZijr5oLGNxUqUCioEcPGDAwjPNyI6MEDChQjcOSwsUDHgw07RIgI4KCkAgs8cvTw8eOBogAxQtXIASTISiEuBwUYMoRIixYnZggpUgTDywdIkWJIitRPIAAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
	9	image create photo ::browser::img_tree -data {R0lGODlhEAAQAIYAAPwCBAQCBExKTBwWHMzKzOzq7ERCRExGTCwqLARqnAQ+ZHR2dKyqrNTOzHx2fCQiJMTi9NTu9HzC3AxmnAQ+XPTm7Dy67DymzITC3IzG5AxypHRydKymrMzOzOzu7BweHByy9AyGtFyy1IzG3NTu/ARupFRSVByazBR6rAyGvFyuzJTK3MTm9BR+tAxWhHS61MTi7Pz+/IymvCxulBRelAx2rHS63Pz6/PTy9PTu9Nza3ISitBRupFSixNTS1CxqnDQyNMzGzOTi5MTCxMTGxGxubGxqbLy2vLSutGRiZLy6vLSytKyurDQuNFxaXKSipDw6PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAfDgACCAAECg4eIAAMEBQYHCImDBgkKCwwNBQIBBw4Bhw8QERITFJYEFQUFnoIPFhcYoRkaFBscHR4Ggh8gIRciEiMQJBkltCa6JyUoKSkXKhIrLCQYuQAPLS4TEyUhKb0qLzDVAjEFMjMuNBMoNcw21QY3ODkFOjs82RM1PfDzFRU3fOggcM7Fj2pAgggRokOHDx9DhhAZUqQaISBGhjwMEvEIkiIHEgUAkgSJkiNLmFSMJChAEydPGBSBwvJQgAc0/QQCACH+aENyZWF0ZWQgYnkgQk1QVG9HSUYgUHJvIHZlcnNpb24gMi41DQqpIERldmVsQ29yIDE5OTcsMTk5OC4gQWxsIHJpZ2h0cyByZXNlcnZlZC4NCmh0dHA6Ly93d3cuZGV2ZWxjb3IuY29tADs=}
	10	image create photo ::browser::img_symlink -data {R0lGODlhEAAQAIQAAPwCBCwqLLSytLy+vERGRFRWVDQ2NKSmpAQCBKyurMTGxISChJyanHR2dIyKjGxubHRydGRmZIyOjFxeXHx6fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAVbICACwWieY1CibCCsrBkMb0zchSEcNYskCtqBBzshFkOGQFk0IRqOxqPBODRHCMhCQKteRc9FI/KQWGOIyFYgkDC+gPR4snCcfRGKOIKIgSMQE31+f4OEYCZ+IQAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
	11	image create photo ::browser::img_unknown -data {R0lGODlhEAAQAIUAAPwCBFxaXIyKjNTW1Nze3LS2tJyanER2RGS+VPz+/PTu5GxqbPz69BQ6BCxeLFSqRPT29HRydMzOzDQyNERmPKSypCRWHIyKhERCRDyGPKz2nESiLBxGHCyCHGxubPz6/PTy7Ozi1Ly2rKSipOzm3LyqlKSWhCRyFOzizLymhNTKtNzOvOzaxOTStPz27OzWvOTOpLSupLyedMS+rMS6pMSulLyqjLymfLyifAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAamQIAQECgajcOkYEBoDgoBQyAJOCCuiENCsWBIh9aGw9F4HCARiXciRDQoBUnlYRlcIgsMG5CxXAgMGhscBRAEBRd7AB0eBBoIgxUfICEiikSPgyMMIAokJZcBkBybJgomIaBJAZoMpyCmqkMBFCcVCrgKKAwpoSorKqchKCwtvasIFBIhLiYvLzDHsxQNMcMKLDAwMqEz3jQ1NTY3ONyrE+jp6hN+QQAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
	12
c74b6c66 SP	13	field w
	14	field browser_commit
	15	field browser_path
	16	field browser_files {}
1ac17950	17	field browser_status [mc "Starting..."]
c74b6c66 SP	18	field browser_stack {}
	19	field browser_busy 1
	20
56e29f59 SP	21	field ls_buf {}; # Buffered record output from ls-tree
56e29f59 SP	22
85d2d597	23	constructor new {commit {path {}}} {
c80d7be5 PT	24	global cursor_ptr M1B use_ttk NS
	25	make_dialog top w
	26	wm withdraw $top
a3d97afa	27	wm title $top [mc "%s (%s): File Browser" [appname] [reponame]]
c74b6c66	28
80e66678 BW	29	if {$path ne {}} {
	30	if {[string index $path end] ne {/}} {
	31	append path /
	32	}
	33	}
	34
c74b6c66	35	set browser_commit $commit
80e66678	36	set browser_path "$browser_commit:[escape_path $path]"
c74b6c66	37
c80d7be5	38	${NS}::label $w.path \
c74b6c66	39	-textvariable @browser_path \
f522c9b5 SP	40	-anchor w \
f522c9b5 SP	41	-justify left \
f522c9b5	42	-font font_uibold
c80d7be5	43	if {!$use_ttk} { $w.path configure -borderwidth 1 -relief sunken}
f522c9b5 SP	44	pack $w.path -anchor w -side top -fill x
f522c9b5 SP	45
c80d7be5	46	${NS}::frame $w.list
c74b6c66	47	set w_list $w.list.l
c382fdd7 PH	48	text $w_list -background white -foreground black \
c382fdd7 PH	49	-borderwidth 0 \
f522c9b5 SP	50	-cursor $cursor_ptr \
	51	-state disabled \
	52	-wrap none \
	53	-height 20 \
	54	-width 70 \
	55	-xscrollcommand [list $w.list.sbx set] \
	56	-yscrollcommand [list $w.list.sby set]
3849bfba	57	rmsel_tag $w_list
c80d7be5 PT	58	${NS}::scrollbar $w.list.sbx -orient h -command [list $w_list xview]
c80d7be5 PT	59	${NS}::scrollbar $w.list.sby -orient v -command [list $w_list yview]
f522c9b5 SP	60	pack $w.list.sbx -side bottom -fill x
	61	pack $w.list.sby -side right -fill y
	62	pack $w_list -side left -fill both -expand 1
	63	pack $w.list -side top -fill both -expand 1
	64
c80d7be5	65	${NS}::label $w.status \
c74b6c66	66	-textvariable @browser_status \
f522c9b5	67	-anchor w \
c80d7be5 PT	68	-justify left
c80d7be5 PT	69	if {!$use_ttk} { $w.status configure -borderwidth 1 -relief sunken}
f522c9b5 SP	70	pack $w.status -anchor w -side bottom -fill x
f522c9b5 SP	71
c74b6c66 SP	72	bind $w_list <Button-1> "[cb _click 0 @%x,%y];break"
	73	bind $w_list <Double-Button-1> "[cb _click 1 @%x,%y];break"
	74	bind $w_list <$M1B-Up> "[cb _parent] ;break"
	75	bind $w_list <$M1B-Left> "[cb _parent] ;break"
	76	bind $w_list <Up> "[cb _move -1] ;break"
	77	bind $w_list <Down> "[cb _move 1] ;break"
	78	bind $w_list <$M1B-Right> "[cb _enter] ;break"
	79	bind $w_list <Return> "[cb _enter] ;break"
	80	bind $w_list <Prior> "[cb _page -1] ;break"
	81	bind $w_list <Next> "[cb _page 1] ;break"
f522c9b5 SP	82	bind $w_list <Left> break
	83	bind $w_list <Right> break
	84
c74b6c66	85	bind $w_list <Visibility> [list focus $w_list]
c80d7be5	86	wm deiconify $top
c74b6c66	87	set w $w_list
85d2d597 SP	88	if {$path ne {}} {
	89	_ls $this $browser_commit:$path $path
	90	} else {
	91	_ls $this $browser_commit $path
	92	}
c74b6c66	93	return $this
f522c9b5 SP	94	}
f522c9b5 SP	95
c74b6c66 SP	96	method _move {dir} {
c74b6c66 SP	97	if {$browser_busy} return
f522c9b5 SP	98	set lno [lindex [split [$w index in_sel.first] .] 0]
f522c9b5 SP	99	incr lno $dir
c74b6c66	100	if {[lindex $browser_files [expr {$lno - 1}]] ne {}} {
f522c9b5 SP	101	$w tag remove in_sel 0.0 end
	102	$w tag add in_sel $lno.0 [expr {$lno + 1}].0
	103	$w see $lno.0
	104	}
	105	}
	106
c74b6c66 SP	107	method _page {dir} {
c74b6c66 SP	108	if {$browser_busy} return
f522c9b5 SP	109	$w yview scroll $dir pages
	110	set lno [expr {int(
	111	[lindex [$w yview] 0]
c74b6c66	112	* [llength $browser_files]
f522c9b5	113	+ 1)}]
c74b6c66	114	if {[lindex $browser_files [expr {$lno - 1}]] ne {}} {
f522c9b5 SP	115	$w tag remove in_sel 0.0 end
	116	$w tag add in_sel $lno.0 [expr {$lno + 1}].0
	117	$w see $lno.0
	118	}
	119	}
	120
c74b6c66 SP	121	method _parent {} {
	122	if {$browser_busy} return
	123	set info [lindex $browser_files 0]
f522c9b5	124	if {[lindex $info 0] eq {parent}} {
c74b6c66 SP	125	set parent [lindex $browser_stack end-1]
	126	set browser_stack [lrange $browser_stack 0 end-2]
	127	if {$browser_stack eq {}} {
	128	regsub {:.*$} $browser_path {:} browser_path
f522c9b5	129	} else {
1ab86286	130	regsub {/[^/]+/$} $browser_path {/} browser_path
f522c9b5	131	}
1ac17950	132	set browser_status [mc "Loading %s..." $browser_path]
c74b6c66	133	_ls $this [lindex $parent 0] [lindex $parent 1]
f522c9b5 SP	134	}
	135	}
	136
c74b6c66 SP	137	method _enter {} {
c74b6c66 SP	138	if {$browser_busy} return
f522c9b5	139	set lno [lindex [split [$w index in_sel.first] .] 0]
c74b6c66	140	set info [lindex $browser_files [expr {$lno - 1}]]
f522c9b5 SP	141	if {$info ne {}} {
	142	switch -- [lindex $info 0] {
	143	parent {
c74b6c66	144	_parent $this
f522c9b5 SP	145	}
	146	tree {
	147	set name [lindex $info 2]
	148	set escn [escape_path $name]
1ac17950	149	set browser_status [mc "Loading %s..." $escn]
c74b6c66 SP	150	append browser_path $escn
c74b6c66 SP	151	_ls $this [lindex $info 1] $name
f522c9b5 SP	152	}
	153	blob {
	154	set name [lindex $info 2]
	155	set p {}
c74b6c66	156	foreach n $browser_stack {
f522c9b5 SP	157	append p [lindex $n 1]
	158	}
	159	append p $name
f7078b40	160	blame::new $browser_commit $p {}
f522c9b5 SP	161	}
	162	}
	163	}
	164	}
	165
c74b6c66 SP	166	method _click {was_double_click pos} {
c74b6c66 SP	167	if {$browser_busy} return
f522c9b5 SP	168	set lno [lindex [split [$w index $pos] .] 0]
	169	focus $w
	170
c74b6c66	171	if {[lindex $browser_files [expr {$lno - 1}]] ne {}} {
f522c9b5 SP	172	$w tag remove in_sel 0.0 end
	173	$w tag add in_sel $lno.0 [expr {$lno + 1}].0
	174	if {$was_double_click} {
c74b6c66	175	_enter $this
f522c9b5 SP	176	}
	177	}
	178	}
	179
c74b6c66	180	method _ls {tree_id {name {}}} {
56e29f59	181	set ls_buf {}
c74b6c66 SP	182	set browser_files {}
c74b6c66 SP	183	set browser_busy 1
f522c9b5 SP	184
	185	$w conf -state normal
	186	$w tag remove in_sel 0.0 end
	187	$w delete 0.0 end
c74b6c66	188	if {$browser_stack ne {}} {
f522c9b5 SP	189	$w image create end \
	190	-align center -padx 5 -pady 1 \
	191	-name icon0 \
dac70892	192	-image ::browser::img_parent
1ac17950	193	$w insert end [mc "\[Up To Parent\]"]
c74b6c66	194	lappend browser_files parent
f522c9b5	195	}
c74b6c66	196	lappend browser_stack [list $tree_id $name]
f522c9b5 SP	197	$w conf -state disabled
f522c9b5 SP	198
0b812616	199	set fd [git_read ls-tree -z $tree_id]
e2039e94	200	fconfigure $fd -blocking 0 -translation binary -encoding utf-8
c74b6c66	201	fileevent $fd readable [cb _read $fd]
f522c9b5 SP	202	}
f522c9b5 SP	203
c74b6c66	204	method _read {fd} {
56e29f59 SP	205	append ls_buf [read $fd]
	206	set pck [split $ls_buf "\0"]
	207	set ls_buf [lindex $pck end]
f522c9b5	208
c74b6c66	209	set n [llength $browser_files]
f522c9b5 SP	210	$w conf -state normal
f522c9b5 SP	211	foreach p [lrange $pck 0 end-1] {
56e29f59 SP	212	set tab [string first "\t" $p]
	213	if {$tab == -1} continue
	214
	215	set info [split [string range $p 0 [expr {$tab - 1}]] { }]
	216	set path [string range $p [expr {$tab + 1}] end]
	217	set type [lindex $info 1]
f522c9b5 SP	218	set object [lindex $info 2]
	219
	220	switch -- $type {
	221	blob {
dac70892 SP	222	scan [lindex $info 0] %o mode
	223	if {$mode == 0120000} {
	224	set image ::browser::img_symlink
	225	} elseif {($mode & 0100) != 0} {
	226	set image ::browser::img_xblob
	227	} else {
	228	set image ::browser::img_rblob
	229	}
f522c9b5 SP	230	}
f522c9b5 SP	231	tree {
dac70892	232	set image ::browser::img_tree
f522c9b5 SP	233	append path /
	234	}
	235	default {
dac70892	236	set image ::browser::img_unknown
f522c9b5 SP	237	}
	238	}
	239
	240	if {$n > 0} {$w insert end "\n"}
	241	$w image create end \
	242	-align center -padx 5 -pady 1 \
	243	-name icon[incr n] \
	244	-image $image
	245	$w insert end [escape_path $path]
c74b6c66	246	lappend browser_files [list $type $object $path]
f522c9b5 SP	247	}
	248	$w conf -state disabled
	249
	250	if {[eof $fd]} {
	251	close $fd
1ac17950	252	set browser_status [mc "Ready."]
c74b6c66	253	set browser_busy 0
56e29f59	254	set ls_buf {}
f522c9b5 SP	255	if {$n > 0} {
	256	$w tag add in_sel 1.0 2.0
	257	focus -force $w
	258	}
	259	}
c74b6c66 SP	260	} ifdeleted {
	261	catch {close $fd}
	262	}
	263
f522c9b5	264	}
8e891fac SP	265
	266	class browser_open {
	267
	268	field w ; # widget path
	269	field w_rev ; # mega-widget to pick the initial revision
	270
	271	constructor dialog {} {
c80d7be5 PT	272	global use_ttk NS
	273	make_dialog top w
	274	wm withdraw $top
a3d97afa	275	wm title $top [mc "%s (%s): Browse Branch Files" [appname] [reponame]]
8e891fac SP	276	if {$top ne {.}} {
8e891fac SP	277	wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
c80d7be5	278	wm transient $top .
8e891fac SP	279	}
8e891fac SP	280
c80d7be5	281	${NS}::label $w.header \
1ac17950	282	-text [mc "Browse Branch Files"] \
c80d7be5 PT	283	-font font_uibold \
c80d7be5 PT	284	-anchor center
8e891fac SP	285	pack $w.header -side top -fill x
8e891fac SP	286
c80d7be5 PT	287	${NS}::frame $w.buttons
c80d7be5 PT	288	${NS}::button $w.buttons.browse -text [mc Browse] \
8e891fac SP	289	-default active \
	290	-command [cb _open]
	291	pack $w.buttons.browse -side right
c80d7be5	292	${NS}::button $w.buttons.cancel -text [mc Cancel] \
8e891fac SP	293	-command [list destroy $w]
	294	pack $w.buttons.cancel -side right -padx 5
	295	pack $w.buttons -side bottom -fill x -pady 10 -padx 10
	296
1ac17950	297	set w_rev [::choose_rev::new $w.rev [mc Revision]]
8e891fac SP	298	$w_rev bind_listbox <Double-Button-1> [cb _open]
	299	pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5
	300
	301	bind $w <Visibility> [cb _visible]
	302	bind $w <Key-Escape> [list destroy $w]
	303	bind $w <Key-Return> [cb _open]\;break
c80d7be5	304	wm deiconify $top
8e891fac SP	305	tkwait window $w
	306	}
	307
	308	method _open {} {
	309	if {[catch {$w_rev commit_or_die} err]} {
	310	return
	311	}
	312	set name [$w_rev get]
	313	destroy $w
	314	browser::new $name
	315	}
	316
	317	method _visible {} {
	318	grab $w
	319	$w_rev focus_filter
	320	}
	321
	322	}