..

original commit: f32d45cf8e4182938c194ff7e7ab5508b1efe948
2002-10-29 16:32:09 +00:00 · 2002-10-29 16:32:09 +00:00 · 2a04e21171
commit 2a04e21171
parent 699fc4ce43
1 changed files with 9 additions and 1 deletions
--- a/collects/framework/private/icon.ss
+++ b/collects/framework/private/icon.ss
@ -75,7 +75,15 @@

      (define (fetch)
 	(unless gc-on-bitmap
-	  (set! gc-on-bitmap ((load-icon "recycle.gif" 'gif)))))
+	  (set! gc-on-bitmap 
+                (if (mrf-bday?)
+                    ((load-icon "mrf.jpg" 'jpeg))
+                    ((load-icon "recycle.gif" 'gif))))))
+      
+      (define (mrf-bday?)
+        (let ([d (seconds->date (current-seconds))])
+          (and (= (date-month d) 11)
+               (= (date-day d) 1))))

      (define (get-gc-on-bitmap) (fetch) gc-on-bitmap)