git-gui: change dialog button positions for Windows to suit platform.
authorPat Thoyts <patthoyts@users.sourceforge.net>
Fri, 17 May 2013 09:51:01 +0000 (17 10:51 +0100)
committerPat Thoyts <patthoyts@users.sourceforge.net>
Fri, 17 May 2013 09:51:01 +0000 (17 10:51 +0100)
On windows it is more common to have cancel furthest on the right.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
lib/choose_repository.tcl

index 657f7d5..ee58981 100644 (file)
@@ -286,7 +286,9 @@ method _next {action} {
        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
 }