From a8daae7238af54174ac8de09963aed66522e8029 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Aug 1999 13:56:35 +0000
Subject: [PATCH] .

original commit: 1b6198247147ee5fe5ba80dd8a4f2b87dfe0e296
---
 collects/framework/prefs.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/framework/prefs.ss b/collects/framework/prefs.ss
index c8258dbc..9b0faf68 100644
--- a/collects/framework/prefs.ss
+++ b/collects/framework/prefs.ss
@@ -565,7 +565,7 @@
 	       [ok-callback (lambda args
 			      (save)
 			      (hide-dialog))]
-	       [ok-button (make-object button% "OK" bottom-panel ok-callback)]
+	       [ok-button (make-object button% "OK" bottom-panel ok-callback '(border))]
 	       [cancel-callback (lambda args
 				  (hide-dialog)
 				  (-read))]
@@ -578,5 +578,6 @@
 	(ensure-constructed)
 	(unless (null? ppanels)
 	  (send popup-menu set-selection 0))
+	(send popup-menu focus)
 	(send frame show #t)
 	frame))))