quick fix

svn: r4768
2006-11-03 21:21:57 +00:00 · 2006-11-03 21:21:57 +00:00 · 616d6b80c8
commit 616d6b80c8
parent 76bdd05167
1 changed files with 4 additions and 1 deletions
--- 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)