+######################################################################
+##
+## branch management
+
+proc load_all_branches {} {
+ global all_branches
+
+ set all_branches [list]
+ set cmd [list git for-each-ref]
+ lappend cmd --format=%(refname)
+ lappend cmd refs/heads
+ set fd [open "| $cmd" r]
+ while {[gets $fd line] > 0} {
+ if {[regsub ^refs/heads/ $line {} line]} {
+ lappend all_branches $line
+ }
+ }
+ close $fd
+
+ set all_branches [lsort $all_branches]
+}
+
+proc populate_branch_menu {m} {
+ global all_branches disable_on_lock
+
+ $m add separator
+ foreach b $all_branches {
+ $m add radiobutton \
+ -label $b \
+ -command [list do_switch_branch $b] \
+ -variable current_branch \
+ -value $b \
+ -font font_ui
+ lappend disable_on_lock \
+ [list $m entryconf [$m index last] -state]
+ }
+}
+