suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

quick fix

Browse Source 
svn: r4768
This commit is contained in:
Eli Barzilay 2006-11-03 21:21:57 +00:00
parent 76bdd05167
commit 616d6b80c8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/language-configuration.ss
View File

@ -257,7 +257,10 @@
[(down) (select-next add1)] [(down) (select-next add1)]
;; right key is fine, but nicer to close after a left ;; right key is fine, but nicer to close after a left
[(left) (super on-char evt) [(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)]))) [else (super on-char evt)])))
(inherit get-items) (inherit get-items)