suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

expanded testing

Browse Source 
original commit: 373fc19621bb962682c1e57bb00141810069e526
This commit is contained in:
Matthew Flatt 1997-10-07 15:12:04 +00:00
parent dccc2046bd
commit 06af15f3e2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/hierlist/hierlist.ss
View File

@ -14,9 +14,15 @@
(lambda (i) (lambda (i)
(let ([f (send i user-data)]) (let ([f (send i user-data)])
(when f (f i))))] (when f (f i))))]
[select
(lambda (i)
(printf "Selected: ~a~n"
(if i
(send (send i get-buffer) get-flattened-text)
i)))]
[double-select [double-select
(lambda (s) (lambda (s)
(printf "Selected: ~a~n" (printf "Double-click: ~a~n"
(send (send s get-buffer) get-flattened-text)))])) (send (send s get-buffer) get-flattened-text)))]))
p)) p))