From 1f3b9d39b61d7e3d3115f33c99f19cc5a46c22c3 Mon Sep 17 00:00:00 2001
From: "J.C. Whittier" <jcwhittier+github@gmail.com>
Date: Wed, 19 Dec 2012 17:27:12 -0500
Subject: [PATCH] fix some status messages in the Rummy game

Changes set-status-text to set-status so that status messages are displayed to user.
Also, changed lang to `racket/gui' from `mzscheme'.
---
 collects/games/ginrummy/ginrummy.rkt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/games/ginrummy/ginrummy.rkt b/collects/games/ginrummy/ginrummy.rkt
index 43ecb736fb..fe3cb539f1 100644
--- a/collects/games/ginrummy/ginrummy.rkt
+++ b/collects/games/ginrummy/ginrummy.rkt
@@ -1,5 +1,5 @@
-#lang mzscheme
-(require games/cards mred mzlib/class mzlib/unit mzlib/list)
+#lang racket/gui
+(require games/cards racket/class racket/unit)
 
 (provide game@)
 (define game@ (unit (import) (export)
@@ -342,7 +342,7 @@
 
 ;; This procedure finalizes the display when the game is over
 (define (end-of-game why)
-  (send t set-status-text
+  (send t set-status
         (format
          "~aGame over. ~a."
          why
@@ -375,7 +375,7 @@
     (send (car discards) snap-back-after-move #t)
     (send (car deck) user-can-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)])
       ;; Set callback in your region to receive the deck/discard card
       (set-region-callback!
@@ -412,7 +412,7 @@
       (yield something-happened))
 
     ;; 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)])
       ;; This time, the discard pile is the active region
       (set-region-callback!