From a6b5da70ee61e3cf19105a7980915d074374324f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 25 Jul 2001 20:38:48 +0000
Subject: [PATCH] .

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

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 5a1b816c..8596d17f 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1598,6 +1598,13 @@
 	       (lambda (c e) 
 		 (send c1 inc-mode (send c get-value))
 		 (send c2 inc-mode (send c get-value))))
+  (make-object check-box%
+	       "x2" ip
+	       (lambda (c e) 
+		 (let ([s (if (send c get-value)
+			      2
+			      1)])
+		   (send (send c2 get-dc) set-scale s s))))
   (send c1 set-vsize 10 10)
   (send c2 set-vsize 500 200)
   (send f create-status-line)