]>
Commit | Line | Data |
---|---|---|
3206c63d SP |
1 | # git-gui branch delete support |
2 | # Copyright (C) 2007 Shawn Pearce | |
3 | ||
4 | class branch_delete { | |
5 | ||
6 | field w ; # widget path | |
7 | field w_heads ; # listbox of local head names | |
8 | field w_check ; # revision picker for merge test | |
9 | field w_delete ; # delete button | |
10 | ||
11 | constructor dialog {} { | |
d41b43eb | 12 | global current_branch |
3206c63d SP |
13 | |
14 | make_toplevel top w | |
1ac17950 | 15 | wm title $top [append "[appname] ([reponame]): " [mc "Delete Branch"]] |
3206c63d SP |
16 | if {$top ne {.}} { |
17 | wm geometry $top "+[winfo rootx .]+[winfo rooty .]" | |
18 | } | |
19 | ||
1ac17950 | 20 | label $w.header -text [mc "Delete Local Branch"] -font font_uibold |
3206c63d SP |
21 | pack $w.header -side top -fill x |
22 | ||
23 | frame $w.buttons | |
24 | set w_delete $w.buttons.delete | |
25 | button $w_delete \ | |
1ac17950 | 26 | -text [mc Delete] \ |
3206c63d SP |
27 | -default active \ |
28 | -state disabled \ | |
29 | -command [cb _delete] | |
30 | pack $w_delete -side right | |
31 | button $w.buttons.cancel \ | |
1ac17950 | 32 | -text [mc Cancel] \ |
3206c63d SP |
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 | ||
1ac17950 | 37 | labelframe $w.list -text [mc "Local Branches"] |
3206c63d SP |
38 | set w_heads $w.list.l |
39 | listbox $w_heads \ | |
40 | -height 10 \ | |
41 | -width 70 \ | |
42 | -selectmode extended \ | |
7618e6b1 | 43 | -exportselection false \ |
3206c63d SP |
44 | -yscrollcommand [list $w.list.sby set] |
45 | scrollbar $w.list.sby -command [list $w.list.l yview] | |
46 | pack $w.list.sby -side right -fill y | |
47 | pack $w.list.l -side left -fill both -expand 1 | |
48 | pack $w.list -fill both -expand 1 -pady 5 -padx 5 | |
49 | ||
50 | set w_check [choose_rev::new \ | |
51 | $w.check \ | |
1ac17950 | 52 | [mc "Delete Only If Merged Into"] \ |
3206c63d | 53 | ] |
1ac17950 | 54 | $w_check none [mc "Always (Do not perform merge test.)"] |
3206c63d SP |
55 | pack $w.check -anchor nw -fill x -pady 5 -padx 5 |
56 | ||
d41b43eb | 57 | foreach h [load_all_heads] { |
3206c63d SP |
58 | if {$h ne $current_branch} { |
59 | $w_heads insert end $h | |
60 | } | |
61 | } | |
62 | ||
63 | bind $w_heads <<ListboxSelect>> [cb _select] | |
64 | bind $w <Visibility> " | |
65 | grab $w | |
66 | focus $w | |
67 | " | |
68 | bind $w <Key-Escape> [list destroy $w] | |
69 | bind $w <Key-Return> [cb _delete]\;break | |
70 | tkwait window $w | |
71 | } | |
72 | ||
73 | method _select {} { | |
74 | if {[$w_heads curselection] eq {}} { | |
75 | $w_delete configure -state disabled | |
76 | } else { | |
77 | $w_delete configure -state normal | |
78 | } | |
79 | } | |
80 | ||
81 | method _delete {} { | |
7618e6b1 | 82 | if {[catch {set check_cmt [$w_check commit_or_die]}]} { |
3206c63d SP |
83 | return |
84 | } | |
85 | ||
86 | set to_delete [list] | |
87 | set not_merged [list] | |
88 | foreach i [$w_heads curselection] { | |
89 | set b [$w_heads get $i] | |
90 | if {[catch { | |
91 | set o [git rev-parse --verify "refs/heads/$b"] | |
92 | }]} continue | |
93 | if {$check_cmt ne {}} { | |
94 | if {[catch {set m [git merge-base $o $check_cmt]}]} continue | |
95 | if {$o ne $m} { | |
96 | lappend not_merged $b | |
97 | continue | |
98 | } | |
99 | } | |
100 | lappend to_delete [list $b $o] | |
101 | } | |
102 | if {$not_merged ne {}} { | |
1ac17950 | 103 | set msg "[mc "The following branches are not completely merged into %s:" [$w_check get]] |
3206c63d SP |
104 | |
105 | - [join $not_merged "\n - "]" | |
106 | tk_messageBox \ | |
107 | -icon info \ | |
108 | -type ok \ | |
109 | -title [wm title $w] \ | |
110 | -parent $w \ | |
111 | -message $msg | |
112 | } | |
113 | if {$to_delete eq {}} return | |
114 | if {$check_cmt eq {}} { | |
1ac17950 | 115 | set msg [mc "Recovering deleted branches is difficult. \n\n Delete the selected branches?"] |
3206c63d SP |
116 | if {[tk_messageBox \ |
117 | -icon warning \ | |
118 | -type yesno \ | |
119 | -title [wm title $w] \ | |
120 | -parent $w \ | |
121 | -message $msg] ne yes} { | |
122 | return | |
123 | } | |
124 | } | |
125 | ||
126 | set failed {} | |
127 | foreach i $to_delete { | |
128 | set b [lindex $i 0] | |
129 | set o [lindex $i 1] | |
130 | if {[catch {git update-ref -d "refs/heads/$b" $o} err]} { | |
131 | append failed " - $b: $err\n" | |
3206c63d SP |
132 | } |
133 | } | |
134 | ||
135 | if {$failed ne {}} { | |
136 | tk_messageBox \ | |
137 | -icon error \ | |
138 | -type ok \ | |
139 | -title [wm title $w] \ | |
140 | -parent $w \ | |
1ac17950 | 141 | -message [mc "Failed to delete branches:\n%s" $failed] |
3206c63d SP |
142 | } |
143 | ||
3206c63d SP |
144 | destroy $w |
145 | } | |
146 | ||
147 | } |