call combo% callback when popup item selected

svn: r2738
2006-04-22 12:48:00 +00:00 · 2006-04-22 12:48:00 +00:00 · 9e06bf60d6
commit 9e06bf60d6
parent fe99b11024
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?)