svn: r12574
This commit is contained in:
parent
ecb39eedee
commit
70e85a62a9
|
@ -165,11 +165,9 @@ setup/infotab
|
||||||
]
|
]
|
||||||
then the same collection would be expected to contain a
|
then the same collection would be expected to contain a
|
||||||
@File{tool.ss} file. It might contain something like this:
|
@File{tool.ss} file. It might contain something like this:
|
||||||
@schemeblock[
|
@schememod[
|
||||||
(module tool mzscheme
|
scheme/gui
|
||||||
(require (lib "tool.ss" "drscheme")
|
(require drscheme/tool)
|
||||||
mred
|
|
||||||
mzlib/unit)
|
|
||||||
|
|
||||||
(provide tool@)
|
(provide tool@)
|
||||||
|
|
||||||
|
@ -179,7 +177,7 @@ then the same collection would be expected to contain a
|
||||||
(export drscheme:tool-exports^)
|
(export drscheme:tool-exports^)
|
||||||
(define (phase1) (message-box "tool example" "phase1"))
|
(define (phase1) (message-box "tool example" "phase1"))
|
||||||
(define (phase2) (message-box "tool example" "phase2"))
|
(define (phase2) (message-box "tool example" "phase2"))
|
||||||
(message-box "tool example" "unit invoked"))))
|
(message-box "tool example" "unit invoked")))
|
||||||
]
|
]
|
||||||
This tool just opens a few windows to indicate that it has
|
This tool just opens a few windows to indicate that it has
|
||||||
been loaded and that the @scheme[phase1] and @scheme[phase2]
|
been loaded and that the @scheme[phase1] and @scheme[phase2]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user