git-gui: refactor remote submenu creation into subroutine
Signed-off-by: Heiko Voigt <heiko.voigt@mahr.de> Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
Heiko Voigt committed
Feb 13, 2011 at 14:50 UTC
e8db4035df29edc29815ac9a374d0e3dfb8ef329
1 file changed
+24
-16
lib/remote.tcl
+24
-16
@@ -157,22 +157,7 @@ proc add_fetch_entry {r} {
157
}
158
159
if {$enable} {
160
- if {![winfo exists $fetch_m]} {
161
- menu $remove_m
162
- $remote_m insert 0 cascade \
163
- -label [mc "Remove Remote"] \
164
- -menu $remove_m
165
-
166
- menu $prune_m
167
- $remote_m insert 0 cascade \
168
- -label [mc "Prune from"] \
169
- -menu $prune_m
170
-
171
- menu $fetch_m
172
- $remote_m insert 0 cascade \
173
- -label [mc "Fetch from"] \
174
- -menu $fetch_m
175
- }
160
+ make_sure_remote_submenues_exist $remote_m
161
162
$fetch_m add command \
163
-label $r \
@@ -222,6 +207,29 @@ proc add_push_entry {r} {
207
}
208
}
209
210
+proc make_sure_remote_submenues_exist {remote_m} {
211
+ set fetch_m $remote_m.fetch
212
+ set prune_m $remote_m.prune
213
+ set remove_m $remote_m.remove
214
+
215
+ if {![winfo exists $fetch_m]} {
216
+ menu $remove_m
217
+ $remote_m insert 0 cascade \
218
+ -label [mc "Remove Remote"] \
219
+ -menu $remove_m
220
+
221
+ menu $prune_m
222
+ $remote_m insert 0 cascade \
223
+ -label [mc "Prune from"] \
224
+ -menu $prune_m
225
+
226
+ menu $fetch_m
227
+ $remote_m insert 0 cascade \
228
+ -label [mc "Fetch from"] \
229
+ -menu $fetch_m
230
+ }
231
+}
232
+
233
proc populate_remotes_menu {} {
234
global all_remotes
235