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

.

Browse Source 
original commit: eae87855c4af1ba6f8ceffbf8d46cde46029a391
This commit is contained in:
Matthew Flatt 2004-11-11 15:16:32 +00:00
parent b2a6531acb
commit 420e1ada65
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -5391,7 +5391,7 @@
(raise-mismatch-error (who->name `(method tab-panel% ,method))
(if (zero? m)
"panel has no tabs; given index: "
(format "panel has only ~a tabls, indexed 0 to ~a; given out-of-range index: "
(format "panel has only ~a tabs, indexed 0 to ~a; given out-of-range index: "
m (sub1 m)))
n))))])))

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

@ -1927,17 +1927,22 @@
'(no-border)
'())))
(define p2 (if no-border?
(make-object vertical-panel% f)
(new vertical-panel% [parent f])
p))
(define count 3)
(define on? #t)
(define m (make-object message% (format "Selected: ~a" (send p get-selection)) p))
(define m (make-object message% (format "Selected: ~a" (send p get-selection)) p2))
(when no-border?
(make-object vertical-pane% p2))
(make-object button% "Append" p2 (lambda (b e)
(send p append (format "N&ew ~a" count))
(set! count (add1 count))))
(make-object button% "Delete" p2 (lambda (b e)
(send p delete 0)))
(make-object button% "Set First" p2 (lambda (b e)
(send p set-selection 0)))
(when no-border?
(make-object button% "Toggle" p2 (lambda (b e)
(if on?