diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2007-05-30 19:34:49 -0400 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2007-05-30 19:34:49 -0400 |
| commit | a1388cf0361b133deaba5266211a34bdec66b7cc (patch) | |
| tree | e7792d0c8fb961d7caf61eac5639e0fd843b7452 | |
| parent | fc8ce406fac73536a14611ce871a06db5a5a22b3 (diff) | |
| parent | 905d9c9653a7dc324a1c6fbf883a1b9bcdc6e5bf (diff) | |
| download | git-a1388cf0361b133deaba5266211a34bdec66b7cc.tar.gz git-a1388cf0361b133deaba5266211a34bdec66b7cc.tar.xz | |
Merge branch 'maint'
* maint:
git-gui: Allow creating a branch when none exists
| -rw-r--r-- | lib/branch.tcl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lib/branch.tcl b/lib/branch.tcl index caaee5cf1..4f648b2bc 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] |