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

fix typo; layout

Browse Source 
svn: r12138

original commit: 7d72dc43c4ea5159d183f0512c6ce81a8f5181e1
This commit is contained in:
Eli Barzilay 2008-10-27 13:37:47 +00:00
parent b70318935e
commit d6f7cf6e56
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
collects/scribble/html-render.ss
View File

@ -191,7 +191,7 @@
(define search-field (define search-field
@`p{Search: @(input ([type "text"] [id "search_box"] @`p{Search: @(input ([type "text"] [id "search_box"]
[onchange "delayed_search(this.value,event);"] [onchange "delayed_search(this.value,event);"]
[onkeyup "delayed_search(this.value,event);"])))}) [onkeyup "delayed_search(this.value,event);"]))})
) )
@ -199,23 +199,22 @@
(let ([sa string-append] (let ([sa string-append]
[emptylabel "...search manuals..."] [emptylabel "...search manuals..."]
[dimcolor "#888"]) [dimcolor "#888"])
`(form `(form ([class "searchform"])
([class "searchform"]) (input
(input ([class "searchbox"]
([class "searchbox"] [style ,(sa "color: "dimcolor";")]
[style ,(sa "color: "dimcolor";")] [type "text"]
[type "text"] [value ,emptylabel]
[value ,emptylabel] [title "Enter a search string to search the manuals"]
[title "Enter a search string to search the manuals"] [onkeypress ,(format "return DoSearchKey(event, this, ~s, ~s);"
[onkeypress ,(format "return DoSearchKey(event, this, ~s, ~s);" (version) top-path)]
(version) top-path)] [onfocus ,(sa "this.style.color=\"black\"; "
[onfocus ,(sa "this.style.color=\"black\"; " "this.style.textAlign=\"left\"; "
"this.style.textAlign=\"left\"; " "if (this.value == \""emptylabel"\") this.value=\"\";")]
"if (this.value == \""emptylabel"\") this.value=\"\";")] [onblur ,(sa "if (this.value.match(/^ *$/)) {"
[onblur ,(sa "if (this.value.match(/^ *$/)) {" " this.style.color=\""dimcolor"\";"
" this.style.color=\""dimcolor"\";" " this.style.textAlign=\"center\";"
" this.style.textAlign=\"center\";" " this.value=\""emptylabel"\"; }")])))))
" this.value=\""emptylabel"\"; }")])))))
(define search-box (make-search-box "../")) (define search-box (make-search-box "../"))
(define top-search-box (make-search-box "")) (define top-search-box (make-search-box ""))