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

make site: fix for pop-up help

Browse Source 
original commit: 5c17488d4ca4dd141261a97972dd93598450c571
This commit is contained in:
Matthew Flatt 2013-11-11 09:50:24 -07:00
parent aec79d1db5
commit d5a644f8f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/distro-build/download-page.rkt
View File

@ -126,7 +126,7 @@
(define (get-site-help last-col) (define (get-site-help last-col)
(let ([h (hash-ref site-help last-col #f)]) (let ([h (hash-ref site-help last-col #f)])
(if h (if h
(let* ([id "help"] (let* ([id (~a "help" (gensym))]
[toggle (let ([elem (~a "document.getElementById" "('" id "')")]) [toggle (let ([elem (~a "document.getElementById" "('" id "')")])
(~a elem ".style.display = ((" elem ".style.display == 'inline') ? 'none' : 'inline');" (~a elem ".style.display = ((" elem ".style.display == 'inline') ? 'none' : 'inline');"
" return false;"))]) " return false;"))])