fix `tab-panel%' callback problem

Closes PR 11528 original commit: f2a11c504ddd7f3ecac6d1bd9491e209fd94fec2
2011-01-08 07:55:42 -07:00 · 2011-01-08 07:55:42 -07:00 · 78c90d9910
commit 78c90d9910
parent 6bd8aa4b9b
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/mrpanel.rkt
+++ b/collects/mred/private/mrpanel.rkt
@ -138,7 +138,7 @@
                                   (cdr style)
                                   (list (car style)))
                               (cons 'border style)))
-        (send (mred->wx this) set-callback callback))
+        (send (mred->wx this) set-callback (lambda (wx e) (callback (wx->mred wx) e))))

      (public
 	[get-number (lambda () (length save-choices))]