From 74b20d58d1e7deacf8efeaf8c0f31131213623b4 Mon Sep 17 00:00:00 2001 From: Jens Axel Soegaard Date: Sun, 26 Aug 2007 22:09:13 +0000 Subject: [PATCH] Added more vertical space at the "home" page in the internal HelpDesk. svn: r7188 --- collects/help/servlets/home.ss | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) diff --git a/collects/help/servlets/home.ss b/collects/help/servlets/home.ss index 5ecf78c163..3a30040ecf 100644 --- a/collects/help/servlets/home.ss +++ b/collects/help/servlets/home.ss @@ -103,15 +103,21 @@ (html-top initial-request) (left-items) right-header right-items)]))]))))) + + (define (br) + (if (eq? (helpdesk-platform) 'external-browser) + '() + '((br) (br)))) (define (left-items) `(-- -- -- -- -- ("Get help: " nbsp nbsp nbsp nbsp - (b (a ((href ,url-helpdesk-help)) "Help Desk"))) - -- -- + (b (a ((href ,url-helpdesk-help)) "Help Desk")) + ,@(br)) + -- -- ("Learn to program in Scheme: " - nbsp nbsp nbsp nbsp + nbsp nbsp nbsp nbsp "Reference: " 'nbsp (a ((href ,url-helpdesk-manuals)) "Manuals") ", " @@ -121,14 +127,16 @@ 'nbsp (a ((href ,url-helpdesk-books)) "Books") ", " (a ((href ,url-helpdesk-languages)) "Languages") ", " - (a ((href ,url-helpdesk-teachpacks)) "Teachpacks")) - -- -- + (a ((href ,url-helpdesk-teachpacks)) "Teachpacks") + ,@(br)) + -- -- ("How to run programs: " nbsp nbsp nbsp nbsp (b (a ((href ,url-helpdesk-software)) "Software: ")) 'nbsp (a ((href ,url-helpdesk-tour)) "Tour") ", " (a ((href ,url-helpdesk-drscheme)) "DrScheme") ", " - (a ((href ,url-helpdesk-release)) "Release") + (a ((href ,url-helpdesk-release)) "Release") + ,@(br) ; (a ((href ,url-helpdesk-drscheme-faq)) "FAQ")) ; Moved to the DrScheme page ) -- -- @@ -137,8 +145,9 @@ (a ((href ,url-helpdesk-mailing-lists)) "Mailing Lists") ,@(case (helpdesk-platform) ((external-browser) `(", " (a ((href ,url-external-send-bug-report)) "Send a bug report"))) - (else '()))) - -- -- + (else '())) + ,@(br)) + -- -- ("" " " " " ,@(case (helpdesk-platform)