16 lines
428 B
Scheme
16 lines
428 B
Scheme
(module tool mzscheme
|
|
(require (lib "external.ss" "browser")
|
|
(lib "unitsig.ss")
|
|
(lib "tool.ss" "drscheme"))
|
|
(provide tool@)
|
|
|
|
;; to add a preference pannel to drscheme that sets the browser preference
|
|
(define tool@
|
|
(unit/sig drscheme:tool-exports^
|
|
(import drscheme:tool^)
|
|
|
|
(define phase1 void)
|
|
(define phase2 void)
|
|
|
|
(install-help-browser-preference-panel))))
|