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

...

Browse Source 
original commit: ff07c125ac5ac774fa9e90700d92cde3327ca0d4
This commit is contained in:
Robby Findler 2000-06-12 03:48:09 +00:00
parent a340bc1c17
commit 1d4a9b6b63
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/splash.ss
View File

@ -6,7 +6,9 @@
(let/ec k
(letrec-values
([(no-splash) (lambda () (k void void))]
[(funny?) (zero? (random 1000))]
[(funny?) (let ([date (seconds->date (current-seconds))])
(and (= (date-day date) 25)
(= (date-month date) 12)))]
[(funny-gauge%)
(class canvas% (max-value parent)
(inherit get-dc min-width min-height stretchable-width stretchable-height)