From 5949a73a0d7f539f875c832d427ce9f3f349a824 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 17 Jun 2002 12:42:28 +0000
Subject: [PATCH] .

original commit: 6ce6cde2cdb28a9c9d6013ce9128c1340b70bd8f
---
 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 0683f4a8..50755566 100644
--- a/collects/framework/gui-utils.ss
+++ b/collects/framework/gui-utils.ss
@@ -239,7 +239,9 @@
                         (send b2 get-width))])
             (send b1 min-width w)
             (send b2 min-width w)
-            (values b1 b2))))))
+	    (if (cancel-on-right?)
+		(values b1 b2)
+		(values b2 b1)))))))
 
   
   (define clickback-delta (make-object style-delta% 'change-underline #t))