.

original commit: eb3b78c50772097f4a62eef5ef7d78f0b6fec2d9
2001-07-25 20:38:48 +00:00 · 2001-07-25 20:38:48 +00:00 · a6b5da70ee
commit a6b5da70ee
parent f817f4e284
1 changed files with 7 additions and 0 deletions
--- 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)