From 9ade87ae69eae3b473d32e6abe281f1b8ab28801 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 4 May 2002 15:55:55 +0000 Subject: [PATCH] .. original commit: 13c5a183773ecec59c7d3e194331d7871d7ee118 --- collects/framework/private/scheme.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 5eba5eb5..b84ea110 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -142,7 +142,8 @@ (let ([old (keymap:add-to-right-button-menu)]) (lambda (menu text event) (old menu text event) - (split/collapse-text menu text event)))) + (split/collapse-text menu text event) + (void)))) ;; split/collapse-text : (instanceof menu%) (instanceof editor<%>) (instanceof mouse-event%) -> void (define (split/collapse-text menu text event)