667c682c2b
necessary modules are now "all.rkt"s; "shard.rkt"s turn to "resources.rkt". Also, "navbar.rkt" changes to "all.rkt", since it was doing the same thing (in addition to setting the navbar).
43 lines
1.6 KiB
Racket
43 lines
1.6 KiB
Racket
#lang meta/web
|
|
|
|
(require "resources.rkt" "../download/download-pages.rkt")
|
|
|
|
(provide download-button download)
|
|
|
|
(define download
|
|
@page[#:link-title "Download" #:window-title "Download Racket"
|
|
#:file "download/" #:part-of 'download]{
|
|
@(render-download-page)})
|
|
|
|
(define images (list (copyfile (in-here "download.png"))
|
|
(copyfile (in-here "download-dark.png"))))
|
|
|
|
(define (download-button)
|
|
@text{
|
|
@script/inline[type: "text/javascript"]{
|
|
@; Don't load all images here -- it causes a delay when loading the
|
|
@; page instead, do it only when needed, and also set a timer to do it
|
|
@; after loading the page. This makes it so that there's almost never
|
|
@; a delay when loading the page, and also no delay when switching the
|
|
@; image.
|
|
var rollovers = false, the_download_button = false;
|
|
function init_rollovers() {
|
|
if (!rollovers) {
|
|
rollovers = [ new Image(), new Image() ];
|
|
rollovers[0].src = "@(car images)";
|
|
rollovers[1].src = "@(cadr images)";
|
|
the_download_button = document.getElementById("download_button");
|
|
}
|
|
}
|
|
function set_download_image(n) {
|
|
if (!rollovers) init_rollovers();
|
|
the_download_button.src = rollovers[n].src;
|
|
}
|
|
setTimeout(init_rollovers, 400);
|
|
}
|
|
@a[href: (get-resource-path download)
|
|
onmouseover: "set_download_image(1);"
|
|
onmouseout: "set_download_image(0);"]{
|
|
@img[id: "download_button" src: (car images) style: "border-width: 0;"
|
|
alt: "Download Racket" title: "Download Racket"]}})
|