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

.

Browse Source 
original commit: ec9f45916731bf8bfba93d4636c8d9f34229fc26
This commit is contained in:
Matthew Flatt 2004-11-24 03:05:31 +00:00
parent 54a050ca57
commit 5fce132ad8
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/mred.ss
View File

@ -5408,6 +5408,7 @@
(unless (and (list? l) (andmap label-string? l))
(raise-type-error (who->name '(method tab-panel% set))
"list of strings (up to 200 characters)" l))
(set! save-choices (map string->immutable-string l))
(send (mred->wx tabs) set l)))]
[get-item-label (entry-point
(lambda (i)

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

@ -1947,6 +1947,15 @@
(send p set-selection (sub1 (send p get-number)))))
(make-object button% "Rename" p2 (lambda (b e)
(send p set-item-label (quotient (send p get-number) 2) "Do&nut")))
(make-object button% "Labels" p2 (lambda (b e)
(printf "~s~n"
(reverse
(let loop ([i (send p get-number)])
(if (zero? i)
null
(cons (send p get-item-label (sub1 i)) (loop (sub1 i)))))))))
(make-object button% "Set" p2 (lambda (b e)
(send p set '("New One" "New Second" "New Third"))))
(when no-border?
(make-object button% "Toggle" p2 (lambda (b e)
(if on?