Mercurial > lasercutter

     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
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children