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

Added headers for internal-browser-simple.

Browse Source 
Added version on the first page.

svn: r7183
This commit is contained in:
Jens Axel Soegaard 2007-08-26 17:03:25 +00:00
parent f356d2362d
commit 27bef0e8d4
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/help/servlets/home.ss
View File

@ -54,7 +54,9 @@
(p "To see the list of manuals installed on " (i "your") " computer, "
" use the HelpDesk from within DrScheme. This list of manuals reflects "
"what is installed on this HelpDesk server only.")
(VERBATIM ,(find-manuals))))]
(VERBATIM ,(find-manuals))
(p)
(i "Version: " ,(plt-version))))]
["release"
(let ()
(define (link-stuff url txt) `(li (b (a ([href ,url]) ,txt))))
@ -92,13 +94,15 @@
(html-subpage "PLT Scheme Help Desk: Home"
(html-top initial-request)
"home"
right-header (left-items))]
right-header (append (left-items)
`(((p)
(i "Version: " ,(plt-version))))))]
[else
(html-subpage "PLT Scheme Help Desk: Home"
(html-top initial-request)
(left-items)
right-header right-items)]))])))))
(define (left-items)
`(-- -- -- -- --
("Get help: "
@ -203,9 +207,9 @@
#;(li "The " (b "Send a bug report") " link allows you to submit a bug report to PLT."))))
("known-bugs" "Known Bugs"
((p (a ([name "bugs"] [value "Bugs"]))
"For an up-to-date list of bug reports, see the "
(a ([href "http://bugs.plt-scheme.org/query/"] [target "_top"])
"PLT bug report query page") ".")))
"For an up-to-date list of bug reports, see the "
(a ([href "http://bugs.plt-scheme.org/query/"] [target "_top"])
"PLT bug report query page") ".")))
("languages" "Scheme Languages"
((p "DrScheme supports many dialects of Scheme. "
"The following dialects are specifically designed for teaching "

8
collects/help/servlets/private/split-screen.ss
View File

@ -12,7 +12,7 @@
(define left-footer-items
(case (helpdesk-platform)
[(internal-browser)
[(internal-browser internal-browser-simple)
'(nbsp)]
[else
'(nbsp
@ -57,12 +57,14 @@
(hr)
,@(html-right-items right-items))))
; simple version that only shows the contents and no menu
(define (make-simple-page/internal-browser title top-items left-items right-header right-items)
(html-page
#:title title
#:body (if (equal? left-items "home")
`(div ,(html-left-items right-items))
`(div ,@(html-right-items right-items)))))
`(div (h1 "HelpDesk Home") ,(html-left-items right-items))
`(div (h1 ,right-header)
,@(html-right-items right-items)))))
; an external is capable of displaying a proper split screen
(define (make-split-page title top-items left-items right-header right-items)