From 4c2519e5a287709e3306449fc05bcdd2aefe8c7b Mon Sep 17 00:00:00 2001 From: Heiko Voigt Date: Tue, 22 Feb 2011 20:30:21 +0100 Subject: [PATCH] git-gui: fetch/prune all entry appears last The user might have got used to the order the remotes appeared previously. Lets add the all entry last so the all entry does not confuse previous users. Signed-off-by: Heiko Voigt Tested-by: Jens Lehmann Signed-off-by: Pat Thoyts --- lib/remote.tcl | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/lib/remote.tcl b/lib/remote.tcl index 18d3d0658..5e4e7f4c8 100644 --- a/lib/remote.tcl +++ b/lib/remote.tcl @@ -245,29 +245,27 @@ proc update_all_remotes_menu_entry {} { set prune_m $remote_m.prune if {$have_remote > 1} { make_sure_remote_submenues_exist $remote_m - set index [expr {[$fetch_m type 0] eq "tearoff" ? 1 : 0}] - if {[$fetch_m entrycget $index -label] ne "All"} { + if {[$fetch_m entrycget end -label] ne "All"} { - $fetch_m insert $index separator - $fetch_m insert $index command \ + $fetch_m insert end separator + $fetch_m insert end command \ -label "All" \ -command fetch_from_all - $prune_m insert $index separator - $prune_m insert $index command \ + $prune_m insert end separator + $prune_m insert end command \ -label "All" \ -command prune_from_all } } else { if {[winfo exists $fetch_m]} { - set index [expr {[$fetch_m type 0] eq "tearoff" ? 1 : 0}] - if {[$fetch_m type end] eq "separator"} { + if {[$fetch_m entrycget end -label] eq "All"} { - delete_from_menu $fetch_m $index - delete_from_menu $fetch_m $index + delete_from_menu $fetch_m end + delete_from_menu $fetch_m end - delete_from_menu $prune_m $index - delete_from_menu $prune_m $index + delete_from_menu $prune_m end + delete_from_menu $prune_m end } } } -- 2.30.2