suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove leftover printf and adjust splash screen width default

Browse Source
This commit is contained in:
Robby Findler 2011-01-20 15:40:11 -06:00
parent 0c193a599a
commit b25c9591f6
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/drracket-normal.rkt
View File

@ -119,7 +119,7 @@
[else [else
(collection-file-path "plt-flat.gif" "icons")]) (collection-file-path "plt-flat.gif" "icons")])
"DrRacket" "DrRacket"
99 700
#:allow-funny? #t) #:allow-funny? #t)
(when (getenv "PLTDRBREAK") (when (getenv "PLTDRBREAK")

1
collects/framework/splash.rkt
View File

@ -203,7 +203,6 @@
(define splash-max-width 1) (define splash-max-width 1)
(define (close-splash) (define (close-splash)
(printf "splash-current-width ~s\n" splash-current-width)
(unless (= splash-max-width splash-current-width) (unless (= splash-max-width splash-current-width)
(splash-set-preference (get-splash-width-preference-name) (max 1 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)) (on-splash-eventspace/ret (set! quit-on-close? #f))