lasercutter: src/clojure/contrib/javadoc/browse

added clojure source goodness

rev	line source
rlm@10	1 ;;; browse_ui.clj -- starts a swing web browser :-(
rlm@10	2
rlm@10	3 ; Copyright (c) Christophe Grand, December 2008. All rights reserved.
rlm@10	4 ; The use and distribution terms for this software are covered by the
rlm@10	5 ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
rlm@10	6 ; which can be found in the file epl-v10.html at the root of this
rlm@10	7 ; distribution.
rlm@10	8 ; By using this software in any fashion, you are agreeing to be bound by
rlm@10	9 ; the terms of this license.
rlm@10	10 ; You must not remove this notice, or any other, from this software.
rlm@10	11
rlm@10	12 (ns ^{:deprecated "1.2"}
rlm@10	13 clojure.contrib.javadoc.browse-ui)
rlm@10	14
rlm@10	15 (defn open-url-in-swing
rlm@10	16 "Opens url (a string) in a Swing window."
rlm@10	17 [url]
rlm@10	18 (let [htmlpane (javax.swing.JEditorPane. url)]
rlm@10	19 (.setEditable htmlpane false)
rlm@10	20 (.addHyperlinkListener htmlpane
rlm@10	21 (proxy [javax.swing.event.HyperlinkListener] []
rlm@10	22 (hyperlinkUpdate [^javax.swing.event.HyperlinkEvent e]
rlm@10	23 (when (= (.getEventType e) (. javax.swing.event.HyperlinkEvent$EventType ACTIVATED))
rlm@10	24 (if (instance? javax.swing.text.html.HTMLFrameHyperlinkEvent e)
rlm@10	25 (-> htmlpane .getDocument (.processHTMLFrameHyperlinkEvent e))
rlm@10	26 (.setPage htmlpane (.getURL e)))))))
rlm@10	27 (doto (javax.swing.JFrame.)
rlm@10	28 (.setContentPane (javax.swing.JScrollPane. htmlpane))
rlm@10	29 (.setBounds 32 32 700 900)
rlm@10	30 (.show))))
rlm@10	31

Mercurial > lasercutter