6d8b8a3390
Most non-manual help desk pages are now in /help/servlets/home.ss Servlets are now x-expr based instead of string based. See instructions in /help/launch.ss if you want to try the online version. svn: r7160
43 lines
1.5 KiB
Scheme
43 lines
1.5 KiB
Scheme
(module help-desk mzscheme
|
|
(require
|
|
"bug-report.ss" ;; this is require'd here to get the prefs defaults setup done early.
|
|
"servlets/private/platform.ss" ;; same reason
|
|
|
|
"private/manuals.ss"
|
|
"private/buginfo.ss"
|
|
"private/standard-urls.ss"
|
|
|
|
"private/link.ss"
|
|
(lib "contract.ss"))
|
|
|
|
(current-helpdesk-platform 'internal-browser)
|
|
|
|
(provide help-desk-frame<%>)
|
|
|
|
(provide/contract
|
|
(add-help-desk-font-prefs (boolean? . -> . any))
|
|
(set-bug-report-info! any/c)
|
|
(find-doc-names (-> (listof (cons/c path? string?))))
|
|
(goto-manual-link (string? string? . -> . any))
|
|
|
|
(goto-hd-location ((symbols 'hd-tour 'release-notes 'plt-license) . -> . any))
|
|
(new-help-desk (-> (is-a?/c help-desk-frame<%>)))
|
|
(show-help-desk (-> any))
|
|
(add-help-desk-mixin (-> mixin-contract void?))
|
|
(search-for-docs (string?
|
|
search-type?
|
|
search-how?
|
|
any/c
|
|
(listof path?) ;; manual names
|
|
. -> .
|
|
any))
|
|
(find-help-desk-frame (-> (union false/c (is-a?/c help-desk-frame<%>))))
|
|
(search-for-docs/in-frame ((is-a?/c help-desk-frame<%>)
|
|
string?
|
|
search-type?
|
|
search-how?
|
|
any/c
|
|
(listof path?) ;; manual names
|
|
. -> .
|
|
any))))
|