remove leftover printf and adjust splash screen width default

2011-01-20 15:40:11 -06:00 · 2011-01-20 15:40:11 -06:00 · b25c9591f6
commit b25c9591f6
parent 0c193a599a
2 changed files with 1 additions and 2 deletions
--- a/collects/drracket/private/drracket-normal.rkt
+++ b/collects/drracket/private/drracket-normal.rkt
@ -119,7 +119,7 @@
   [else
    (collection-file-path "plt-flat.gif" "icons")])
 "DrRacket"
- 99
+ 700
 #:allow-funny? #t)

 (when (getenv "PLTDRBREAK")
--- a/collects/framework/splash.rkt
+++ b/collects/framework/splash.rkt
@ -203,7 +203,6 @@
 (define splash-max-width 1)

 (define (close-splash)
-  (printf "splash-current-width ~s\n" splash-current-width)
  (unless (= splash-max-width splash-current-width)
    (splash-set-preference (get-splash-width-preference-name) (max 1 splash-current-width)))
  (on-splash-eventspace/ret (set! quit-on-close? #f))