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

fix select #f for hierlist

Browse Source 
svn: r17888

original commit: 73a1675286ac0ebb6d86d2535a50f1edc3667d1b
This commit is contained in:
Matthew Flatt 2010-01-29 20:30:46 +00:00
parent ea5ebc18b2
commit 88384ffeb0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mrlib/hierlist/hierlist-unit.ss
View File

@ -716,8 +716,14 @@
(send (car l) scroll-to)]
[else (loop (cdr l))])))]
[select (lambda (i)
(send i select #t)
(send i scroll-to))]
(cond
[i
(send i select #t)
(send i scroll-to)]
[(and (allow-deselect) selected)
(send selected show-select #f)
(set! selected #f)
(set! selected-item #f)]))]
[click-select (lambda (i)
(send i click-select #t)
(send i scroll-to))]