suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

likely fixed an initialization problem (but I only saw the problem once so Im not sure); pls. include in release

Browse Source 
svn: r18649
This commit is contained in:
Robby Findler 2010-03-27 15:55:50 +00:00
parent 5c2f79a3fa
commit 895b207916
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/games/parcheesi/admin-gui.ss
View File

@ -333,17 +333,23 @@ corresponds to the unplayed move! that's confusing.
[(0) best-player%]
[(1) polite-player%]
[(2) reckless-player%]
[(3) gui-player%]))
[(3) gui-player%]
[else
(message-box "Parcheesi" (format "index->player got ~s" i))
gui-player%]))
(define players (vector (index->player 0)
(index->player 0)
(index->player 0)
(index->player 0)))
(define players (vector 'unfilled-in-players-array
'unfilled-in-players-array
'unfilled-in-players-array
'unfilled-in-players-array))
(define/private (add-choose-player-controls color parent-panel)
(let ([color-order '((green . 0) (red . 1) (blue . 2) (yellow . 3))])
(define/private (add-choose-player-controls color parent-panel init-selection)
(let* ([color-order '((green . 0) (red . 1) (blue . 2) (yellow . 3))]
[color-index (cdr (assq color color-order))])
(vector-set! players color-index (index->player init-selection))
(new radio-box%
(parent parent-panel)
(selection init-selection)
(label #f)
(choices '("Amazing Grace"
"Polite Polly"
@ -352,7 +358,7 @@ corresponds to the unplayed move! that's confusing.
(callback
(lambda (rb y)
(vector-set! players
(cdr (assq color color-order))
color-index
(index->player
(send rb get-selection))))))))
@ -361,7 +367,7 @@ corresponds to the unplayed move! that's confusing.
;; put all the gui elements together
;;
(define/private (make-player-control-panel parent color ah aw)
(define/private (make-player-control-panel parent color ah aw init-selection)
(let* ([parent
(new panel:single%
(stretchable-height #f)
@ -379,14 +385,14 @@ corresponds to the unplayed move! that's confusing.
(stretchable-width #f)
(stretchable-height #f))])
(add-gui-player-controls color control-player-panel)
(add-choose-player-controls color choose-player-panel)
(add-choose-player-controls color choose-player-panel init-selection)
(list color parent choose-player-panel control-player-panel)))
(define gui-player-control-panels
(list (make-player-control-panel green-player-panel 'green 'top 'left)
(make-player-control-panel red-player-panel 'red 'bottom 'left)
(make-player-control-panel yellow-player-panel 'yellow 'top 'right)
(make-player-control-panel blue-player-panel 'blue 'bottom 'right)))
(list (make-player-control-panel green-player-panel 'green 'top 'left 0)
(make-player-control-panel red-player-panel 'red 'bottom 'left 1)
(make-player-control-panel yellow-player-panel 'yellow 'top 'right 2)
(make-player-control-panel blue-player-panel 'blue 'bottom 'right 3)))
(define/private (get-player-panel color i)
(let ([e (assq color gui-player-control-panels)])