From 06af15f3e238bb07a94c244523a95537e92a60af Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 7 Oct 1997 15:12:04 +0000
Subject: [PATCH] expanded testing

original commit: 373fc19621bb962682c1e57bb00141810069e526
---
 collects/hierlist/hierlist.ss | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/collects/hierlist/hierlist.ss b/collects/hierlist/hierlist.ss
index cab97deb..acf406b0 100644
--- a/collects/hierlist/hierlist.ss
+++ b/collects/hierlist/hierlist.ss
@@ -14,9 +14,15 @@
 				    (lambda (i)
 				      (let ([f (send i user-data)])
 					(when f (f i))))]
+				   [select
+				    (lambda (i)
+				      (printf "Selected: ~a~n"
+					      (if i 
+						  (send (send i get-buffer) get-flattened-text)
+						  i)))]
 				   [double-select
 				    (lambda (s)
-				      (printf "Selected: ~a~n"
+				      (printf "Double-click: ~a~n"
 					      (send (send s get-buffer) get-flattened-text)))]))
 		       p))