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

.

Browse Source 
original commit: 3bb9b85d6a396c046db665378235b01f7274680a
This commit is contained in:
Matthew Flatt 1999-01-09 21:01:03 +00:00
parent a56f780bae
commit 6cb26bc1af
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/hierlist/hierlist.ss
View File

@ -17,39 +17,39 @@
(lambda (i)
(printf "Selected: ~a~n"
(if i
(send (send i get-buffer) get-flattened-text)
(send (send i get-editor) get-flattened-text)
i)))]
[double-select
(lambda (s)
(printf "Double-click: ~a~n"
(send (send s get-buffer) get-flattened-text)))])
(send (send s get-editor) get-flattened-text)))])
(sequence (apply super-init args)))
p))
(define a (send c new-list))
(send (send a get-buffer) insert "First Item: List")
(send (send (send a new-item) get-buffer) insert "Sub1")
(send (send (send a new-item) get-buffer) insert "Sub2")
(send (send a get-editor) insert "First Item: List")
(send (send (send a new-item) get-editor) insert "Sub1")
(send (send (send a new-item) get-editor) insert "Sub2")
(define a.1 (send a new-list))
(send (send a.1 get-buffer) insert "Deeper List")
(send (send (send a.1 new-item) get-buffer) insert "Way Down")
(send (send a.1 get-editor) insert "Deeper List")
(send (send (send a.1 new-item) get-editor) insert "Way Down")
(define b (send c new-item))
(send (send b get-buffer) insert "Second Item")
(send (send b get-editor) insert "Second Item")
(define d (send c new-list))
(send (send d get-buffer) insert "dynamic")
(send (send d get-editor) 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))
(send (send (send d new-item) get-editor) insert (number->string i))
(loop (sub1 i)))))))
(define x (send c new-list))
(send (send x get-buffer) insert "x")
(send (send x get-editor) insert "x")
(define y (send c new-item))
(send (send y get-buffer) insert "y")
(send (send y get-editor) insert "y")
(send f show #t)