From 54d36dc22ad7aa9a7d44bdb5d44aa6d68feb8d0f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 16 Dec 2010 13:43:08 -0700 Subject: [PATCH] don't popup disable combo-field% --- collects/mred/private/wxtextfield.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxtextfield.rkt b/collects/mred/private/wxtextfield.rkt index 4ff6f54bbb..a8e0c10660 100644 --- a/collects/mred/private/wxtextfield.rkt +++ b/collects/mred/private/wxtextfield.rkt @@ -257,8 +257,9 @@ (private [do-popup-callback (lambda () (wx:queue-callback (lambda () - (combo-callback) - (send c popup-combo)) + (when (send c is-enabled-to-root?) + (combo-callback) + (send c popup-combo))) wx:middle-queue-key))]) (public [set-on-popup (lambda (proc)