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

extended help-desk to construct custom queries

Browse Source 
svn: r10102
This commit is contained in:
Eli Barzilay 2008-06-03 00:21:55 +00:00
parent 00043aaaae
commit df62a12b07
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/drscheme/private/help-desk.ss
View File

@ -63,14 +63,15 @@
(send dc draw-text dots (- cw dw) (- (/ ch 2) (/ th 2)))])))) (send dc draw-text dots (- cw dw) (- (/ ch 2) (/ th 2)))]))))
(super-new))) (super-new)))
(define (goto-plt-license) (define (goto-plt-license)
(send-url (send-main-page "license/index.html"))
(url->string
(path->url (build-path (find-doc-dir) "license" "index.html")))))
(define (help-desk [key #f] #:module [mod #f] #:manual [man #f])
(if (or key mod man)
(perform-search (string-append (or key "")
(if mod (format " L:~a" mod) "")
(if man (format " T:~a" man) "")))
(send-main-page)))
;; here for legacy code that should be removed
(define (get-docs) '()) (define (get-docs) '())
(define help-desk
(case-lambda
[() (send-main-page)]
[(key) (perform-search key)]))