mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
Merge pull request #20 from alemmens/fix-open-link
Get open-link to work (when user clicks on a URL).
This commit is contained in:
commit
738db4f52b
@ -29,7 +29,7 @@
|
||||
|
||||
(defn open-link [e]
|
||||
(when (= HyperlinkEvent$EventType/ACTIVATED (.getEventType e))
|
||||
(browse/browse-url (.getURL e))))
|
||||
(browse/browse-url (str (.getURL e)))))
|
||||
|
||||
(defn make-main-window []
|
||||
(let [event-context @(:event-context @ui-context)
|
||||
|
Loading…
Reference in New Issue
Block a user