]>
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 {} { | |
c80d7be5 | 12 | global current_branch use_ttk NS |
3206c63d | 13 | |
c80d7be5 PT |
14 | make_dialog top w |
15 | wm withdraw $w | |
a3d97afa | 16 | wm title $top [mc "%s (%s): Delete Branch" [appname] [reponame]] |
3206c63d SP |
17 | if {$top ne {.}} { |
18 | wm geometry $top "+[winfo rootx .]+[winfo rooty .]" | |
19 | } | |
20 | ||
c80d7be5 PT |
21 | ${NS}::label $w.header -text [mc "Delete Local Branch"] \ |
22 | -font font_uibold -anchor center | |
3206c63d SP |
23 | pack $w.header -side top -fill x |
24 | ||
c80d7be5 | 25 | ${NS}::frame $w.buttons |
3206c63d | 26 | set w_delete $w.buttons.delete |
c80d7be5 | 27 | ${NS}::button $w_delete \ |
1ac17950 | 28 | -text [mc Delete] \ |
3206c63d SP |
29 | -default active \ |
30 | -state disabled \ | |
31 | -command [cb _delete] | |
32 | pack $w_delete -side right | |
c80d7be5 | 33 | ${NS}::button $w.buttons.cancel \ |
1ac17950 | 34 | -text [mc Cancel] \ |
3206c63d SP |
35 | -command [list destroy $w] |
36 | pack $w.buttons.cancel -side right -padx 5 | |
37 | pack $w.buttons -side bottom -fill x -pady 10 -padx 10 | |
38 | ||
c80d7be5 | 39 | ${NS}::labelframe $w.list -text [mc "Local Branches"] |
3206c63d | 40 | set w_heads $w.list.l |
c80d7be5 | 41 | slistbox $w_heads \ |
3206c63d SP |
42 | -height 10 \ |
43 | -width 70 \ | |
44 | -selectmode extended \ | |
c80d7be5 | 45 | -exportselection false |
3206c63d SP |
46 | pack $w.list.l -side left -fill both -expand 1 |
47 | pack $w.list -fill both -expand 1 -pady 5 -padx 5 | |
48 | ||
49 | set w_check [choose_rev::new \ | |
50 | $w.check \ | |
1ac17950 | 51 | [mc "Delete Only If Merged Into"] \ |
3206c63d | 52 | ] |
966d0778 | 53 | $w_check none [mc "Always (Do not perform merge checks)"] |
3206c63d SP |
54 | pack $w.check -anchor nw -fill x -pady 5 -padx 5 |
55 | ||
d41b43eb | 56 | foreach h [load_all_heads] { |
3206c63d SP |
57 | if {$h ne $current_branch} { |
58 | $w_heads insert end $h | |
59 | } | |
60 | } | |
61 | ||
62 | bind $w_heads <<ListboxSelect>> [cb _select] | |
63 | bind $w <Visibility> " | |
64 | grab $w | |
65 | focus $w | |
66 | " | |
67 | bind $w <Key-Escape> [list destroy $w] | |
68 | bind $w <Key-Return> [cb _delete]\;break | |
c80d7be5 | 69 | wm deiconify $w |
3206c63d SP |
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 {}} { | |
966d0778 | 115 | set msg [mc "Recovering deleted branches is difficult.\n\nDelete 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] | |
76bb40cd | 130 | if {[catch {git branch -D $b} err]} { |
eca96368 | 131 | append failed [mc " - %s:" $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 | } |