
(module main mzscheme
  (require (lib "class.ss")
	   (lib "etc.ss")
	   (prefix mred: (lib "mred.ss" "mred"))
	   "make-cards.ss"
	   "classes.ss")

  (provide make-table make-deck)
  
  (define make-table
    (opt-lambda ([title "Cards"][w 7][h 3])
      (make-object table% title w h)))

  (define (make-deck)
    (map (lambda (l) (send l copy)) deck-of-cards)))
