1 # git-gui branch rename support
2 # Copyright (C) 2007 Shawn Pearce
10 constructor dialog {} {
11 global all_heads current_branch
14 wm title $top "[appname] ([reponame]): Rename Branch"
16 wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
19 set oldname $current_branch
20 set newname [get_config gui.newbranchtemplate]
22 label $w.header -text {Rename Branch} -font font_uibold
23 pack $w.header -side top -fill x
26 button $w.buttons.rename -text Rename \
29 pack $w.buttons.rename -side right
30 button $w.buttons.cancel -text {Cancel} \
31 -command [list destroy $w]
32 pack $w.buttons.cancel -side right -padx 5
33 pack $w.buttons -side bottom -fill x -pady 10 -padx 10
36 label $w.rename.oldname_l -text {Branch:}
37 eval tk_optionMenu $w.rename.oldname_m @oldname $all_heads
39 label $w.rename.newname_l -text {New Name:}
40 entry $w.rename.newname_t \
44 -textvariable @newname \
47 if {%d == 1 && [regexp {[~^:?*\[\0- ]} %S]} {return 0}
51 grid $w.rename.oldname_l $w.rename.oldname_m -sticky w -padx {0 5}
52 grid $w.rename.newname_l $w.rename.newname_t -sticky we -padx {0 5}
53 grid columnconfigure $w.rename 1 -weight 1
54 pack $w.rename -anchor nw -fill x -pady 5 -padx 5
56 bind $w <Key-Return> [cb _rename]
57 bind $w <Key-Escape> [list destroy $w]
58 bind $w <Visibility> "
60 $w.rename.newname_t icursor end
61 focus $w.rename.newname_t
63 bind $w.header <Destroy> [list delete_this $this]
68 global all_heads current_branch
74 -title [wm title $w] \
76 -message "Please select a branch to rename."
77 focus $w.rename.oldname_m
81 || $newname eq [get_config gui.newbranchtemplate]} {
85 -title [wm title $w] \
87 -message "Please supply a branch name."
88 focus $w.rename.newname_t
91 if {![catch {git show-ref --verify -- "refs/heads/$newname"}]} {
95 -title [wm title $w] \
97 -message "Branch '$newname' already exists."
98 focus $w.rename.newname_t
101 if {[catch {git check-ref-format "heads/$newname"}]} {
105 -title [wm title $w] \
107 -message "We do not like '$newname' as a branch name."
108 focus $w.rename.newname_t
112 if {[catch {git branch -m $oldname $newname} err]} {
116 -title [wm title $w] \
118 -message "Failed to rename '$oldname'.\n\n$err"
122 set oldidx [lsearch -exact -sorted $all_heads $oldname]
124 set all_heads [lreplace $all_heads $oldidx $oldidx]
126 lappend all_heads $newname
127 set all_heads [lsort $all_heads]
130 if {$current_branch eq $oldname} {
131 set current_branch $newname