#lang racket

(require (planet "date-chooser.rkt" ("chenxiao" "date-chooser.plt" 1 0)))

(require racket/gui racket/draw racket/date)

(define-values (screen-width screen-height) (get-display-size))

(define app-width 300)

(define app-height 520)

(define test-frame (new frame% 
                      [label "DateChooser Example"]
                      [width app-width]
                      [height app-height]
                      [x (- (quotient screen-width 2) (quotient app-width 2))]
                      [y (- (quotient screen-height 2) (quotient app-height 2))]
                      ))
(new date-chooser%
     [parent-gui test-frame]
     [width 140]
     [height 60]
     [choosed-date (seconds->date (find-seconds 0 0 0 1 1 2012))])

(new date-chooser%
     [parent-gui test-frame]
     [width 140]
     [height 60]
     [choosed-date (seconds->date (find-seconds 0 0 0 1 1 2012))]
     [background-color "blue"]
     [text-color "white"])

(new date-chooser%
     [parent-gui test-frame]
     [width 300]
     [height 100]
     [choosed-date (seconds->date (find-seconds 0 0 0 1 1 2012))]
     [font (make-object font% 30 'default)]
     [background-color"black"]
     [text-color "white"])

(new date-chooser%
     [parent-gui test-frame]
     [width 300]
     [height 100]
     [choosed-date (seconds->date (find-seconds 0 0 0 1 1 2012))]
     [font (make-object font% 30 'default 'slant 'bold)])

(new date-chooser%
     [parent-gui test-frame]
     [width 300]
     [height 100]
     [choosed-date (seconds->date (find-seconds 0 0 0 1 1 2012))]
     [font (make-object font% 30 'default)]
     [background-color"black"]
     [text-color "white"]
     [border-color "red"])

(new date-chooser%
     [parent-gui test-frame]
     [width 300]
     [height 100]
     [choosed-date (seconds->date (find-seconds 0 0 0 1 1 2012))]
     [font (make-object font% 30 'default)]
     [border-color "red"]
     [button-down-border-color "brown"]
     [button-down-fill-color "gold"]
     [button-up-border-color "darkred"]
     [button-up-fill-color "olive"])
     
(send test-frame show #t)