don't popup disable combo-field%

2010-12-16 13:43:08 -07:00 · 2010-12-16 13:43:08 -07:00 · 54d36dc22a
commit 54d36dc22a
parent 01b9c1600e
1 changed files with 3 additions and 2 deletions
--- 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 ()
+                                                  (when (send c is-enabled-to-root?)
                                                    (combo-callback)
-                                                  (send c popup-combo))
+                                                    (send c popup-combo)))
                                                wx:middle-queue-key))])
      (public
        [set-on-popup (lambda (proc)