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

fix some status messages in the Rummy game

Browse Source 
Changes set-status-text to set-status so that status messages are displayed to user.
Also, changed lang to `racket/gui' from `mzscheme'.
This commit is contained in:
J.C. Whittier 2012-12-19 17:27:12 -05:00 committed by Matthew Flatt
parent faeba879e2
commit 1f3b9d39b6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/games/ginrummy/ginrummy.rkt
View File

@ -1,5 +1,5 @@
#lang mzscheme #lang racket/gui
(require games/cards mred mzlib/class mzlib/unit mzlib/list) (require games/cards racket/class racket/unit)
(provide game@) (provide game@)
(define game@ (unit (import) (export) (define game@ (unit (import) (export)
@ -342,7 +342,7 @@
;; This procedure finalizes the display when the game is over ;; This procedure finalizes the display when the game is over
(define (end-of-game why) (define (end-of-game why)
(send t set-status-text (send t set-status
(format (format
"~aGame over. ~a." "~aGame over. ~a."
why why
@ -375,7 +375,7 @@
(send (car discards) snap-back-after-move #t) (send (car discards) snap-back-after-move #t)
(send (car deck) user-can-move #t) (send (car deck) user-can-move #t)
(send (car deck) snap-back-after-move #t) (send (car deck) snap-back-after-move #t)
(send t set-status-text YOUR-TURN-MESSAGE) (send t set-status YOUR-TURN-MESSAGE)
(let ([something-happened (make-semaphore 0)]) (let ([something-happened (make-semaphore 0)])
;; Set callback in your region to receive the deck/discard card ;; Set callback in your region to receive the deck/discard card
(set-region-callback! (set-region-callback!
@ -412,7 +412,7 @@
(yield something-happened)) (yield something-happened))
;; Time for you to discard something ;; Time for you to discard something
(send t set-status-text DISCARD-MESSAGE) (send t set-status DISCARD-MESSAGE)
(let ([something-happened (make-semaphore 0)]) (let ([something-happened (make-semaphore 0)])
;; This time, the discard pile is the active region ;; This time, the discard pile is the active region
(set-region-callback! (set-region-callback!