From: Shawn O. Pearce <spearce@spearce.org>
Date: Wed, 30 May 2007 23:34:49 +0000 (-0400)
Subject: Merge branch 'maint'
X-Git-Tag: v1.5.3-rc0~118^2~6
X-Git-Url: https://git.lorimer.id.au/gitweb.git/diff_plain/a1388cf0361b133deaba5266211a34bdec66b7cc?hp=fc8ce406fac73536a14611ce871a06db5a5a22b3

Merge branch 'maint'

* maint:
git-gui: Allow creating a branch when none exists
---

diff --git a/lib/branch.tcl b/lib/branch.tcl
index caaee5cf17..4f648b2bc7 100644
--- a/lib/branch.tcl
+++ b/lib/branch.tcl
@@ -201,12 +201,14 @@ proc do_create_branch {} {
 	pack $w.desc -anchor nw -fill x -pady 5 -padx 5
 
 	labelframe $w.from -text {Starting Revision}
-	radiobutton $w.from.head_r \
-		-text {Local Branch:} \
-		-value head \
-		-variable create_branch_revtype
-	eval tk_optionMenu $w.from.head_m create_branch_head $all_heads
-	grid $w.from.head_r $w.from.head_m -sticky w
+	if {$all_heads ne {}} {
+		radiobutton $w.from.head_r \
+			-text {Local Branch:} \
+			-value head \
+			-variable create_branch_revtype
+		eval tk_optionMenu $w.from.head_m create_branch_head $all_heads
+		grid $w.from.head_r $w.from.head_m -sticky w
+	}
 	set all_trackings [all_tracking_branches]
 	if {$all_trackings ne {}} {
 		set create_branch_trackinghead [lindex $all_trackings 0]