git-gui: change dialog button positions for Windows to suit platform.

patthoyts · patthoyts · commit ed05e9f6c027 · 2013-05-17T10:51:01.000+01:00
On windows it is more common to have cancel furthest on the right.

Signed-off-by: Pat Thoyts &lt;patthoyts@users.sourceforge.net&gt;
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
 }

Original file line number	Diff line number	Diff line change
`@@ -286,7 +286,9 @@ method _next {action} {`
`286`	`286`	`destroy $w_body`
`287`	`287`	`if {![winfo exists $w_next]} {`
`288`	`288`	`${NS}::button $w_next -default active`
`289`		`- pack $w_next -side right -padx 5 -before $w_quit`
	`289`	`+ set pos -before`
	`290`	`+ if {[tk windowingsystem] eq "win32"} { set pos -after }`
	`291`	`+ pack $w_next -side right -padx 5 $pos $w_quit`
`290`	`292`	`}`
`291`	`293`	`_do_$action $this`
`292`	`294`	`}`