From 420e1ada653d5202c7472502d4ecbe079edaaee6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 11 Nov 2004 15:16:32 +0000 Subject: [PATCH] . original commit: eae87855c4af1ba6f8ceffbf8d46cde46029a391 --- collects/mred/mred.ss | 2 +- collects/tests/mred/item.ss | 9 +++++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index bd9ae9b6..0e41fdd9 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -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))))]))) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index c2313c75..e88d2254 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -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?