(defn inspect
"creates a graphical (Swing) inspector on the supplied object"
{:added "1.0"}
[x]
(doto (JFrame. "Clojure Inspector")
(.add
(doto (JPanel. (BorderLayout.))
(.add (doto (JToolBar.)
(.add (JButton. "Back"))
(.addSeparator)
(.add (JButton. "List"))
(.add (JButton. "Table"))
(.add (JButton. "Bean"))
(.add (JButton. "Line"))
(.add (JButton. "Bar"))
(.addSeparator)
(.add (JButton. "Prev"))
(.add (JButton. "Next")))
BorderLayout/NORTH)
(.add
(JScrollPane.
(doto (JTable. (list-model (list-provider x)))
(.setAutoResizeMode JTable/AUTO_RESIZE_LAST_COLUMN)))
BorderLayout/CENTER)))
(.setSize 400 400)
(.setVisible true)))
Vars in
clojure.inspector/inspect:
defn
doto
Used in 0 other vars
Source
clojure/inspector.clj:150
top
Comments top
No comments for inspect. Log in to add a comment.