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

extended test

Browse Source 
original commit: 004b9923aed2e8b916d55d67071b271a27d47845
This commit is contained in:
Matthew Flatt 1997-10-06 14:58:45 +00:00
parent 6d06dee5ad
commit dccc2046bd
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/hierlist/hierlist.ss
View File

@ -10,6 +10,10 @@
(define p (make-object mred:horizontal-panel% f)) (define p (make-object mred:horizontal-panel% f))
(define c (make-object (class-asi mred:hierarchical-list% (define c (make-object (class-asi mred:hierarchical-list%
(public (public
[item-opened
(lambda (i)
(let ([f (send i user-data)])
(when f (f i))))]
[double-select [double-select
(lambda (s) (lambda (s)
(printf "Selected: ~a~n" (printf "Selected: ~a~n"
@ -27,6 +31,14 @@
(define b (send c new-item)) (define b (send c new-item))
(send (send b get-buffer) insert "Second Item") (send (send b get-buffer) insert "Second Item")
(define d (send c new-list))
(send (send d get-buffer) insert "dynamic")
(send d user-data (lambda (d)
(time (let loop ([i 30])
(unless (zero? i)
(send (send (send d new-item) get-buffer) insert (number->string i))
(loop (sub1 i)))))))
(send f show #t) (send f show #t)
|# |#