From 68ef5dd7182a5cb05708ad54da6d2c8e458f7503 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 12 Dec 1998 02:15:59 +0000 Subject: [PATCH] . original commit: 5bd9a1fde61913b2f77c7a4f1e9caa896cd83c67 --- collects/tests/mred/auto.ss | 8 ++++++++ collects/tests/mred/item.ss | 8 ++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/collects/tests/mred/auto.ss b/collects/tests/mred/auto.ss index 5b2d205a..fa0c1c43 100644 --- a/collects/tests/mred/auto.ss +++ b/collects/tests/mred/auto.ss @@ -735,6 +735,14 @@ (st 0 l get-selection) (st "Z" l get-string-selection)) + (unless choice? + (st 1 l get-number) + (stv l set '("ONe" "TW&o" "THRee")) + (st 3 l get-number) + (st "ONe" l get-string 0) + (st "TW&o" l get-string 1) + (st "THRee" l get-string 2)) + 'done-list)]) (printf "Choice~n") diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 93fa142d..25ae335c 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -439,23 +439,23 @@ (define sh (make-object slider% (if null-label? #f "H S&lider") 0 10 ip2 (lambda (s e) - (send gh set-value (send sh get-value))) + (send gh set-value (* 10 (send sh get-value)))) 5 (if plain-slider? '(horizontal plain) '(horizontal)))) (define sv (make-object slider% (if null-label? #f "V Sl&ider") 0 10 ip2 (lambda (s e) - (send gv set-value (send sv get-value))) + (send gv set-value (* 10 (send sv get-value)))) 5 (if plain-slider? '(vertical plain) '(vertical)))) (define gh (make-object gauge% - (if null-label? #f "H G&auge") 10 ip2 + (if null-label? #f "H G&auge") 100 ip2 '(horizontal))) (define gv (make-object gauge% - (if null-label? #f "V Ga&uge") 10 ip2 + (if null-label? #f "V Ga&uge") 100 ip2 '(vertical))) (define txt (make-object text-field%