Vijual Swing example

gistfile1.clj

(ns prototype.graph
  (:use vijual)
  (:import [javax.swing JFrame JLabel]
           java.awt.image.BufferedImage
           java.awt.Dimension))

(defn draw []
  (let [frame  (new JFrame)
        image  (draw-tree-image [[:north-america [:usa [:miami] [:seattle] [:idaho [:boise]]]] [:europe [:germany] [:france [:paris] [:lyon] [:cannes]]]])
        canvas (proxy [JLabel] [] (paint [g] (.drawImage g image 0 0 this)))
        graphics (.createGraphics image)]

    (.add frame canvas)
    (.setSize frame (new Dimension 600 600))
    (.show frame)))