quick fix

svn: r4768
This commit is contained in:
Eli Barzilay 2006-11-03 21:21:57 +00:00
parent 76bdd05167
commit 616d6b80c8

View File

@ -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)