38 lines
839 B
38 lines
839 B
# git-gui branch (create/delete) support |
|
# Copyright (C) 2006, 2007 Shawn Pearce |
|
|
|
proc load_all_heads {} { |
|
global some_heads_tracking |
|
|
|
set rh refs/heads |
|
set rh_len [expr {[string length $rh] + 1}] |
|
set all_heads [list] |
|
set fd [git_read for-each-ref --format=%(refname) $rh] |
|
while {[gets $fd line] > 0} { |
|
if {!$some_heads_tracking || ![is_tracking_branch $line]} { |
|
lappend all_heads [string range $line $rh_len end] |
|
} |
|
} |
|
close $fd |
|
|
|
return [lsort $all_heads] |
|
} |
|
|
|
proc load_all_tags {} { |
|
set all_tags [list] |
|
set fd [git_read for-each-ref \ |
|
--sort=-taggerdate \ |
|
--format=%(refname) \ |
|
refs/tags] |
|
while {[gets $fd line] > 0} { |
|
if {![regsub ^refs/tags/ $line {} name]} continue |
|
lappend all_tags $name |
|
} |
|
close $fd |
|
return $all_tags |
|
} |
|
|
|
proc radio_selector {varname value args} { |
|
upvar #0 $varname var |
|
set var $value |
|
}
|
|
|