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

allow 3x3 Pousse board

Browse Source 
svn: r8476
This commit is contained in:
Matthew Flatt 2008-01-30 14:41:13 +00:00
parent 96357c95f3
commit f48fa771ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/games/pousse/pousse.ss
View File

@ -674,7 +674,7 @@
(lambda (l e) (enable-ok)))]) (lambda (l e) (enable-ok)))])
(send l enable #f) (send l enable #f)
(values m l))) (values m l)))
(define board-size (make-object slider% "Board Size:" 4 20 game-panel void (current-board-size))) (define board-size (make-object slider% "Board Size:" 3 20 game-panel void (current-board-size)))
(define-values (x-kind x-robot) (make-player "X")) (define-values (x-kind x-robot) (make-player "X"))
(define-values (o-kind o-robot) (make-player "O")) (define-values (o-kind o-robot) (make-player "O"))