41 lines
1.3 KiB
Scheme
41 lines
1.3 KiB
Scheme
(module help-desk mzscheme
|
|
(require
|
|
"bug-report.ss" ;; this is require'd here to get the prefs defaults setup done early.
|
|
|
|
"private/manuals.ss"
|
|
"private/buginfo.ss"
|
|
"private/standard-urls.ss"
|
|
|
|
"private/link.ss"
|
|
(lib "contract.ss"))
|
|
|
|
(provide help-desk-frame<%>)
|
|
|
|
(define (goto-hd-location x) (error 'goto-hd-location "no"))
|
|
|
|
(provide/contract
|
|
(set-bug-report-info! any/c)
|
|
(find-doc-names (-> (listof (cons/c path? string?))))
|
|
(goto-manual-link (any/c string? string? . -> . any))
|
|
|
|
(goto-hd-location (symbol? . -> . 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))))
|