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