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

added a little more error checking

Browse Source 
svn: r17912
This commit is contained in:
Robby Findler 2010-01-31 13:32:19 +00:00
parent 3a0518e6f8
commit 540f43327d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -720,10 +720,14 @@
[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)]))]
[(allow-deselect)
(when selected
(send selected show-select #f)
(set! selected #f)
(set! selected-item #f))]
[else
(error 'hierarchical-list%::select
"can only pass #f when allow-deselect has been called with #t")]))]
[click-select (lambda (i)
(send i click-select #t)
(send i scroll-to))]