From e804a8c52bca2d916c4f4d0f5216fd6255a9aa65 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 14 May 2012 16:23:57 -0400 Subject: [PATCH] updating the select example to not printf --- examples/select.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/examples/select.rkt b/examples/select.rkt index a0d5b9c..9e531ae 100644 --- a/examples/select.rkt +++ b/examples/select.rkt @@ -17,11 +17,10 @@ (span (@ (id "fill-me-in"))))))) (define (when-select-changed w v) - (printf "I see: ~s\n" (view-form-value (view-focus v "my-select"))) (view-form-value (view-focus v "my-select"))) (define bound-view (view-bind-many view ["my-select" "change" when-select-changed])) (big-bang "nothing yet" (initial-view bound-view) - (to-draw draw)) \ No newline at end of file + (to-draw draw))