quick fix
svn: r4768
This commit is contained in:
parent
76bdd05167
commit
616d6b80c8
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user