From d011cbe9378950d0c435b8d9682315d5bb46a6c1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 8 Feb 1998 16:05:47 +0000 Subject: [PATCH] list-box visible and check-box command tests original commit: 24eefd098b2219a26c07b6fbad125f214b8d27d3 --- collects/tests/mred/item.ss | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index f952136b..971fe537 100644 --- 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