From 3f1f7a7aef223b2a6a0b6a0b5c698f41d69c5f13 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 28 Feb 2005 16:11:46 +0000
Subject: [PATCH] .

original commit: 53f250e0f76cb78fae7364f56902a858feb806e5
---
 collects/hierlist/hierlist-unit.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/hierlist/hierlist-unit.ss b/collects/hierlist/hierlist-unit.ss
index ce8724cc..10da852d 100644
--- 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