mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
We don't need to right click on relay read and write to bring up the menu.
This commit is contained in:
parent
9385cdb2e6
commit
6651679d9e
@ -229,23 +229,21 @@
|
|||||||
(config! relays-menu :enabled? true)))
|
(config! relays-menu :enabled? true)))
|
||||||
|
|
||||||
(defn read-click [url e]
|
(defn read-click [url e]
|
||||||
(when (.isPopupTrigger e)
|
(let [x (.x (.getPoint e))
|
||||||
(let [x (.x (.getPoint e))
|
y (.y (.getPoint e))
|
||||||
y (.y (.getPoint e))
|
label (.getComponent e)
|
||||||
label (.getComponent e)
|
p (popup :items [(action :name "none" :handler (partial set-relay-read label url :read-none))
|
||||||
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 "all" :handler (partial set-relay-read label url :read-all))
|
(action :name "trusted" :handler (partial set-relay-read label url :read-trusted))
|
||||||
(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))])]
|
||||||
(action :name "web of trust" :handler (partial set-relay-read label url :read-web-of-trust))])]
|
(.show p (to-widget e) x y)))
|
||||||
(.show p (to-widget e) x y))))
|
|
||||||
|
|
||||||
(defn write-click [url e]
|
(defn write-click [url e]
|
||||||
(when (.isPopupTrigger e)
|
(let [x (.x (.getPoint e))
|
||||||
(let [x (.x (.getPoint e))
|
y (.y (.getPoint e))
|
||||||
y (.y (.getPoint e))
|
label (.getComponent e)
|
||||||
label (.getComponent e)
|
p (popup :items [(action :name "true" :handler (partial set-relay-write label url true))
|
||||||
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))
|
||||||
(action :name "false" :handler (partial set-relay-write label url false))
|
])]
|
||||||
])]
|
(.show p (to-widget e) x y)))
|
||||||
(.show p (to-widget e) x y))))
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user