no message

original commit: 2231a361db45360fbe4a2cf178af50dc4e57ae94
This commit is contained in:
Robby Findler 2001-08-23 22:01:07 +00:00
parent 728f8842fb
commit 7b488f8e07

View File

@ -58,7 +58,7 @@
(define (close-splash)
(unless (= splash-max-width splash-current-width)
(set-resource (get-splash-width-resource) (max 1 splash-current-width)))
(splash-set-resource (get-splash-width-resource) (max 1 splash-current-width)))
(set! quit-on-close? #f)
(when splash-frame
(send splash-frame show #f)))
@ -67,7 +67,7 @@
(set! splash-load-handler (lambda (old-load f) (old-load f))))
(define funny?
'(let ([date (seconds->date (current-seconds))])
(let ([date (seconds->date (current-seconds))])
(and (= (date-day date) 25)
(= (date-month date) 12))))
@ -135,7 +135,7 @@
(if (get-resource "mred" name b #f)
(unbox b)
default)))
(define (set-resource name value)
(define (splash-set-resource name value)
(write-resource "mred" name value (find-graphical-system-path 'setup-file)))
(define (splitup-path f)