diff --git a/collects/framework/finder.ss b/collects/framework/finder.ss index d8ef7aaf..3d4d7c54 100644 --- a/collects/framework/finder.ss +++ b/collects/framework/finder.ss @@ -578,6 +578,8 @@ (make-object button% "OK" bottom-panel do-ok (if multi-mode? '() '(border)))] [cancel-button (make-object button% "Cancel" bottom-panel do-cancel)]) (sequence + (make-object grow-box-spacer-pane% bottom-panel) + (cond [(and start-dir (directory-exists? start-dir)) diff --git a/collects/framework/main.ss b/collects/framework/main.ss index a064b7d2..17d30c13 100644 --- a/collects/framework/main.ss +++ b/collects/framework/main.ss @@ -85,11 +85,6 @@ (or (eq? x 'common) (eq? x 'std)))) - ;; reset this -- this preference is only for the test suite. - ;; it does not need to be set across starting up and shutting down - ;; the application. - (preferences:set 'framework:file-dialogs 'std) - ;; groups (preferences:set-default 'framework:exit-when-no-frames #t boolean?) @@ -150,6 +145,11 @@ ;(wx:application-file-handler edit-file) ;; how to handle drag and drop? (preferences:read) + + ;; reset these -- they are only for the test suite. + ;; they do not need to be set across starting up and shutting down + ;; the application. + (preferences:set 'framework:file-dialogs 'std) (preferences:set 'framework:exit-when-no-frames #t) (void))