Merge branch 'cb/httpd-test-fix-port'
[git] / git-gui / lib / branch_rename.tcl
1 # git-gui branch rename support
2 # Copyright (C) 2007 Shawn Pearce
3
4 class branch_rename {
5
6 field w
7 field oldname
8 field newname
9
10 constructor dialog {} {
11         global current_branch use_ttk NS
12
13         make_dialog top w
14         wm withdraw $w
15         wm title $top [append "[appname] ([reponame]): " [mc "Rename Branch"]]
16         if {$top ne {.}} {
17                 wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
18         }
19
20         set oldname $current_branch
21         set newname [get_config gui.newbranchtemplate]
22
23         ${NS}::label $w.header -text [mc "Rename Branch"]\
24                 -font font_uibold -anchor center
25         pack $w.header -side top -fill x
26
27         ${NS}::frame $w.buttons
28         ${NS}::button $w.buttons.rename -text [mc Rename] \
29                 -default active \
30                 -command [cb _rename]
31         pack $w.buttons.rename -side right
32         ${NS}::button $w.buttons.cancel -text [mc Cancel] \
33                 -command [list destroy $w]
34         pack $w.buttons.cancel -side right -padx 5
35         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
36
37         ${NS}::frame $w.rename
38         ${NS}::label $w.rename.oldname_l -text [mc "Branch:"]
39         if {$use_ttk} {
40                 ttk::combobox $w.rename.oldname_m -textvariable @oldname \
41                         -values [load_all_heads] -state readonly
42         } else {
43                 eval tk_optionMenu $w.rename.oldname_m @oldname [load_all_heads]
44         }
45
46         ${NS}::label $w.rename.newname_l -text [mc "New Name:"]
47         ${NS}::entry $w.rename.newname_t \
48                 -width 40 \
49                 -textvariable @newname \
50                 -validate key \
51                 -validatecommand {
52                         if {%d == 1 && [regexp {[~^:?*\[\0- ]} %S]} {return 0}
53                         return 1
54                 }
55
56         grid $w.rename.oldname_l $w.rename.oldname_m -sticky we -padx {0 5}
57         grid $w.rename.newname_l $w.rename.newname_t -sticky we -padx {0 5}
58         grid columnconfigure $w.rename 1 -weight 1
59         pack $w.rename -anchor nw -fill x -pady 5 -padx 5
60
61         bind $w <Key-Return> [cb _rename]
62         bind $w <Key-Escape> [list destroy $w]
63         bind $w <Visibility> "
64                 grab $w
65                 $w.rename.newname_t icursor end
66                 focus $w.rename.newname_t
67         "
68         wm deiconify $w
69         tkwait window $w
70 }
71
72 method _rename {} {
73         global current_branch
74
75         if {$oldname eq {}} {
76                 tk_messageBox \
77                         -icon error \
78                         -type ok \
79                         -title [wm title $w] \
80                         -parent $w \
81                         -message [mc "Please select a branch to rename."]
82                 focus $w.rename.oldname_m
83                 return
84         }
85         if {$newname eq {}
86                 || $newname eq [get_config gui.newbranchtemplate]} {
87                 tk_messageBox \
88                         -icon error \
89                         -type ok \
90                         -title [wm title $w] \
91                         -parent $w \
92                         -message [mc "Please supply a branch name."]
93                 focus $w.rename.newname_t
94                 return
95         }
96         if {![catch {git show-ref --verify -- "refs/heads/$newname"}]} {
97                 tk_messageBox \
98                         -icon error \
99                         -type ok \
100                         -title [wm title $w] \
101                         -parent $w \
102                         -message [mc "Branch '%s' already exists." $newname]
103                 focus $w.rename.newname_t
104                 return
105         }
106         if {[catch {git check-ref-format "heads/$newname"}]} {
107                 tk_messageBox \
108                         -icon error \
109                         -type ok \
110                         -title [wm title $w] \
111                         -parent $w \
112                         -message [mc "'%s' is not an acceptable branch name." $newname]
113                 focus $w.rename.newname_t
114                 return
115         }
116
117         if {[catch {git branch -m $oldname $newname} err]} {
118                 tk_messageBox \
119                         -icon error \
120                         -type ok \
121                         -title [wm title $w] \
122                         -parent $w \
123                         -message [strcat [mc "Failed to rename '%s'." $oldname] "\n\n$err"]
124                 return
125         }
126
127         if {$current_branch eq $oldname} {
128                 set current_branch $newname
129         }
130
131         destroy $w
132 }
133
134 }