From c8d5a41f990a48314bebc6abdc469f779fa5680a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 3 Jan 2005 22:06:43 +0000 Subject: [PATCH] . original commit: 561d9472c38761772d543dc154b0499640b742dd --- collects/tests/mred/draw.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss index 8d53377f..43ee0ad6 100644 --- a/collects/tests/mred/draw.ss +++ b/collects/tests/mred/draw.ss @@ -1095,9 +1095,9 @@ (make-object check-box% "Pixset" hp2 (lambda (self event) (send canvas set-pixel-copy (send self get-value)))) - (make-object choice% #f '("Unsmoothed" "Smoothed" "Compatible") hp2.5 + (make-object choice% #f '("Unsmoothed" "Smoothed" "Aligned") hp2.5 (lambda (self event) - (set! smoothing (list-ref '(unsmoothed smoothed compatible) + (set! smoothing (list-ref '(unsmoothed smoothed aligned) (send self get-selection))) (send canvas refresh))) (make-object button% "Clock" hp2.5 (lambda (b e) (clock #f)))