git-gui: change dialog button positions for Windows to suit platform.
On windows it is more common to have cancel furthest on the right.
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl
index 657f7d5..ee58981 100644
--- a/lib/choose_repository.tcl
+++ b/lib/choose_repository.tcl
@@ -286,7 +286,9 @@
destroy $w_body
if {![winfo exists $w_next]} {
${NS}::button $w_next -default active
- pack $w_next -side right -padx 5 -before $w_quit
+ set pos -before
+ if {[tk windowingsystem] eq "win32"} { set pos -after }
+ pack $w_next -side right -padx 5 $pos $w_quit
}
_do_$action $this
}
