From 616d6b80c8c14b0edd38032e867abde2b0b03db7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 3 Nov 2006 21:21:57 +0000 Subject: [PATCH] quick fix svn: r4768 --- collects/drscheme/private/language-configuration.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index 135df06e50..419583228d 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -257,7 +257,10 @@ [(down) (select-next add1)] ;; right key is fine, but nicer to close after a left [(left) (super on-char evt) - (cond [(get-selected) => (λ (i) (send i close))])] + (cond [(get-selected) + => (λ (i) + (when (is-a? i hierarchical-list-compound-item<%>) + (send i close)))])] [else (super on-char evt)]))) (inherit get-items)