From ad1172bde81dbc64cc94a50f0e873e16b0be82b6 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 9 Dec 2008 18:06:03 +0000
Subject: [PATCH] uses system-position-ok-before-cancel? now

svn: r12754

original commit: 41d0609ad2ee358ba3bfb8d903a45edd20f50073
---
 collects/framework/gui-utils.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.ss
index 9bcf60de..20f5b20e 100644
--- a/collects/framework/gui-utils.ss
+++ b/collects/framework/gui-utils.ss
@@ -110,7 +110,7 @@
 
 ;; end choices-canvas%
 
-(define (cancel-on-right?) (eq? (system-type) 'windows))
+(define (cancel-on-right?) (system-position-ok-before-cancel?))
 
 (define ok/cancel-buttons
   (lambda (parent 
@@ -334,6 +334,8 @@
   @{Returns @scheme[#t] if cancel should be on the right-hand side (or below)
             in a dialog and @scheme[#f] otherwise.
             
+            Just returns what @scheme[system-position-ok-before-cancel?] does.
+            
             See also @scheme[gui-utils:ok/cancel-buttons].})
  (proc-doc/names
   gui-utils:ok/cancel-buttons