utilize define-spawns to clean up 7-GUIS examples

racket/syndicate-gui-toolbox/examples/7-GUIS/task-1.rkt

@@ -5,9 +5,6 @@
 
 ;; a mouse-click counter
 
-(spawn
- (on-start
-
 (define frame (spawn-frame #:label "Counter"))
 (define pane  (spawn-horizontal-pane #:parent frame))
 (define view  (spawn-text-field #:parent pane #:label "" #:init-value "0" #:enabled #f #:min-width 100))
@@ -19,7 +16,7 @@
      (counter (add1 (counter)))
      (send! (set-text-field view (~a (counter)))))
  (on-start
-  (send! (show frame #t))))))
+  (send! (show frame #t))))
 
 (module+ main
   (void))

racket/syndicate-gui-toolbox/examples/7-GUIS/task-2.rkt

@@ -28,8 +28,6 @@
   (send! (set-text-field-background to-field "white"))
   (send! (set-text-field to-field (~a (~r *to #:precision 4) (if (eq? #\. last) "." "")))))
 
-(spawn
- (on-start
 (define frame   (spawn-frame #:label "temperature converter"))
 (define pane    (spawn-horizontal-pane #:parent frame))
 
@@ -58,4 +56,4 @@
  (on (message (text-field-update F-field $val))
      (fahrenheit->celsius F-field val))
  (on-start
-  (send! (show frame #t))))))
+  (send! (show frame #t))))

racket/syndicate-gui-toolbox/examples/7-GUIS/task-3.rkt

@@ -19,7 +19,6 @@
 (define RED     "red")
 (define WHITE   "white")
 
-(spawn
 (define (make-field enabled)
   (spawn-text-field #:parent frame
                     #:label ""
@@ -66,4 +65,3 @@
 
  (on-start (send! (show frame #t))
            (enable-return-book (*kind-flight))))
-)

racket/syndicate-gui-toolbox/examples/7-GUIS/task-4.rkt

@@ -16,8 +16,6 @@
 
 (define (next-time) (+ (current-milliseconds) INTERVAL))
 
-(spawn
-
 (define frame   (spawn-frame #:label "timer"))
 (define elapsed (spawn-gauge #:label "elapsed" #:parent frame #:enabled #f #:range 100))
 (define text    (spawn-text-field #:parent frame #:init-value "0" #:label ""))
@@ -58,5 +56,3 @@
      (duration-cb val))
  (on-start (elapsed-cb)
            (send! (show frame #t))))
-
-)

racket/syndicate-gui-toolbox/examples/7-GUIS/task-5.rkt

@@ -8,7 +8,6 @@
 ;; a create-read-update-deleted MVC implementation 
 
 ;; ---------------------------------------------------------------------------------------------------
-(spawn
 (define frame   (spawn-frame #:label "CRUD"))
 (define hpane1  (spawn-horizontal-pane #:parent frame #:border 10 #:alignment '(left bottom)))
 (define vpane1  (spawn-vertical-pane #:parent hpane1))
@@ -70,5 +69,3 @@
 
 (on-start (prefix-cb "")
           (send! (show frame #t))))
-
-)

racket/syndicate-gui-toolbox/examples/7-GUIS/task-6.rkt

@@ -193,7 +193,6 @@
   (spawn-slider #:parent parent #:label "" #:min-value 10 #:max-value 100 #:init-value init-value))
 
 ;; ---------------------------------------------------------------------------------------------------
-(spawn
 (define frame  (spawn-frame #:label "Circle Drawer" #:width 400))
 (define hpane1 (spawn-horizontal-pane #:parent frame #:min-height 20 #:alignment '(center center)))
 (define undo-but (spawn-button #:label "Undo" #:parent hpane1))
@@ -201,6 +200,7 @@
 (define hpane2 (spawn-horizontal-panel #:parent frame #:min-height 400 #:alignment '(center center)))
 (define canvas (spawn-circle-canvas hpane2 frame undo-but redo-but))
 
-(on (asserted (frame@ frame))
-    (send! (show frame #t)))
-)
+(spawn
+ (on (asserted (frame@ frame))
+     (send! (show frame #t))
+     (stop-current-facet)))

racket/syndicate-gui-toolbox/examples/7-GUIS/task-7.rkt

@@ -86,11 +86,11 @@
 ))
 
 ;; ---------------------------------------------------------------------------------------------------
-(spawn
 (define frame  (spawn-frame #:label "Cells" #:width (/ WIDTH 2) #:height (/ HEIGHT 3)))
 (define canvas (spawn-cells-canvas frame WIDTH HEIGHT))
 (spawn-control frame)
 
-(on (asserted (frame@ frame))
-    (send! (show frame #t)))
-)
+(spawn
+ (on (asserted (frame@ frame))
+     (send! (show frame #t))
+     (stop-current-facet)))

racket/syndicate-gui-toolbox/widgets.rkt

@@ -197,7 +197,6 @@
   (define parent-component (seal-contents parent))
 
   (define (inject-text-field-update! _ evt)
-    (printf "inject-text-field-update!\n")
     (case (send evt get-event-type)
       [(text-field)
        (send-ground-message (text-field-update id (send tf get-value)))]