From f3a95ba9c772bbdba696a1eeb9831b1129a7793e Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Tue, 20 Nov 2012 17:08:16 -0500
Subject: [PATCH] List provides explicitly in draw contracts

---
 collects/racket/draw/private/contract.rkt | 30 ++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/collects/racket/draw/private/contract.rkt b/collects/racket/draw/private/contract.rkt
index 0a8ea1f349..f23c382516 100644
--- a/collects/racket/draw/private/contract.rkt
+++ b/collects/racket/draw/private/contract.rkt
@@ -22,7 +22,35 @@
          "gl-config.rkt"
          "gl-context.rkt")
 
-(provide (all-defined-out))
+(provide brush-style/c
+         pen-cap-style/c
+         pen-join-style/c
+         pen-style/c
+         font-family/c
+         font-weight/c
+         font-style/c
+         transformation-vector/c
+         make-color/c
+         make-brush/c
+         make-pen/c
+         color%/c
+         point%/c
+         font%/c
+         pen%/c
+         pen-list%/c
+         brush%/c
+         brush-list%/c
+         linear-gradient%/c
+         radial-gradient%/c
+         bitmap-dc%/c
+         post-script-dc%/c
+         pdf-dc%/c
+         svg-dc%/c
+         record-dc%/c
+         region%/c
+         dc-path%/c
+         gl-config%/c
+         bitmap%/c)
 
 ;; dummy values to avoid cycles
 (define-values (frame% dialog%) (values object% object%))