utilize define-spawns to clean up 7-GUIS examples
This commit is contained in:
parent
ecbfe56163
commit
6ee5aa668b
|
@ -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))
|
||||
|
|
|
@ -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))))
|
||||
|
|
|
@ -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))))
|
||||
)
|
||||
|
|
|
@ -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))))
|
||||
|
||||
)
|
||||
|
|
|
@ -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))))
|
||||
|
||||
)
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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)))]
|
||||
|
|
Loading…
Reference in New Issue