From 8f435b0a046d478a12a7e685957bab70fa8ad1e1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 20 Aug 1996 20:09:06 +0000
Subject: [PATCH] fixed size of dialog

original commit: 141bbc77f6c57ed7b60b1192d170b006cec1fc14
---
 collects/mred/finder.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss
index d9d6618e..4a63477a 100644
--- a/collects/mred/finder.ss
+++ b/collects/mred/finder.ss
@@ -47,7 +47,7 @@
 	
 	(private
 	  [WIDTH 500]
-	  [HEIGHT 500]
+	  [HEIGHT 400]
 	  
 	  dirs current-dir
 	  last-selected
@@ -359,6 +359,8 @@
 	    [last-directory (set-directory last-directory)]
 	    [else (set-directory (current-directory))])
 	  
+	  (send ok-button user-min-width (send cancel-button get-width))
+
 	  (center wx:const-both)
 	  
 	  (show #t))))