undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

Browse Source 
* maint:
  git-gui: Allow creating a branch when none exists
This commit is contained in:
Shawn O. Pearce 2007-05-30 19:34:49 -04:00
commit a1388cf036
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/branch.tcl
View File

@ -201,12 +201,14 @@ proc do_create_branch {} {
pack $w.desc -anchor nw -fill x -pady 5 -padx 5 pack $w.desc -anchor nw -fill x -pady 5 -padx 5
labelframe $w.from -text {Starting Revision} labelframe $w.from -text {Starting Revision}
radiobutton $w.from.head_r \ if {$all_heads ne {}} {
-text {Local Branch:} \ radiobutton $w.from.head_r \
-value head \ -text {Local Branch:} \
-variable create_branch_revtype -value head \
eval tk_optionMenu $w.from.head_m create_branch_head $all_heads -variable create_branch_revtype
grid $w.from.head_r $w.from.head_m -sticky w 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] set all_trackings [all_tracking_branches]
if {$all_trackings ne {}} { if {$all_trackings ne {}} {
set create_branch_trackinghead [lindex $all_trackings 0] set create_branch_trackinghead [lindex $all_trackings 0]