From 75cafda3a7ef8043736895ad9978bc8c92acb4f5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 11 May 2006 18:08:27 +0000
Subject: [PATCH] allow Windows build to live in a path that includes non-ASCII
 characters

svn: r2907

original commit: fd9266eb79af78f4fcb339a1e5e6ac4c7c97219c
---
 collects/tests/mred/item.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 4686a079..c398f10c 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1592,6 +1592,10 @@
 	       "Simulate Down" p2
 	       (lambda (c e)
 		 (simulate (sub1 (send s get-value)))))
+  (make-object check-box%
+	       "Disabled" p2
+	       (lambda (c e)
+		 (send s enable (not (send c get-value)))))
   (instructions p "slider-steps.txt")
   (send f show #t))