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

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

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