From f2a11c504ddd7f3ecac6d1bd9491e209fd94fec2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 8 Jan 2011 07:55:42 -0700 Subject: [PATCH] fix `tab-panel%' callback problem Closes PR 11528 --- collects/mred/private/mrpanel.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/mrpanel.rkt b/collects/mred/private/mrpanel.rkt index ca4c4d79da..b395fbeec7 100644 --- 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))]