list-box visible and check-box command tests

original commit: 24eefd098b2219a26c07b6fbad125f214b8d27d3
1998-02-08 16:05:47 +00:00 · 1998-02-08 16:05:47 +00:00 · d011cbe937
commit d011cbe937
parent 8beeff056e
1 changed files with 8 additions and 0 deletions
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@ -734,6 +734,14 @@
 			   (let ([on? (send cb get-value)])
 			     (send cb set-value (not on?))))
 			 "Toggle"))
+  (define t2 (make-object mred:button% p
+			  (lambda (t e)
+			    (let ([on? (send cb get-value)]
+				  [e (make-object wx:command-event% wx:const-event-type-checkbox-command)])
+			      (send e set-command-int (if on? 0 1))
+			      (send e set-event-object cb)
+			      (send cb command e)))
+			  "Simulation Toggle"))
  (define c (make-object mred:button% p
 			 (lambda (c e)
 			   (for-each