From a82ae17ca8eeb4d27f10416c032ff099b232af91 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 14 May 2011 20:47:38 -0500 Subject: [PATCH] adjust the htdp teachpack docs to use the #:use-sources keyword to demonstrate how it works --- collects/htdp/tests/test-docs-complete.rkt | 9 ++------- collects/teachpack/htdp/scribblings/draw.scrbl | 2 +- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/collects/htdp/tests/test-docs-complete.rkt b/collects/htdp/tests/test-docs-complete.rkt index dcf5c98e99..360119f1b3 100644 --- a/collects/htdp/tests/test-docs-complete.rkt +++ b/collects/htdp/tests/test-docs-complete.rkt @@ -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) diff --git a/collects/teachpack/htdp/scribblings/draw.scrbl b/collects/teachpack/htdp/scribblings/draw.scrbl index 86c5307154..659d47e426 100644 --- a/collects/teachpack/htdp/scribblings/draw.scrbl +++ b/collects/teachpack/htdp/scribblings/draw.scrbl @@ -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.