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

We don't need to right click on relay read and write to bring up the menu.

Browse Source
This commit is contained in:
Robert C. Martin 2023-03-09 08:21:49 -06:00
parent 9385cdb2e6
commit 6651679d9e
1 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/more_speech/ui/swing/relay_manager.clj
View File

@ -229,23 +229,21 @@
(config! relays-menu :enabled? true)))
(defn read-click [url e]
(when (.isPopupTrigger e)
(let [x (.x (.getPoint e))
y (.y (.getPoint e))
label (.getComponent e)
p (popup :items [(action :name "none" :handler (partial set-relay-read label url :read-none))
(action :name "all" :handler (partial set-relay-read label url :read-all))
(action :name "trusted" :handler (partial set-relay-read label url :read-trusted))
(action :name "web of trust" :handler (partial set-relay-read label url :read-web-of-trust))])]
(.show p (to-widget e) x y))))
(let [x (.x (.getPoint e))
y (.y (.getPoint e))
label (.getComponent e)
p (popup :items [(action :name "none" :handler (partial set-relay-read label url :read-none))
(action :name "all" :handler (partial set-relay-read label url :read-all))
(action :name "trusted" :handler (partial set-relay-read label url :read-trusted))
(action :name "web of trust" :handler (partial set-relay-read label url :read-web-of-trust))])]
(.show p (to-widget e) x y)))
(defn write-click [url e]
(when (.isPopupTrigger e)
(let [x (.x (.getPoint e))
y (.y (.getPoint e))
label (.getComponent e)
p (popup :items [(action :name "true" :handler (partial set-relay-write label url true))
(action :name "false" :handler (partial set-relay-write label url false))
])]
(.show p (to-widget e) x y))))
(let [x (.x (.getPoint e))
y (.y (.getPoint e))
label (.getComponent e)
p (popup :items [(action :name "true" :handler (partial set-relay-write label url true))
(action :name "false" :handler (partial set-relay-write label url false))
])]
(.show p (to-widget e) x y)))