From cf2a67cc6a906e2398decba1b59004ad2c6554db Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 22 Apr 2006 12:48:00 +0000 Subject: [PATCH] call combo% callback when popup item selected svn: r2738 original commit: 9e06bf60d6e3453260b4f324293d7aabac4c3f76 --- collects/mred/private/mrtextfield.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/mrtextfield.ss b/collects/mred/private/mrtextfield.ss index 2769a55f..56c500dc 100644 --- a/collects/mred/private/mrtextfield.ss +++ b/collects/mred/private/mrtextfield.ss @@ -110,7 +110,10 @@ (focus) (set-value item) (let ([e (get-editor)]) - (send e set-position 0 (send e last-position))))))]) + (send e set-position 0 (send e last-position))) + (send (as-entry (lambda () (mred->wx this))) + command + (make-object wx:control-event% 'text-field)))))]) (override [on-subwindow-event (lambda (w e) (and (send e button-down?)