mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
Set up relay control panel with R/W checkboxes.
This commit is contained in:
parent
bdffc9e06e
commit
3ef3077c87
@ -51,8 +51,19 @@
|
|||||||
(show! main-frame)
|
(show! main-frame)
|
||||||
(.start timer)))
|
(.start timer)))
|
||||||
|
|
||||||
|
(defn make-relay-control-panel [relay]
|
||||||
|
(let [read-check-box (checkbox :text "R")
|
||||||
|
write-check-box (checkbox :text "W")
|
||||||
|
relay-label (flow-panel :align :left
|
||||||
|
:items [(label :text relay :halign :left)])
|
||||||
|
buttons (flow-panel :align :left
|
||||||
|
:items [read-check-box write-check-box])
|
||||||
|
control-panel (vertical-panel :items [relay-label buttons (separator :border 1)])]
|
||||||
|
control-panel))
|
||||||
|
|
||||||
(defn make-relay-panel []
|
(defn make-relay-panel []
|
||||||
(let [relay-panel (listbox :model protocol/relays)]
|
(let [relay-control-panels (for [relay protocol/relays] (make-relay-control-panel relay))
|
||||||
|
relay-panel (vertical-panel :items relay-control-panels)]
|
||||||
relay-panel))
|
relay-panel))
|
||||||
|
|
||||||
(defn timer-action [_]
|
(defn timer-action [_]
|
||||||
|
Loading…
Reference in New Issue
Block a user