fixed size of dialog

original commit: 141bbc77f6c57ed7b60b1192d170b006cec1fc14
1996-08-20 20:09:06 +00:00 · 1996-08-20 20:09:06 +00:00 · 8f435b0a04
commit 8f435b0a04
parent c5de481b18
1 changed files with 3 additions and 1 deletions
--- 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))))