From 80e5c6cec3acb0f3fa1e26cf7418283124a1c03a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 28 Dec 2010 20:15:30 -0700 Subject: [PATCH] clean up --- collects/mred/private/wx/cocoa/button.rkt | 2 -- collects/mred/private/wx/gtk/list-box.rkt | 1 - 2 files changed, 3 deletions(-) diff --git a/collects/mred/private/wx/cocoa/button.rkt b/collects/mred/private/wx/cocoa/button.rkt index 1987e278ee..4ee24d846c 100644 --- a/collects/mred/private/wx/cocoa/button.rkt +++ b/collects/mred/private/wx/cocoa/button.rkt @@ -124,8 +124,6 @@ (values cocoa image-cocoa))) (values button-cocoa #f))) - (define we (make-will-executor)) - (super-new [parent parent] [cocoa cocoa] [no-show? (memq 'deleted style)] diff --git a/collects/mred/private/wx/gtk/list-box.rkt b/collects/mred/private/wx/gtk/list-box.rkt index a37a3401d6..da75c323e9 100644 --- a/collects/mred/private/wx/gtk/list-box.rkt +++ b/collects/mred/private/wx/gtk/list-box.rkt @@ -138,7 +138,6 @@ (define callback cb) (define ignore-click? #f) (define/public (queue-changed) - (make-will-executor) ;; Called from event-handling thread (unless ignore-click? (queue-window-event