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

...

Browse Source 
original commit: f12bcf895e838799c9e4363a7f5fcaa90a792edf
This commit is contained in:
Robby Findler 2001-10-28 21:51:23 +00:00
parent f33da86a3a
commit dd46761a2f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/hierlist/hierlist-unit.ss
View File

@ -652,11 +652,12 @@
(let* ([l (if selected
(send (send selected get-parent) get-items)
(get-items))]
[pos (if selected-item
(+ dir (find selected-item l))
[pos (let ([found (find selected-item l)])
(if (and selected-item found)
(+ dir found)
(if (negative? dir)
(sub1 (length l))
0))])
0)))])
(when (< -1 pos (length l))
(let ([i (list-ref l pos)])
(send i select #t)