70 lines
2.3 KiB
Scheme
70 lines
2.3 KiB
Scheme
#|
|
|
TODO:
|
|
* demonstrate setup-plt launcher
|
|
* manuals as `doc' sub-collections?
|
|
|#
|
|
|
|
(module help mzscheme
|
|
(require (lib "class.ss")
|
|
(lib "unitsig.ss")
|
|
"startup-url.ss"
|
|
"help-unit.ss"
|
|
"help-sig.ss"
|
|
"proxy-prefs.ss"
|
|
(lib "string-constant.ss" "string-constants")
|
|
(lib "framework.ss" "framework")
|
|
(lib "framework-sig.ss" "framework")
|
|
(lib "plt-installer.ss" "setup")
|
|
(lib "plt-installer-sig.ss" "setup")
|
|
(lib "mred-sig.ss" "mred")
|
|
(lib "mred.ss" "mred"))
|
|
|
|
(preferences:add-editor-checkbox-panel)
|
|
(preferences:add-warnings-checkbox-panel)
|
|
;; don't call preferences:add-scheme-checkbox-panel
|
|
;; here since those prefs don't really apply to Help Desk
|
|
(add-proxy-prefs-panel)
|
|
|
|
(define (frame-mixin %)
|
|
(class %
|
|
(define/override (help-menu:about-string)
|
|
(string-constant about-help-desk))
|
|
(define/override (help-menu:about-callback i e)
|
|
(message-box (string-constant about-help-desk)
|
|
(format
|
|
(string-constant help-desk-about-string)
|
|
(version:version))
|
|
this))
|
|
(define/override (help-menu:create-about?) #t)
|
|
(define/override (help-menu:after-about menu)
|
|
(make-object menu-item% (string-constant help-on-help) menu
|
|
(lambda (i e)
|
|
(message-box
|
|
(string-constant help-on-help)
|
|
(string-constant help-on-help-details)
|
|
this))))
|
|
(super-instantiate ())))
|
|
|
|
(define (user-defined-doc-position x) #f)
|
|
|
|
;; just in case drscheme hasn't been run before, we
|
|
;; need a default for this preference.
|
|
(preferences:set-default
|
|
'drscheme:font-size
|
|
(send (send (send (make-object text%)
|
|
get-style-list)
|
|
basic-style)
|
|
get-size)
|
|
(lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
|
|
|
|
(define-values/invoke-unit/sig help^
|
|
help@
|
|
#f
|
|
setup:plt-installer^
|
|
mred^
|
|
framework^
|
|
(frame-mixin)
|
|
help:doc-position^)
|
|
|
|
(new-help-frame startup-url))
|