.

original commit: 53f250e0f76cb78fae7364f56902a858feb806e5
2005-02-28 16:11:46 +00:00 · 2005-02-28 16:11:46 +00:00 · 3f1f7a7aef
commit 3f1f7a7aef
parent 86ea19893c
1 changed files with 3 additions and 0 deletions
--- a/collects/hierlist/hierlist-unit.ss
+++ b/collects/hierlist/hierlist-unit.ss
@ -684,6 +684,9 @@
                                         (send (car l) select #t)
                                         (send (car l) scroll-to)]
                                        [else (loop (cdr l))])))]
+	    [select (lambda (i) 
+		      (send i select #t)
+		      (send i scroll-to))]
            [page-up (lambda () (page 'up))]
            [page-down (lambda () (page 'down))]
            [show-focus