fix `tab-panel%' callback problem

Closes PR 11528
2011-01-08 07:55:42 -07:00 · 2011-01-08 07:55:42 -07:00 · f2a11c504d
commit f2a11c504d
parent 8d15718188
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))]