about summary refs log tree commit diff
path: root/third_party/git/git-gui/lib/choose_rev.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/git/git-gui/lib/choose_rev.tcl')
-rw-r--r--third_party/git/git-gui/lib/choose_rev.tcl634
1 files changed, 0 insertions, 634 deletions
diff --git a/third_party/git/git-gui/lib/choose_rev.tcl b/third_party/git/git-gui/lib/choose_rev.tcl
deleted file mode 100644
index 6dae7937d589..000000000000
--- a/third_party/git/git-gui/lib/choose_rev.tcl
+++ /dev/null
@@ -1,634 +0,0 @@
-# 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 use_ttk NS
-
-	if {![info exists ::all_remotes]} {
-		load_all_remotes
-	}
-
-	set w $path
-
-	if {$title ne {}} {
-		${NS}::labelframe $w -text $title
-	} else {
-		${NS}::frame $w
-	}
-	bind $w <Destroy> [cb _delete %W]
-
-	if {$is_detached} {
-		${NS}::radiobutton $w.detachedhead_r \
-			-text [mc "This Detached Checkout"] \
-			-value HEAD \
-			-variable @revtype
-		if {!$use_ttk} {$w.detachedhead_r configure -anchor w}
-		grid $w.detachedhead_r -sticky we -padx {0 5} -columnspan 2
-	}
-
-	${NS}::radiobutton $w.expr_r \
-		-text [mc "Revision Expression:"] \
-		-value expr \
-		-variable @revtype
-	${NS}::entry $w.expr_t \
-		-width 50 \
-		-textvariable @c_expr \
-		-validate key \
-		-validatecommand [cb _validate %d %S]
-	grid $w.expr_r $w.expr_t -sticky we -padx {0 5}
-
-	${NS}::frame $w.types
-	${NS}::radiobutton $w.types.head_r \
-		-text [mc "Local Branch"] \
-		-value head \
-		-variable @revtype
-	pack $w.types.head_r -side left
-	${NS}::radiobutton $w.types.trck_r \
-		-text [mc "Tracking Branch"] \
-		-value trck \
-		-variable @revtype
-	pack $w.types.trck_r -side left
-	${NS}::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
-	${NS}::entry $w_filter \
-		-width 12 \
-		-textvariable @filter \
-		-validate key \
-		-validatecommand [cb _filter %P]
-	pack $w_filter -side right
-	pack [${NS}::label $w.types.filter_icon \
-		-image ::choose_rev::img_find \
-		] -side right
-	grid $w.types -sticky we -padx {0 5} -columnspan 2
-
-	if {$use_ttk} {
-		ttk::frame $w.list -style SListbox.TFrame -padding 2
-	} else {
-		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]
-	if {$use_ttk} {
-		$w_list configure -relief flat -highlightthickness 0 -borderwidth 0
-	}
-	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} {
-	global NS use_ttk
-	if {![winfo exists $w.none_r]} {
-		${NS}::radiobutton $w.none_r \
-			-value none \
-			-variable @revtype
-		if {!$use_ttk} {$w.none_r configure -anchor w}
-		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 [strcat [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} {
-	global NS
-	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}} {
-			${NS}::scrollbar $sb -orient h -command [list $w_list xview]
-			pack $sb -fill x -side bottom -before $w_list
-		} else {
-			${NS}::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
-		}
-	}
-
-	catch {$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]
-		catch {wm attributes $tooltip_wm -type tooltip}
-		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@@noun"] 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 {[tk windowingsystem] eq "win32" || $pos_x >= 0} {append g +}
-	append g $pos_x
-	if {[tk windowingsystem] eq "win32" || $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 {}
-	}
-}
-
-}