call combo% callback when popup item selected

svn: r2738 original commit: 9e06bf60d6e3453260b4f324293d7aabac4c3f76
2006-04-22 12:48:00 +00:00 · 2006-04-22 12:48:00 +00:00 · cf2a67cc6a
commit cf2a67cc6a
parent 1895403978
1 changed files with 4 additions and 1 deletions
--- 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?)