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

no message

Browse Source 
original commit: 2231a361db45360fbe4a2cf178af50dc4e57ae94
This commit is contained in:
Robby Findler 2001-08-23 22:01:07 +00:00
parent 728f8842fb
commit 7b488f8e07
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/splash.ss
View File

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