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

item.ss: new list-box tests; compile.ss: paramererize over all.ss

Browse Source 
original commit: 4f45a39c2767b28f812b8488d222c1e1c11375ab
This commit is contained in:
Matthew Flatt 1998-02-05 20:00:15 +00:00
parent b3140e71bb
commit 8beeff056e
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/tests/mred/item.ss
View File

@ -790,7 +790,11 @@
(define ab (make-object mred:button% p
(lambda (b e)
(set! counter (add1 counter))
(let ([naya (format "Extra ~a" counter)]
(let ([naya (format "~aExtra ~a"
(if (= counter 10)
"This is a Really Long Named Item That Would Have Used the Short Name "
"")
counter)]
[naya-data (box 0)])
(set! actual-content (append actual-content (list naya)))
(set! actual-user-data (append actual-user-data (list naya-data)))
@ -805,6 +809,13 @@
(set! append-with-user-data?
(not append-with-user-data?))))
"Append"))
(define cs (when list?
(make-object mred:button% p
(lambda (b e)
(printf "top: ~a~nvisible count: ~a~n"
(send c get-first-item)
(send c number-of-visible-items)))
"Visible Indices")))
(define cdp (make-object mred:horizontal-panel% p))
(define rb (make-object mred:button% cdp
(lambda (b e)