From 42f63a402b8bdbffa6a77b3ff1922c870152ebfc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 2 Mar 2000 21:32:25 +0000
Subject: [PATCH] .

original commit: c1856294f50b40050afd14fbae1b7af3f12f2662
---
 collects/tests/mred/item.ss | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 0aaee11e..075166a0 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -173,7 +173,15 @@
 		   [y (send e get-y)]
 		   [m (if (or (null? last-m)
 			      (send e button-down? 'left))
-			  (let ([m (make-object popup-menu% "T&itle")]
+			  (let ([m (make-object popup-menu% "T&itle"
+						(lambda (m e)
+						  (unless (is-a? m popup-menu%)
+						    (error "bad menu object"))
+						  (unless (and (is-a? e control-event%)
+							       (memq (send e get-event-type)
+								     '(menu-popdown menu-popdown-none)))
+						    (error "bad event object"))
+						  (printf "popdown ok~n")))]
 				[make-callback 
 				 (let ([id 0])
 				   (lambda ()