expanded testing

original commit: 373fc19621bb962682c1e57bb00141810069e526
1997-10-07 15:12:04 +00:00 · 1997-10-07 15:12:04 +00:00 · 06af15f3e2
commit 06af15f3e2
parent dccc2046bd
1 changed files with 7 additions and 1 deletions
--- 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))