From 8407848bf101d3feecddf4a8424fbb8ccfacbc81 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 10 Oct 2001 22:27:13 +0000 Subject: [PATCH] . original commit: 78a04011efa5d6642c01762b35ce185321c9f9b1 --- collects/tests/mred/item.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 24b4c1f5..724e2d28 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -211,7 +211,8 @@ (let ([x (send e get-x)] [y (send e get-y)] [m (if (or (null? last-m) - (send e button-down? 'left)) + (send e button-down? 'left) + (send e button-down? 'middle)) (let ([m (make-object popup-menu% "T&itle" (lambda (m e) (unless (is-a? m popup-menu%) @@ -245,7 +246,10 @@ m void) (let mloop ([m m][sub-at-50? #t]) - (let ([sm (make-object menu% "Too Tall" m)]) + (let ([sm (if (and sub-at-50? + (send e button-down? 'middle)) + m + (make-object menu% "Too Tall" m))]) (let loop ([n 1]) (unless (= n 101) (if (and sub-at-50? (= n 50))