[thirdparty/git.git] / lib / choose_rev.tcl

# git-gui revision chooser
# Copyright (C) 2006, 2007 Shawn Pearce

class choose_rev {

image create photo ::choose_rev::img_find -data {R0lGODlhEAAQAIYAAPwCBCQmJDw+PBQSFAQCBMza3NTm5MTW1HyChOT29Ozq7MTq7Kze5Kzm7Oz6/NTy9Iza5GzGzKzS1Nzy9Nz29Kzq9HTGzHTK1Lza3AwKDLzu9JTi7HTW5GTCzITO1Mzq7Hza5FTK1ESyvHzKzKzW3DQyNDyqtDw6PIzW5HzGzAT+/Dw+RKyurNTOzMTGxMS+tJSGdATCxHRydLSqpLymnLSijBweHERCRNze3Pz69PTy9Oze1OTSxOTGrMSqlLy+vPTu5OzSvMymjNTGvNS+tMy2pMyunMSefAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAe4gACCAAECA4OIiAIEBQYHBAKJgwIICQoLDA0IkZIECQ4PCxARCwSSAxITFA8VEBYXGBmJAQYLGhUbHB0eH7KIGRIMEBAgISIjJKaIJQQLFxERIialkieUGigpKRoIBCqJKyyLBwvJAioEyoICLS4v6QQwMQQyLuqLli8zNDU2BCf1lN3AkUPHDh49fAQAAEnGD1MCCALZEaSHkIUMBQS8wWMIkSJGhBzBmFEGgRsBUqpMiSgdAD+BAAAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}

field w               ; # our megawidget path
field w_list          ; # list of currently filtered specs
field w_filter        ; # filter entry for $w_list

field c_expr        {}; # current revision expression
field filter          ; # current filter string
field revtype     head; # type of revision chosen
field cur_specs [list]; # list of specs for $revtype
field spec_head       ; # list of all head specs
field spec_trck       ; # list of all tracking branch specs
field spec_tag        ; # list of all tag specs
field tip_data        ; # array of tip commit info by refname
field log_last        ; # array of reflog date by refname

field tooltip_wm        {} ; # Current tooltip toplevel, if open
field tooltip_t         {} ; # Text widget in $tooltip_wm
field tooltip_timer     {} ; # Current timer event for our tooltip

proc new {path {title {}}} {
	return [_new $path 0 $title]
}

proc new_unmerged {path {title {}}} {
	return [_new $path 1 $title]
}

constructor _new {path unmerged_only title} {
	global current_branch is_detached

	if {![info exists ::all_remotes]} {
		load_all_remotes
	}

	set w $path

	if {$title ne {}} {
		labelframe $w -text $title
	} else {
		frame $w
	}
	bind $w <Destroy> [cb _delete %W]

	if {$is_detached} {
		radiobutton $w.detachedhead_r \
			-anchor w \
			-text [mc "This Detached Checkout"] \
			-value HEAD \
			-variable @revtype
		grid $w.detachedhead_r -sticky we -padx {0 5} -columnspan 2
	}

	radiobutton $w.expr_r \
		-text [mc "Revision Expression:"] \
		-value expr \
		-variable @revtype
	entry $w.expr_t \
		-borderwidth 1 \
		-relief sunken \
		-width 50 \
		-textvariable @c_expr \
		-validate key \
		-validatecommand [cb _validate %d %S]
	grid $w.expr_r $w.expr_t -sticky we -padx {0 5}

	frame $w.types
	radiobutton $w.types.head_r \
		-text [mc "Local Branch"] \
		-value head \
		-variable @revtype
	pack $w.types.head_r -side left
	radiobutton $w.types.trck_r \
		-text [mc "Tracking Branch"] \
		-value trck \
		-variable @revtype
	pack $w.types.trck_r -side left
	radiobutton $w.types.tag_r \
		-text [mc "Tag"] \
		-value tag \
		-variable @revtype
	pack $w.types.tag_r -side left
	set w_filter $w.types.filter
	entry $w_filter \
		-borderwidth 1 \
		-relief sunken \
		-width 12 \
		-textvariable @filter \
		-validate key \
		-validatecommand [cb _filter %P]
	pack $w_filter -side right
	pack [label $w.types.filter_icon \
		-image ::choose_rev::img_find \
		] -side right
	grid $w.types -sticky we -padx {0 5} -columnspan 2

	frame $w.list
	set w_list $w.list.l
	listbox $w_list \
		-font font_diff \
		-width 50 \
		-height 10 \
		-selectmode browse \
		-exportselection false \
		-xscrollcommand [cb _sb_set $w.list.sbx h] \
		-yscrollcommand [cb _sb_set $w.list.sby v]
	pack $w_list -fill both -expand 1
	grid $w.list -sticky nswe -padx {20 5} -columnspan 2
	bind $w_list <Any-Motion>  [cb _show_tooltip @%x,%y]
	bind $w_list <Any-Enter>   [cb _hide_tooltip]
	bind $w_list <Any-Leave>   [cb _hide_tooltip]
	bind $w_list <Destroy>     [cb _hide_tooltip]

	grid columnconfigure $w 1 -weight 1
	if {$is_detached} {
		grid rowconfigure $w 3 -weight 1
	} else {
		grid rowconfigure $w 2 -weight 1
	}

	trace add variable @revtype write [cb _select]
	bind $w_filter <Key-Return> [list focus $w_list]\;break
	bind $w_filter <Key-Down>   [list focus $w_list]

	set fmt list
	append fmt { %(refname)}
	append fmt { [list}
	append fmt { %(objecttype)}
	append fmt { %(objectname)}
	append fmt { [concat %(taggername) %(authorname)]}
	append fmt { [reformat_date [concat %(taggerdate) %(authordate)]]}
	append fmt { %(subject)}
	append fmt {] [list}
	append fmt { %(*objecttype)}
	append fmt { %(*objectname)}
	append fmt { %(*authorname)}
	append fmt { [reformat_date %(*authordate)]}
	append fmt { %(*subject)}
	append fmt {]}
	set all_refn [list]
	set fr_fd [git_read for-each-ref \
		--tcl \
		--sort=-taggerdate \
		--format=$fmt \
		refs/heads \
		refs/remotes \
		refs/tags \
		]
	fconfigure $fr_fd -translation lf -encoding utf-8
	while {[gets $fr_fd line] > 0} {
		set line [eval $line]
		if {[lindex $line 1 0] eq {tag}} {
			if {[lindex $line 2 0] eq {commit}} {
				set sha1 [lindex $line 2 1]
			} else {
				continue
			}
		} elseif {[lindex $line 1 0] eq {commit}} {
			set sha1 [lindex $line 1 1]
		} else {
			continue
		}
		set refn [lindex $line 0]
		set tip_data($refn) [lrange $line 1 end]
		lappend cmt_refn($sha1) $refn
		lappend all_refn $refn
	}
	close $fr_fd

	if {$unmerged_only} {
		set fr_fd [git_read rev-list --all ^$::HEAD]
		while {[gets $fr_fd sha1] > 0} {
			if {[catch {set rlst $cmt_refn($sha1)}]} continue
			foreach refn $rlst {
				set inc($refn) 1
			}
		}
		close $fr_fd
	} else {
		foreach refn $all_refn {
			set inc($refn) 1
		}
	}

	set spec_head [list]
	foreach name [load_all_heads] {
		set refn refs/heads/$name
		if {[info exists inc($refn)]} {
			lappend spec_head [list $name $refn]
		}
	}

	set spec_trck [list]
	foreach spec [all_tracking_branches] {
		set refn [lindex $spec 0]
		if {[info exists inc($refn)]} {
			regsub ^refs/(heads|remotes)/ $refn {} name
			lappend spec_trck [concat $name $spec]
		}
	}

	set spec_tag [list]
	foreach name [load_all_tags] {
		set refn refs/tags/$name
		if {[info exists inc($refn)]} {
			lappend spec_tag [list $name $refn]
		}
	}

		  if {$is_detached}             { set revtype HEAD
	} elseif {[llength $spec_head] > 0} { set revtype head
	} elseif {[llength $spec_trck] > 0} { set revtype trck
	} elseif {[llength $spec_tag ] > 0} { set revtype tag
	} else {                              set revtype expr
	}

	if {$revtype eq {head} && $current_branch ne {}} {
		set i 0
		foreach spec $spec_head {
			if {[lindex $spec 0] eq $current_branch} {
				$w_list selection clear 0 end
				$w_list selection set $i
				break
			}
			incr i
		}
	}

	return $this
}

method none {text} {
	if {![winfo exists $w.none_r]} {
		radiobutton $w.none_r \
			-anchor w \
			-value none \
			-variable @revtype
		grid $w.none_r -sticky we -padx {0 5} -columnspan 2
	}
	$w.none_r configure -text $text
}

method get {} {
	switch -- $revtype {
	head -
	trck -
	tag  {
		set i [$w_list curselection]
		if {$i ne {}} {
			return [lindex $cur_specs $i 0]
		} else {
			return {}
		}
	}

	HEAD { return HEAD                     }
	expr { return $c_expr                  }
	none { return {}                       }
	default { error "unknown type of revision" }
	}
}

method pick_tracking_branch {} {
	set revtype trck
}

method focus_filter {} {
	if {[$w_filter cget -state] eq {normal}} {
		focus $w_filter
	}
}

method bind_listbox {event script}  {
	bind $w_list $event $script
}

method get_local_branch {} {
	if {$revtype eq {head}} {
		return [_expr $this]
	} else {
		return {}
	}
}

method get_tracking_branch {} {
	set i [$w_list curselection]
	if {$i eq {} || $revtype ne {trck}} {
		return {}
	}
	return [lrange [lindex $cur_specs $i] 1 end]
}

method get_commit {} {
	set e [_expr $this]
	if {$e eq {}} {
		return {}
	}
	return [git rev-parse --verify "$e^0"]
}

method commit_or_die {} {
	if {[catch {set new [get_commit $this]} err]} {

		# Cleanup the not-so-friendly error from rev-parse.
		#
		regsub {^fatal:\s*} $err {} err
		if {$err eq {Needed a single revision}} {
			set err {}
		}

		set top [winfo toplevel $w]
		set msg [append [mc "Invalid revision: %s" [get $this]] "\n\n$err"]
		tk_messageBox \
			-icon error \
			-type ok \
			-title [wm title $top] \
			-parent $top \
			-message $msg
		error $msg
	}
	return $new
}

method _expr {} {
	switch -- $revtype {
	head -
	trck -
	tag  {
		set i [$w_list curselection]
		if {$i ne {}} {
			return [lindex $cur_specs $i 1]
		} else {
			error [mc "No revision selected."]
		}
	}

	expr {
		if {$c_expr ne {}} {
			return $c_expr
		} else {
			error [mc "Revision expression is empty."]
		}
	}
	HEAD { return HEAD                     }
	none { return {}                       }
	default { error "unknown type of revision"      }
	}
}

method _validate {d S} {
	if {$d == 1} {
		if {[regexp {\s} $S]} {
			return 0
		}
		if {[string length $S] > 0} {
			set revtype expr
		}
	}
	return 1
}

method _filter {P} {
	if {[regexp {\s} $P]} {
		return 0
	}
	_rebuild $this $P
	return 1
}

method _select {args} {
	_rebuild $this $filter
	focus_filter $this
}

method _rebuild {pat} {
	set ste normal
	switch -- $revtype {
	head { set new $spec_head }
	trck { set new $spec_trck }
	tag  { set new $spec_tag  }
	expr -
	HEAD -
	none {
		set new [list]
		set ste disabled
	}
	}

	if {[$w_list cget -state] eq {disabled}} {
		$w_list configure -state normal
	}
	$w_list delete 0 end

	if {$pat ne {}} {
		set pat *${pat}*
	}
	set cur_specs [list]
	foreach spec $new {
		set txt [lindex $spec 0]
		if {$pat eq {} || [string match $pat $txt]} {
			lappend cur_specs $spec
			$w_list insert end $txt
		}
	}
	if {$cur_specs ne {}} {
		$w_list selection clear 0 end
		$w_list selection set 0
	}

	if {[$w_filter cget -state] ne $ste} {
		$w_list   configure -state $ste
		$w_filter configure -state $ste
	}
}

method _delete {current} {
	if {$current eq $w} {
		delete_this
	}
}

method _sb_set {sb orient first last} {
	set old_focus [focus -lastfor $w]

	if {$first == 0 && $last == 1} {
		if {[winfo exists $sb]} {
			destroy $sb
			if {$old_focus ne {}} {
				update
				focus $old_focus
			}
		}
		return
	}

	if {![winfo exists $sb]} {
		if {$orient eq {h}} {
			scrollbar $sb -orient h -command [list $w_list xview]
			pack $sb -fill x -side bottom -before $w_list
		} else {
			scrollbar $sb -orient v -command [list $w_list yview]
			pack $sb -fill y -side right -before $w_list
		}
		if {$old_focus ne {}} {
			update
			focus $old_focus
		}
	}
	$sb set $first $last
}

method _show_tooltip {pos} {
	if {$tooltip_wm ne {}} {
		_open_tooltip $this
	} elseif {$tooltip_timer eq {}} {
		set tooltip_timer [after 1000 [cb _open_tooltip]]
	}
}

method _open_tooltip {} {
	global remote_url

	set tooltip_timer {}
	set pos_x [winfo pointerx $w_list]
	set pos_y [winfo pointery $w_list]
	if {[winfo containing $pos_x $pos_y] ne $w_list} {
		_hide_tooltip $this
		return
	}

	set pos @[join [list \
		[expr {$pos_x - [winfo rootx $w_list]}] \
		[expr {$pos_y - [winfo rooty $w_list]}]] ,]
	set lno [$w_list index $pos]
	if {$lno eq {}} {
		_hide_tooltip $this
		return
	}

	set spec [lindex $cur_specs $lno]
	set refn [lindex $spec 1]
	if {$refn eq {}} {
		_hide_tooltip $this
		return
	}

	if {$tooltip_wm eq {}} {
		set tooltip_wm [toplevel $w_list.tooltip -borderwidth 1]
		wm overrideredirect $tooltip_wm 1
		wm transient $tooltip_wm [winfo toplevel $w_list]
		set tooltip_t $tooltip_wm.label
		text $tooltip_t \
			-takefocus 0 \
			-highlightthickness 0 \
			-relief flat \
			-borderwidth 0 \
			-wrap none \
			-background lightyellow \
			-foreground black
		$tooltip_t tag conf section_header -font font_uibold
		bind $tooltip_wm <Escape> [cb _hide_tooltip]
		pack $tooltip_t
	} else {
		$tooltip_t conf -state normal
		$tooltip_t delete 0.0 end
	}

	set data $tip_data($refn)
	if {[lindex $data 0 0] eq {tag}} {
		set tag  [lindex $data 0]
		if {[lindex $data 1 0] eq {commit}} {
			set cmit [lindex $data 1]
		} else {
			set cmit {}
		}
	} elseif {[lindex $data 0 0] eq {commit}} {
		set tag  {}
		set cmit [lindex $data 0]
	}

	$tooltip_t insert end [lindex $spec 0]
	set last [_reflog_last $this [lindex $spec 1]]
	if {$last ne {}} {
		$tooltip_t insert end "\n"
		$tooltip_t insert end [mc "Updated"]
		$tooltip_t insert end " $last"
	}
	$tooltip_t insert end "\n"

	if {$tag ne {}} {
		$tooltip_t insert end "\n"
		$tooltip_t insert end [mc "Tag"] section_header
		$tooltip_t insert end "  [lindex $tag 1]\n"
		$tooltip_t insert end [lindex $tag 2]
		$tooltip_t insert end " ([lindex $tag 3])\n"
		$tooltip_t insert end [lindex $tag 4]
		$tooltip_t insert end "\n"
	}

	if {$cmit ne {}} {
		$tooltip_t insert end "\n"
		$tooltip_t insert end [mc "Commit"] section_header
		$tooltip_t insert end "  [lindex $cmit 1]\n"
		$tooltip_t insert end [lindex $cmit 2]
		$tooltip_t insert end " ([lindex $cmit 3])\n"
		$tooltip_t insert end [lindex $cmit 4]
	}

	if {[llength $spec] > 2} {
		$tooltip_t insert end "\n"
		$tooltip_t insert end [mc "Remote"] section_header
		$tooltip_t insert end "  [lindex $spec 2]\n"
		$tooltip_t insert end [mc "URL"]
		$tooltip_t insert end " $remote_url([lindex $spec 2])\n"
		$tooltip_t insert end [mc "Branch"]
		$tooltip_t insert end " [lindex $spec 3]"
	}

	$tooltip_t conf -state disabled
	_position_tooltip $this
}

method _reflog_last {name} {
	if {[info exists reflog_last($name)]} {
		return reflog_last($name)
	}

	set last {}
	if {[catch {set last [file mtime [gitdir $name]]}]
	&& ![catch {set g [open [gitdir logs $name] r]}]} {
		fconfigure $g -translation binary
		while {[gets $g line] >= 0} {
			if {[regexp {> ([1-9][0-9]*) } $line line when]} {
				set last $when
			}
		}
		close $g
	}

	if {$last ne {}} {
		set last [format_date $last]
	}
	set reflog_last($name) $last
	return $last
}

method _position_tooltip {} {
	set max_h [lindex [split [$tooltip_t index end] .] 0]
	set max_w 0
	for {set i 1} {$i <= $max_h} {incr i} {
		set c [lindex [split [$tooltip_t index "$i.0 lineend"] .] 1]
		if {$c > $max_w} {set max_w $c}
	}
	$tooltip_t conf -width $max_w -height $max_h

	set req_w [winfo reqwidth  $tooltip_t]
	set req_h [winfo reqheight $tooltip_t]
	set pos_x [expr {[winfo pointerx .] +  5}]
	set pos_y [expr {[winfo pointery .] + 10}]

	set g "${req_w}x${req_h}"
	if {$pos_x >= 0} {append g +}
	append g $pos_x
	if {$pos_y >= 0} {append g +}
	append g $pos_y

	wm geometry $tooltip_wm $g
	raise $tooltip_wm
}

method _hide_tooltip {} {
	if {$tooltip_wm ne {}} {
		destroy $tooltip_wm
		set tooltip_wm {}
	}
	if {$tooltip_timer ne {}} {
		after cancel $tooltip_timer
		set tooltip_timer {}
	}
}

}
Commit	Line	Data
b1fa2bff SP	1	# git-gui revision chooser
	2	# Copyright (C) 2006, 2007 Shawn Pearce
	3
	4	class choose_rev {
	5
7618e6b1 SP	6	image create photo ::choose_rev::img_find -data {R0lGODlhEAAQAIYAAPwCBCQmJDw+PBQSFAQCBMza3NTm5MTW1HyChOT29Ozq7MTq7Kze5Kzm7Oz6/NTy9Iza5GzGzKzS1Nzy9Nz29Kzq9HTGzHTK1Lza3AwKDLzu9JTi7HTW5GTCzITO1Mzq7Hza5FTK1ESyvHzKzKzW3DQyNDyqtDw6PIzW5HzGzAT+/Dw+RKyurNTOzMTGxMS+tJSGdATCxHRydLSqpLymnLSijBweHERCRNze3Pz69PTy9Oze1OTSxOTGrMSqlLy+vPTu5OzSvMymjNTGvNS+tMy2pMyunMSefAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAe4gACCAAECA4OIiAIEBQYHBAKJgwIICQoLDA0IkZIECQ4PCxARCwSSAxITFA8VEBYXGBmJAQYLGhUbHB0eH7KIGRIMEBAgISIjJKaIJQQLFxERIialkieUGigpKRoIBCqJKyyLBwvJAioEyoICLS4v6QQwMQQyLuqLli8zNDU2BCf1lN3AkUPHDh49fAQAAEnGD1MCCALZEaSHkIUMBQS8wWMIkSJGhBzBmFEGgRsBUqpMiSgdAD+BAAAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
7618e6b1 SP	7
b1fa2bff	8	field w ; # our megawidget path
7618e6b1 SP	9	field w_list ; # list of currently filtered specs
7618e6b1 SP	10	field w_filter ; # filter entry for $w_list
b1fa2bff	11
b1fa2bff	12	field c_expr {}; # current revision expression
7618e6b1 SP	13	field filter ; # current filter string
	14	field revtype head; # type of revision chosen
	15	field cur_specs [list]; # list of specs for $revtype
	16	field spec_head ; # list of all head specs
	17	field spec_trck ; # list of all tracking branch specs
	18	field spec_tag ; # list of all tag specs
844c3f6f	19	field tip_data ; # array of tip commit info by refname
becafaac	20	field log_last ; # array of reflog date by refname
79a060e4	21
844c3f6f SP	22	field tooltip_wm {} ; # Current tooltip toplevel, if open
	23	field tooltip_t {} ; # Text widget in $tooltip_wm
	24	field tooltip_timer {} ; # Current timer event for our tooltip
	25
	26	proc new {path {title {}}} {
	27	return [_new $path 0 $title]
	28	}
	29
	30	proc new_unmerged {path {title {}}} {
	31	return [_new $path 1 $title]
	32	}
	33
	34	constructor _new {path unmerged_only title} {
d41b43eb	35	global current_branch is_detached
b1fa2bff	36
95af4d8d SP	37	if {![info exists ::all_remotes]} {
	38	load_all_remotes
	39	}
	40
b1fa2bff SP	41	set w $path
	42
	43	if {$title ne {}} {
	44	labelframe $w -text $title
	45	} else {
	46	frame $w
	47	}
	48	bind $w <Destroy> [cb _delete %W]
	49
d41b43eb SP	50	if {$is_detached} {
	51	radiobutton $w.detachedhead_r \
	52	-anchor w \
1ac17950	53	-text [mc "This Detached Checkout"] \
d41b43eb SP	54	-value HEAD \
	55	-variable @revtype
	56	grid $w.detachedhead_r -sticky we -padx {0 5} -columnspan 2
	57	}
	58
b1fa2bff	59	radiobutton $w.expr_r \
1ac17950	60	-text [mc "Revision Expression:"] \
b1fa2bff SP	61	-value expr \
	62	-variable @revtype
	63	entry $w.expr_t \
	64	-borderwidth 1 \
	65	-relief sunken \
	66	-width 50 \
	67	-textvariable @c_expr \
	68	-validate key \
	69	-validatecommand [cb _validate %d %S]
	70	grid $w.expr_r $w.expr_t -sticky we -padx {0 5}
7618e6b1 SP	71
	72	frame $w.types
	73	radiobutton $w.types.head_r \
1ac17950	74	-text [mc "Local Branch"] \
7618e6b1 SP	75	-value head \
	76	-variable @revtype
	77	pack $w.types.head_r -side left
	78	radiobutton $w.types.trck_r \
1ac17950	79	-text [mc "Tracking Branch"] \
7618e6b1 SP	80	-value trck \
	81	-variable @revtype
	82	pack $w.types.trck_r -side left
	83	radiobutton $w.types.tag_r \
1ac17950	84	-text [mc "Tag"] \
7618e6b1 SP	85	-value tag \
	86	-variable @revtype
	87	pack $w.types.tag_r -side left
	88	set w_filter $w.types.filter
	89	entry $w_filter \
	90	-borderwidth 1 \
	91	-relief sunken \
	92	-width 12 \
	93	-textvariable @filter \
	94	-validate key \
	95	-validatecommand [cb _filter %P]
	96	pack $w_filter -side right
	97	pack [label $w.types.filter_icon \
	98	-image ::choose_rev::img_find \
	99	] -side right
	100	grid $w.types -sticky we -padx {0 5} -columnspan 2
	101
	102	frame $w.list
	103	set w_list $w.list.l
	104	listbox $w_list \
	105	-font font_diff \
	106	-width 50 \
46a2df3a	107	-height 10 \
7618e6b1 SP	108	-selectmode browse \
	109	-exportselection false \
	110	-xscrollcommand [cb _sb_set $w.list.sbx h] \
	111	-yscrollcommand [cb _sb_set $w.list.sby v]
	112	pack $w_list -fill both -expand 1
	113	grid $w.list -sticky nswe -padx {20 5} -columnspan 2
844c3f6f SP	114	bind $w_list <Any-Motion> [cb _show_tooltip @%x,%y]
	115	bind $w_list <Any-Enter> [cb _hide_tooltip]
	116	bind $w_list <Any-Leave> [cb _hide_tooltip]
	117	bind $w_list <Destroy> [cb _hide_tooltip]
b1fa2bff SP	118
b1fa2bff SP	119	grid columnconfigure $w 1 -weight 1
d41b43eb SP	120	if {$is_detached} {
	121	grid rowconfigure $w 3 -weight 1
	122	} else {
	123	grid rowconfigure $w 2 -weight 1
	124	}
7618e6b1 SP	125
	126	trace add variable @revtype write [cb _select]
	127	bind $w_filter <Key-Return> [list focus $w_list]\;break
	128	bind $w_filter <Key-Down> [list focus $w_list]
	129
844c3f6f SP	130	set fmt list
	131	append fmt { %(refname)}
	132	append fmt { [list}
	133	append fmt { %(objecttype)}
	134	append fmt { %(objectname)}
	135	append fmt { [concat %(taggername) %(authorname)]}
66c75a5c	136	append fmt { [reformat_date [concat %(taggerdate) %(authordate)]]}
844c3f6f SP	137	append fmt { %(subject)}
	138	append fmt {] [list}
	139	append fmt { %(*objecttype)}
	140	append fmt { %(*objectname)}
	141	append fmt { %(*authorname)}
66c75a5c	142	append fmt { [reformat_date %(*authordate)]}
844c3f6f SP	143	append fmt { %(*subject)}
	144	append fmt {]}
	145	set all_refn [list]
	146	set fr_fd [git_read for-each-ref \
	147	--tcl \
	148	--sort=-taggerdate \
	149	--format=$fmt \
	150	refs/heads \
	151	refs/remotes \
	152	refs/tags \
	153	]
	154	fconfigure $fr_fd -translation lf -encoding utf-8
	155	while {[gets $fr_fd line] > 0} {
	156	set line [eval $line]
	157	if {[lindex $line 1 0] eq {tag}} {
	158	if {[lindex $line 2 0] eq {commit}} {
	159	set sha1 [lindex $line 2 1]
	160	} else {
	161	continue
	162	}
	163	} elseif {[lindex $line 1 0] eq {commit}} {
	164	set sha1 [lindex $line 1 1]
	165	} else {
	166	continue
	167	}
	168	set refn [lindex $line 0]
	169	set tip_data($refn) [lrange $line 1 end]
	170	lappend cmt_refn($sha1) $refn
	171	lappend all_refn $refn
	172	}
	173	close $fr_fd
	174
	175	if {$unmerged_only} {
	176	set fr_fd [git_read rev-list --all ^$::HEAD]
	177	while {[gets $fr_fd sha1] > 0} {
	178	if {[catch {set rlst $cmt_refn($sha1)}]} continue
	179	foreach refn $rlst {
	180	set inc($refn) 1
	181	}
	182	}
	183	close $fr_fd
	184	} else {
	185	foreach refn $all_refn {
	186	set inc($refn) 1
	187	}
	188	}
	189
7618e6b1	190	set spec_head [list]
d41b43eb	191	foreach name [load_all_heads] {
844c3f6f SP	192	set refn refs/heads/$name
	193	if {[info exists inc($refn)]} {
	194	lappend spec_head [list $name $refn]
	195	}
7618e6b1 SP	196	}
	197
	198	set spec_trck [list]
	199	foreach spec [all_tracking_branches] {
844c3f6f SP	200	set refn [lindex $spec 0]
	201	if {[info exists inc($refn)]} {
	202	regsub ^refs/(heads\|remotes)/ $refn {} name
	203	lappend spec_trck [concat $name $spec]
	204	}
7618e6b1 SP	205	}
	206
	207	set spec_tag [list]
	208	foreach name [load_all_tags] {
844c3f6f SP	209	set refn refs/tags/$name
	210	if {[info exists inc($refn)]} {
	211	lappend spec_tag [list $name $refn]
	212	}
7618e6b1 SP	213	}
7618e6b1 SP	214
d41b43eb SP	215	if {$is_detached} { set revtype HEAD
d41b43eb SP	216	} elseif {[llength $spec_head] > 0} { set revtype head
7618e6b1 SP	217	} elseif {[llength $spec_trck] > 0} { set revtype trck
	218	} elseif {[llength $spec_tag ] > 0} { set revtype tag
	219	} else { set revtype expr
	220	}
	221
	222	if {$revtype eq {head} && $current_branch ne {}} {
	223	set i 0
	224	foreach spec $spec_head {
	225	if {[lindex $spec 0] eq $current_branch} {
84d3d7b8	226	$w_list selection clear 0 end
7618e6b1 SP	227	$w_list selection set $i
	228	break
	229	}
	230	incr i
	231	}
	232	}
	233
b1fa2bff SP	234	return $this
	235	}
	236
3206c63d	237	method none {text} {
7618e6b1 SP	238	if {![winfo exists $w.none_r]} {
	239	radiobutton $w.none_r \
	240	-anchor w \
	241	-value none \
	242	-variable @revtype
	243	grid $w.none_r -sticky we -padx {0 5} -columnspan 2
3206c63d	244	}
7618e6b1	245	$w.none_r configure -text $text
3206c63d SP	246	}
3206c63d SP	247
b1fa2bff SP	248	method get {} {
b1fa2bff SP	249	switch -- $revtype {
7618e6b1 SP	250	head -
	251	trck -
	252	tag {
	253	set i [$w_list curselection]
	254	if {$i ne {}} {
	255	return [lindex $cur_specs $i 0]
	256	} else {
	257	return {}
	258	}
	259	}
	260
d41b43eb	261	HEAD { return HEAD }
7618e6b1 SP	262	expr { return $c_expr }
7618e6b1 SP	263	none { return {} }
b1fa2bff SP	264	default { error "unknown type of revision" }
	265	}
	266	}
	267
7cf04426 SP	268	method pick_tracking_branch {} {
	269	set revtype trck
	270	}
	271
d41b43eb SP	272	method focus_filter {} {
	273	if {[$w_filter cget -state] eq {normal}} {
	274	focus $w_filter
	275	}
	276	}
	277
827c7119 SP	278	method bind_listbox {event script} {
	279	bind $w_list $event $script
	280	}
	281
d41b43eb SP	282	method get_local_branch {} {
	283	if {$revtype eq {head}} {
	284	return [_expr $this]
	285	} else {
	286	return {}
	287	}
	288	}
	289
dd87efc8	290	method get_tracking_branch {} {
7618e6b1 SP	291	set i [$w_list curselection]
7618e6b1 SP	292	if {$i eq {} \|\| $revtype ne {trck}} {
dd87efc8 SP	293	return {}
dd87efc8 SP	294	}
7618e6b1	295	return [lrange [lindex $cur_specs $i] 1 end]
dd87efc8 SP	296	}
dd87efc8 SP	297
7618e6b1 SP	298	method get_commit {} {
	299	set e [_expr $this]
	300	if {$e eq {}} {
	301	return {}
79a060e4	302	}
7618e6b1	303	return [git rev-parse --verify "$e^0"]
79a060e4 SP	304	}
79a060e4 SP	305
7618e6b1 SP	306	method commit_or_die {} {
	307	if {[catch {set new [get_commit $this]} err]} {
	308
	309	# Cleanup the not-so-friendly error from rev-parse.
	310	#
	311	regsub {^fatal:\s*} $err {} err
	312	if {$err eq {Needed a single revision}} {
	313	set err {}
	314	}
	315
	316	set top [winfo toplevel $w]
1ac17950	317	set msg [append [mc "Invalid revision: %s" [get $this]] "\n\n$err"]
7618e6b1 SP	318	tk_messageBox \
	319	-icon error \
	320	-type ok \
	321	-title [wm title $top] \
	322	-parent $top \
	323	-message $msg
	324	error $msg
	325	}
	326	return $new
	327	}
	328
	329	method _expr {} {
	330	switch -- $revtype {
	331	head -
	332	trck -
	333	tag {
	334	set i [$w_list curselection]
	335	if {$i ne {}} {
	336	return [lindex $cur_specs $i 1]
	337	} else {
1ac17950	338	error [mc "No revision selected."]
7618e6b1 SP	339	}
	340	}
	341
	342	expr {
	343	if {$c_expr ne {}} {
	344	return $c_expr
	345	} else {
1ac17950	346	error [mc "Revision expression is empty."]
7618e6b1 SP	347	}
7618e6b1 SP	348	}
d41b43eb	349	HEAD { return HEAD }
7618e6b1 SP	350	none { return {} }
7618e6b1 SP	351	default { error "unknown type of revision" }
3206c63d	352	}
b1fa2bff SP	353	}
	354
	355	method _validate {d S} {
	356	if {$d == 1} {
	357	if {[regexp {\s} $S]} {
	358	return 0
	359	}
	360	if {[string length $S] > 0} {
	361	set revtype expr
	362	}
	363	}
	364	return 1
	365	}
	366
7618e6b1 SP	367	method _filter {P} {
	368	if {[regexp {\s} $P]} {
	369	return 0
	370	}
	371	_rebuild $this $P
	372	return 1
	373	}
	374
	375	method _select {args} {
	376	_rebuild $this $filter
d41b43eb	377	focus_filter $this
7618e6b1 SP	378	}
	379
	380	method _rebuild {pat} {
	381	set ste normal
	382	switch -- $revtype {
	383	head { set new $spec_head }
	384	trck { set new $spec_trck }
	385	tag { set new $spec_tag }
	386	expr -
d41b43eb	387	HEAD -
7618e6b1 SP	388	none {
	389	set new [list]
	390	set ste disabled
	391	}
	392	}
	393
	394	if {[$w_list cget -state] eq {disabled}} {
	395	$w_list configure -state normal
	396	}
	397	$w_list delete 0 end
	398
	399	if {$pat ne {}} {
	400	set pat ${pat}
	401	}
	402	set cur_specs [list]
	403	foreach spec $new {
	404	set txt [lindex $spec 0]
	405	if {$pat eq {} \|\| [string match $pat $txt]} {
	406	lappend cur_specs $spec
	407	$w_list insert end $txt
	408	}
	409	}
84d3d7b8 SP	410	if {$cur_specs ne {}} {
	411	$w_list selection clear 0 end
	412	$w_list selection set 0
	413	}
7618e6b1 SP	414
	415	if {[$w_filter cget -state] ne $ste} {
	416	$w_list configure -state $ste
	417	$w_filter configure -state $ste
	418	}
b1fa2bff SP	419	}
	420
	421	method _delete {current} {
	422	if {$current eq $w} {
	423	delete_this
	424	}
	425	}
	426
7618e6b1 SP	427	method _sb_set {sb orient first last} {
	428	set old_focus [focus -lastfor $w]
	429
	430	if {$first == 0 && $last == 1} {
	431	if {[winfo exists $sb]} {
	432	destroy $sb
	433	if {$old_focus ne {}} {
	434	update
	435	focus $old_focus
	436	}
	437	}
	438	return
	439	}
	440
	441	if {![winfo exists $sb]} {
	442	if {$orient eq {h}} {
	443	scrollbar $sb -orient h -command [list $w_list xview]
	444	pack $sb -fill x -side bottom -before $w_list
	445	} else {
	446	scrollbar $sb -orient v -command [list $w_list yview]
	447	pack $sb -fill y -side right -before $w_list
	448	}
	449	if {$old_focus ne {}} {
	450	update
	451	focus $old_focus
	452	}
	453	}
	454	$sb set $first $last
	455	}
	456
844c3f6f SP	457	method _show_tooltip {pos} {
	458	if {$tooltip_wm ne {}} {
	459	_open_tooltip $this
	460	} elseif {$tooltip_timer eq {}} {
	461	set tooltip_timer [after 1000 [cb _open_tooltip]]
	462	}
	463	}
	464
	465	method _open_tooltip {} {
	466	global remote_url
	467
	468	set tooltip_timer {}
	469	set pos_x [winfo pointerx $w_list]
	470	set pos_y [winfo pointery $w_list]
	471	if {[winfo containing $pos_x $pos_y] ne $w_list} {
	472	_hide_tooltip $this
	473	return
	474	}
	475
	476	set pos @[join [list \
	477	[expr {$pos_x - [winfo rootx $w_list]}] \
	478	[expr {$pos_y - [winfo rooty $w_list]}]] ,]
	479	set lno [$w_list index $pos]
	480	if {$lno eq {}} {
	481	_hide_tooltip $this
	482	return
	483	}
	484
	485	set spec [lindex $cur_specs $lno]
	486	set refn [lindex $spec 1]
	487	if {$refn eq {}} {
	488	_hide_tooltip $this
	489	return
	490	}
	491
	492	if {$tooltip_wm eq {}} {
	493	set tooltip_wm [toplevel $w_list.tooltip -borderwidth 1]
	494	wm overrideredirect $tooltip_wm 1
	495	wm transient $tooltip_wm [winfo toplevel $w_list]
	496	set tooltip_t $tooltip_wm.label
	497	text $tooltip_t \
	498	-takefocus 0 \
	499	-highlightthickness 0 \
	500	-relief flat \
	501	-borderwidth 0 \
	502	-wrap none \
	503	-background lightyellow \
	504	-foreground black
	505	$tooltip_t tag conf section_header -font font_uibold
	506	bind $tooltip_wm <Escape> [cb _hide_tooltip]
	507	pack $tooltip_t
	508	} else {
	509	$tooltip_t conf -state normal
	510	$tooltip_t delete 0.0 end
	511	}
	512
	513	set data $tip_data($refn)
	514	if {[lindex $data 0 0] eq {tag}} {
	515	set tag [lindex $data 0]
	516	if {[lindex $data 1 0] eq {commit}} {
	517	set cmit [lindex $data 1]
	518	} else {
	519	set cmit {}
	520	}
521	} elseif {[lindex $data 0 0] eq {commit}} {
522	set tag {}
523	set cmit [lindex $data 0]
524	}
525
becafaac SP	526	$tooltip_t insert end [lindex $spec 0]
	527	set last [_reflog_last $this [lindex $spec 1]]
	528	if {$last ne {}} {
	529	$tooltip_t insert end "\n"
93716a62	530	$tooltip_t insert end [mc "Updated"]
becafaac SP	531	$tooltip_t insert end " $last"
	532	}
	533	$tooltip_t insert end "\n"
844c3f6f SP	534
	535	if {$tag ne {}} {
	536	$tooltip_t insert end "\n"
93716a62	537	$tooltip_t insert end [mc "Tag"] section_header
844c3f6f SP	538	$tooltip_t insert end " [lindex $tag 1]\n"
	539	$tooltip_t insert end [lindex $tag 2]
	540	$tooltip_t insert end " ([lindex $tag 3])\n"
	541	$tooltip_t insert end [lindex $tag 4]
	542	$tooltip_t insert end "\n"
	543	}
	544
	545	if {$cmit ne {}} {
	546	$tooltip_t insert end "\n"
93716a62	547	$tooltip_t insert end [mc "Commit"] section_header
844c3f6f SP	548	$tooltip_t insert end " [lindex $cmit 1]\n"
	549	$tooltip_t insert end [lindex $cmit 2]
	550	$tooltip_t insert end " ([lindex $cmit 3])\n"
	551	$tooltip_t insert end [lindex $cmit 4]
	552	}
	553
	554	if {[llength $spec] > 2} {
	555	$tooltip_t insert end "\n"
93716a62	556	$tooltip_t insert end [mc "Remote"] section_header
844c3f6f	557	$tooltip_t insert end " [lindex $spec 2]\n"
93716a62	558	$tooltip_t insert end [mc "URL"]
844c3f6f	559	$tooltip_t insert end " $remote_url([lindex $spec 2])\n"
93716a62	560	$tooltip_t insert end [mc "Branch"]
844c3f6f SP	561	$tooltip_t insert end " [lindex $spec 3]"
	562	}
	563
	564	$tooltip_t conf -state disabled
	565	_position_tooltip $this
	566	}
	567
becafaac SP	568	method _reflog_last {name} {
	569	if {[info exists reflog_last($name)]} {
	570	return reflog_last($name)
	571	}
	572
	573	set last {}
	574	if {[catch {set last [file mtime [gitdir $name]]}]
	575	&& ![catch {set g [open [gitdir logs $name] r]}]} {
	576	fconfigure $g -translation binary
	577	while {[gets $g line] >= 0} {
	578	if {[regexp {> ([1-9][0-9]*) } $line line when]} {
	579	set last $when
	580	}
	581	}
	582	close $g
	583	}
	584
	585	if {$last ne {}} {
66c75a5c	586	set last [format_date $last]
becafaac SP	587	}
	588	set reflog_last($name) $last
	589	return $last
	590	}
	591
844c3f6f SP	592	method _position_tooltip {} {
	593	set max_h [lindex [split [$tooltip_t index end] .] 0]
	594	set max_w 0
	595	for {set i 1} {$i <= $max_h} {incr i} {
	596	set c [lindex [split [$tooltip_t index "$i.0 lineend"] .] 1]
	597	if {$c > $max_w} {set max_w $c}
	598	}
	599	$tooltip_t conf -width $max_w -height $max_h
	600
	601	set req_w [winfo reqwidth $tooltip_t]
	602	set req_h [winfo reqheight $tooltip_t]
	603	set pos_x [expr {[winfo pointerx .] + 5}]
	604	set pos_y [expr {[winfo pointery .] + 10}]
	605
	606	set g "${req_w}x${req_h}"
	607	if {$pos_x >= 0} {append g +}
	608	append g $pos_x
	609	if {$pos_y >= 0} {append g +}
	610	append g $pos_y
	611
	612	wm geometry $tooltip_wm $g
	613	raise $tooltip_wm
	614	}
	615
	616	method _hide_tooltip {} {
	617	if {$tooltip_wm ne {}} {
	618	destroy $tooltip_wm
	619	set tooltip_wm {}
	620	}
	621	if {$tooltip_timer ne {}} {
	622	after cancel $tooltip_timer
	623	set tooltip_timer {}
	624	}
	625	}
	626
b1fa2bff	627	}