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

adjust the htdp teachpack docs to use the #:use-sources keyword to demonstrate how it works

Browse Source
This commit is contained in:
Robby Findler 2011-05-14 20:47:38 -05:00
parent 7c546d3b7c
commit a82ae17ca8
2 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/htdp/tests/test-docs-complete.rkt
View File

@ -4,11 +4,6 @@
(define (private-module s) #true)
(define (legacy-module s) #true)
(require htdp/draw)
(define index-for-htdp/draw (car (identifier-binding #'draw-solid-rect)))
(define (comes-from-draw? h)
(not (module-provide-protected? index-for-htdp/draw h)))
(check-docs (quote htdp/world))
(check-docs (quote htdp/testing))
(check-docs (quote htdp/show-queen))
@ -23,12 +18,12 @@
(check-docs (quote htdp/master-play))
(check-docs (quote htdp/lkup-gui))
(check-docs (quote htdp/image))
(check-docs (quote htdp/hangman) #:skip comes-from-draw?)
(check-docs (quote htdp/hangman))
(check-docs (quote htdp/hangman-play))
(check-docs (quote htdp/gui))
(check-docs (quote htdp/guess))
(check-docs (quote htdp/guess-gui))
(check-docs (quote htdp/graphing) #:skip comes-from-draw?)
(check-docs (quote htdp/graphing))
(check-docs (quote htdp/error))
(check-docs (quote htdp/elevator))
(check-docs (quote htdp/draw)

2
collects/teachpack/htdp/scribblings/draw.scrbl
View File

@ -7,7 +7,7 @@
@teachpack["draw"]{Simple Drawing}
@;declare-exporting[teachpack/htdp/draw]
@defmodule[#:require-form beginner-require htdp/draw]
@defmodule[#:require-form beginner-require htdp/draw #:use-sources (htdp/big-draw htdp/draw)]
The teachpack provides two sets of functions: one for drawing into a canvas
and one for reacting to canvas events.