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>
git-mirror · May 17, 2013 · ed05e9f · ed05e9f
1 parent 1fcd24d
commit ed05e9f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl
@@ -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
 }