Notes and cleanup for gui/val

chaos/gui/val.rkt

@@ -1,15 +1,14 @@
 #lang racket/base
 (require racket/class
          racket/draw
+         racket/fixnum
          racket/contract/base
          pict
          pict/convert)
 
+;; xxx maybe draw to a bitmap and blit
 (define (make-gui/val #:scale? [scale? #t])
-  (define last-val #f)
-  (define (output-val o)
-    (unless (eq? o last-val)
-      (set! last-val o)
+  (λ (o)
     (define p (pict-convert o))
     (λ (w h dc)
       (parameterize ([dc-for-text-size dc])
@@ -26,7 +25,6 @@
         (send dc set-brush "white" 'solid)
         (send dc draw-rectangle left top spw sph)
         (draw-pict sp dc left top)))))
-  output-val)
 
 (provide
  (contract-out

examples/val-demo.rkt

@@ -11,7 +11,11 @@
          lux/chaos/gui/key)
 
 (define MODES
-  '(pict image))
+  (list (pict:arrowhead 30 0)
+        (image:add-line
+         (image:rectangle 100 100 "solid" "darkolivegreen")
+         25 25 75 75
+         (image:make-pen "goldenrod" 30 "solid" "round" "round"))))
 
 (struct demo
   (g/v mode)
@@ -20,15 +24,7 @@
      (lux-standard-label "Values" ft))
    (define (word-output w)
      (match-define (demo g/v mode-n) w)
-     (g/v
-      (match (list-ref MODES mode-n)
-        ['pict
-         (pict:arrowhead 30 0)]
-        ['image
-         (image:add-line
-          (image:rectangle 100 100 "solid" "darkolivegreen")
-          25 25 75 75
-          (image:make-pen "goldenrod" 30 "solid" "round" "round"))])))
+     (g/v (list-ref MODES mode-n)))
    (define (word-event w e)
      (match-define (demo g/v mode-n) w)
      (define closed? #f)