nostr/more-speech
1
0
Fork 0
mirror of https://github.com/unclebob/more-speech.git synced 2024-09-30 10:30:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Set up relay control panel with R/W checkboxes.

Browse Source
This commit is contained in:
Robert C. Martin 2022-05-17 16:50:58 -05:00
parent bdffc9e06e
commit 3ef3077c87
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/more_speech/ui/swing/main_window.clj
View File

@ -51,8 +51,19 @@
(show! main-frame)
(.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 []
(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))
(defn timer-action [_]