4176
((3) 0 () 11 ((c (? . 1) q table<%>) (q lib "games/cards.rkt") (c (? . 1) q card<%>) (q 527 . 10) (q 3793 . 5) (q 3965 . 9) (q 5201 . 3) (q 5071 . 3) (q 5437 . 5) (q 4318 . 7) (q 4646 . 5)) () (h ! (equal) ((c meth c (c (? . 0) q move-card)) q (3054 . 5)) ((c meth c (c (? . 0) q end-card-sequence)) c (? . 6)) ((c def c (c (? . 1) q region-interactive-callback)) q (1960 . 4)) ((c meth c (c (? . 2) q face-down)) q (7128 . 2)) ((c meth c (c (? . 0) q card-to-back)) c (? . 10)) ((c meth c (c (? . 0) q set-double-click-action)) q (5756 . 3)) ((c meth c (c (? . 2) q dim)) q (8189 . 4)) ((c meth c (c (? . 2) q get-suit)) q (7447 . 2)) ((c meth c (c (? . 0) q animated)) q (6046 . 4)) ((c def c (c (? . 1) q make-table)) q (0 . 5)) ((c meth c (c (? . 2) q rotate)) q (7220 . 3)) ((c def c (c (? . 1) q region-h)) c (? . 3)) ((c meth c (c (? . 2) q stay-in-region)) q (7899 . 4)) ((c def c (c (? . 1) q make-deck)) q (172 . 2)) ((c meth c (c (? . 0) q card-location)) q (4909 . 3)) ((c meth c (c (? . 0) q unhilite-region)) c (? . 8)) ((c meth c (c (? . 0) q card-face-up)) c (? . 5)) ((c def c (c (? . 1) q set-region-interactive-callback!)) q (1709 . 6)) ((c meth c (c (? . 0) q pause)) q (5980 . 3)) ((c def c (c (? . 1) q region-x)) c (? . 3)) ((c def c (c (? . 1) q make-button-region)) q (900 . 9)) ((c meth c (c (? . 0) q flip-cards)) c (? . 4)) ((c meth c (c (? . 0) q stack-cards)) q (4812 . 3)) ((c meth c (c (? . 0) q remove-card)) q (2871 . 3)) ((c meth c (c (? . 2) q orientation)) q (7337 . 2)) ((c meth c (c (? . 0) q all-cards)) q (5003 . 2)) ((c meth c (c (? . 0) q rotate-cards)) c (? . 9)) ((c meth c (c (? . 0) q flip-card)) c (? . 4)) ((c meth c (c (? . 0) q add-help-button)) q (6287 . 9)) ((c meth c (c (? . 2) q card-height)) q (6980 . 2)) ((c def c (c (? . 1) q make-card)) q (217 . 6)) ((c meth c (c (? . 2) q copy)) q (8286 . 2)) ((c meth c (c (? . 2) q get-suit-id)) q (7401 . 2)) ((c meth c (c (? . 0) q add-scribble-button)) q (6617 . 7)) ((c meth c (c (? . 0) q table-height)) c (? . 7)) ((c meth c (c (? . 0) q add-region)) q (5302 . 3)) ((c meth c (c (? . 0) q set-single-click-action)) q (5868 . 3)) ((c meth c (c (? . 2) q snap-back-after-move)) q (7770 . 4)) ((c meth c (c (? . 0) q add-cards)) q (2259 . 11)) ((c meth c (c (? . 0) q card-face-down)) c (? . 5)) ((c meth c (c (? . 0) q set-button-action)) q (5572 . 5)) ((c def c (c (? . 1) q make-background-region)) q (1236 . 11)) ((c meth c (c (? . 0) q move-cards-to-region)) q (3612 . 5)) ((c meth c (c (? . 2) q get-value)) q (7492 . 2)) ((c meth c (c (? . 0) q remove-region)) q (5368 . 3)) ((c def c (c (? . 1) q make-region)) c (? . 3)) ((c meth c (c (? . 0) q begin-card-sequence)) c (? . 6)) ((c meth c (c (? . 0) q table-width)) c (? . 7)) ((c meth c (c (? . 2) q face-down?)) q (7172 . 2)) ((c def c (c (? . 1) q region-callback)) c (? . 3)) ((c def c (c (? . 1) q set-region-callback!)) c (? . 3)) ((c meth c (c (? . 0) q cards-face-up)) c (? . 5)) ((c meth c (c (? . 2) q user-can-flip)) q (7536 . 4)) ((c def c (c (? . 1) q shuffle-list)) q (428 . 4)) ((c meth c (c (? . 2) q user-can-move)) q (7653 . 4)) ((c meth c (c (? . 2) q card-width)) q (6914 . 2)) ((c def c (c (? . 1) q region-w)) c (? . 3)) ((c def c (c (? . 1) q region?)) c (? . 3)) ((c meth c (c (? . 0) q remove-cards)) q (2956 . 3)) ((c meth c (c (? . 0) q create-status-pane)) q (6153 . 2)) ((c meth c (c (? . 0) q hilite-region)) c (? . 8)) ((c def c (c (? . 1) q region-y)) c (? . 3)) ((c meth c (c (? . 2) q flip)) q (7047 . 2)) ((c meth c (c (? . 0) q rotate-card)) c (? . 9)) ((c meth c (c (? . 0) q add-cards-to-region)) q (2692 . 5)) ((c def c (c (? . 1) q region-label)) c (? . 3)) ((c def c (c (? . 1) q struct:region)) c (? . 3)) ((c meth c (c (? . 0) q add-card)) q (2139 . 5)) ((c def c (c (? . 1) q region)) c (? . 3)) ((c meth c (c (? . 0) q cards-face-down)) c (? . 5)) ((c meth c (c (? . 0) q card-to-front)) c (? . 10)) ((c meth c (c (? . 2) q face-up)) q (7086 . 2)) ((c def c (? . 0)) q (2081 . 3)) ((c meth c (c (? . 2) q home-region)) q (8047 . 4)) ((c def c (? . 2)) q (6881 . 2)) ((c meth c (c (? . 0) q move-cards)) q (3175 . 11)) ((c meth c (c (? . 0) q set-status)) q (6218 . 3))))
procedure
(make-table [title w h]) -> table<%>
  title : string? = "Cards"
  w : exact-nonnegative-integer? = 7
  h : exact-nonnegative-integer? = 3
procedure
(make-deck) -> (listof card<%>)
procedure
(make-card front-bm back-bm suit-id value) -> (is-a?/c card<%>)
  front-bm : (is-a?/c bitmap?)
  back-bm : (or/c (is-a?/c bitmap%) false/c)
  suit-id : any/c
  value : any/c
procedure
(shuffle-list lst n) -> list?
  lst : list?
  n : exact-nonnegative-integer?
struct
(struct region (x y w h label [callback #:mutable])
        #:extra-constructor-name make-region)
  x : real?
  y : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  label : (or/c string? false/c)
  callback : (or/c ((listof (is-a?/c card<%>)) . -> . any)
                   false/c)
procedure
(make-button-region x y w h label callback) -> region?
  x : real?
  y : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  label : (or/c string? false/c)
  callback : (or/c ((listof (is-a?/c card<%>)) . -> . any)
                   false/c)
procedure
(make-background-region x                   
                        y                   
                        w                   
                        h                   
                        paint-callback) -> region?
  x : real?
  y : real?
  w : (and/c real? (not/c negative?))
  h : (and/c real? (not/c negative?))
  paint-callback : ((is-a?/c dc<%>) real? real? real? real? . -> . any)
procedure
(set-region-interactive-callback! r             
                                  callback) -> void?
  r : region?
  callback : (or/c (boolean? (listof (is-a?/c card<%>)) . -> . any)
                   false/c)
procedure
(region-interactive-callback r)
 -> (boolean? (listof (is-a?/c card<%>)) . -> . any)
  r : region?
interface
table<%> : interface?
  implements: frame%
method
(send a-table add-card card x y) -> void?
  card : (is-a?/c card<%>)
  x : real?
  y : real?
method
(send a-table add-cards  cards             
                         x                 
                         y                 
                        [offset-proc]) -> void?
  cards : (listof (is-a?/c card<%>))
  x : real?
  y : real?
  offset-proc : (exact-nonnegative-integer?
                 . -> . (values real? real?))
              = (lambda (i) (values 0 0))
method
(send a-table add-cards-to-region cards        
                                  region?) -> void?
  cards : (listof (is-a?/c card<%>))
  region? : r
method
(send a-table remove-card card) -> void?
  card : (is-a?/c card<%>)
method
(send a-table remove-cards cards) -> void?
  cards : (listof (is-a?/c card<%>))
method
(send a-table move-card card x y) -> void?
  card : (is-a?/c card<%>)
  x : real?
  y : real?
method
(send a-table move-cards  cards             
                          x                 
                          y                 
                         [offset-proc]) -> void?
  cards : (listof (is-a?/c card<%>))
  x : real?
  y : real?
  offset-proc : (exact-nonnegative-integer?
                 . -> . (values real? real?))
              = (lambda (i) (values 0 0))
method
(send a-table move-cards-to-region cards        
                                   region?) -> void?
  cards : (listof (is-a?/c card<%>))
  region? : r
method
(send a-table flip-card card) -> void?
  card : (is-a?/c card<%>)
(send a-table flip-cards cards) -> void?
  cards : (listof (is-a?/c card<%>))
method
(send a-table card-face-up card) -> void?
  card : (is-a?/c card<%>)
(send a-table cards-face-up cards) -> void?
  cards : (listof (is-a?/c card<%>))
(send a-table card-face-down card) -> void?
  card : (is-a?/c card<%>)
(send a-table cards-face-down cards) -> void?
  cards : (listof (is-a?/c card<%>))
method
(send a-table rotate-card card mode) -> void?
  card : (is-a?/c card<%>)
  mode : (or/c 'cw 'ccw 0 90 -90 180 -180 270 -270 360)
(send a-table rotate-cards cards mode) -> void?
  cards : (listof (is-a?/c card<%>))
  mode : (or/c 'cw 'ccw 0 90 -90 180 -180 270 -270 360)
method
(send a-table card-to-front card) -> void?
  card : (is-a?/c card<%>)
(send a-table card-to-back card) -> void?
  card : (is-a?/c card<%>)
method
(send a-table stack-cards cards) -> void?
  cards : (listof (is-a?/c card<%>))
method
(send a-table card-location card) -> real? real?
  card : (is-a?/c card<%>)
method
(send a-table all-cards) -> (listof (is-a?/c card<%>))
method
(send a-table table-width) -> exact-nonnegative-integer?
(send a-table table-height) -> exact-nonnegative-integer?
method
(send a-table begin-card-sequence) -> void?
(send a-table end-card-sequence) -> void?
method
(send a-table add-region r) -> void
  r : region?
method
(send a-table remove-region r) -> void
  r : region?
method
(send a-table hilite-region r) -> void?
  r : region?
(send a-table unhilite-region r) -> void?
  r : region?
method
(send a-table set-button-action which       
                                action) -> void?
  which : (one-of/c 'left 'middle 'right)
  action : symbol?
method
(send a-table set-double-click-action proc) -> void?
  proc : ((is-a?/c card<%>) . -> . any)
method
(send a-table set-single-click-action proc) -> void?
  proc : ((is-a?/c card<%>) . -> . any)
method
(send a-table pause secs) -> void?
  secs : real?
method
(send a-table animated) -> boolean?
(send a-table animated on?) -> void?
  on? : any/c
method
(send a-table create-status-pane) -> (is-a?/c pane%)
method
(send a-table set-status str) -> void?
  str : sring
method
(send a-table add-help-button pane          
                              coll-path     
                              str           
                              tt?)      -> void?
  pane : (is-a?/c area-container<%>)
  coll-path : (listof string?)
  str : string?
  tt? : any/c
method
(send a-table add-scribble-button pane         
                                  mod-path     
                                  tag)     -> void?
  pane : (is-a?/c area-container<%>)
  mod-path : module-path?
  tag : string?
interface
card<%> : interface?
method
(send a-card card-width) -> exact-nonnegative-integer?
method
(send a-card card-height) -> exact-nonnegative-integer?
method
(send a-card flip) -> void?
method
(send a-card face-up) -> void?
method
(send a-card face-down) -> void?
method
(send a-card face-down?) -> boolean?
method
(send a-card rotate mode) -> void?
  mode : (or/c 'cw 'ccw 0 90 -90 180 -180 270 -270 360)
method
(send a-card orientation) -> (or/c 0 90 180 270)
method
(send a-card get-suit-id) -> any/c
method
(send a-card get-suit) -> symbol?
method
(send a-card get-value) -> any/c
method
(send a-card user-can-flip) -> boolean?
(send a-card user-can-flip can?) -> void?
  can? : any/c
method
(send a-card user-can-move) -> boolean?
(send a-card user-can-move can?) -> void?
  can? : any/c
method
(send a-card snap-back-after-move) -> boolean?
(send a-card snap-back-after-move on?) -> void?
  on? : any/c
method
(send a-card stay-in-region) -> (or/c region? false/c)
(send a-card stay-in-region r) -> void?
  r : (or/c region? false/c)
method
(send a-card home-region) -> (or/c region? false/c)
(send a-card home-region r) -> void?
  r : (or/c region? false/c)
method
(send a-card dim) -> boolean?
(send a-card dim can?) -> void?
  can? : any/c
method
(send a-card copy) -> (is-a?/c card<%>)
