Mercurial > hg > indyvon
view src/net/kryshen/indyvon/component.clj @ 104:491152048c89
Added Scene record to enclose state retained between repaints.
| author | Mikhail Kryshen <mikhail@kryshen.net> |
|---|---|
| date | Thu, 19 May 2011 20:10:45 +0400 |
| parents | 9874107e3e96 |
| children | f3dedece38f3 |
line source
1 ;;
2 ;; Copyright 2010, 2011 Mikhail Kryshen <mikhail@kryshen.net>
3 ;;
4 ;; This file is part of Indyvon.
5 ;;
6 ;; Indyvon is free software: you can redistribute it and/or modify it
7 ;; under the terms of the GNU Lesser General Public License version 3
8 ;; only, as published by the Free Software Foundation.
9 ;;
10 ;; Indyvon is distributed in the hope that it will be useful, but
11 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;; Lesser General Public License for more details.
14 ;;
15 ;; You should have received a copy of the GNU Lesser General Public
16 ;; License along with Indyvon. If not, see
17 ;; <http://www.gnu.org/licenses/>.
18 ;;
20 (ns net.kryshen.indyvon.component
21 "Integrating Indyvon into AWT and Swing components."
22 (:use
23 net.kryshen.indyvon.core)
24 (:import
25 (net.kryshen.indyvon.core Size Bounds)
26 (java.awt Graphics Component Dimension Color)
27 (java.awt.geom Rectangle2D$Double)
28 (javax.swing JFrame JPanel JOptionPane)))
30 (defn font-context [^Component component]
31 (.getFontRenderContext (.getFontMetrics component (.getFont component))))
33 (defmacro with-component [component & body]
34 `(let [c# ~component]
35 (binding [*target* c#
36 *font-context* (font-context c#)]
37 ~@body)))
39 (defn- paint-component [^Component c ^Graphics g scene]
40 (let [size (.getSize c)]
41 (.setColor g (:back-color *theme*))
42 (.fillRect g 0 0 (.width size) (.height size))
43 (draw-scene! scene g (.width size) (.height size))))
45 (defn- preferred-size [^Component c scene]
46 (let [s (scene-size scene (font-context c))]
47 (Dimension. (:width s) (:height s))))
49 (defn ^JPanel make-jpanel
50 ([layer]
51 (make-jpanel layer (root-event-dispatcher)))
52 ([layer event-dispatcher]
53 (let [panel (proxy [JPanel] [])
54 scene (make-scene layer event-dispatcher panel)]
55 (update-proxy
56 panel
57 {"paintComponent" #(paint-component %1 %2 scene)
58 "getPreferredSize" #(preferred-size % scene)})
59 (.setBackground panel (:back-color *theme*))
60 (add-observer panel scene (fn [w _]
61 ;; Use the first observer argument
62 ;; instead of closing over panel to
63 ;; allow the panel and associated
64 ;; observer to be gc'd.
65 (.repaint ^Component w)))
66 (listen! event-dispatcher panel)
67 panel)))
69 (defn make-jframe [title layer]
70 (doto (JFrame. title)
71 (.. (getContentPane) (add (make-jpanel layer)))
72 (.pack)))
74 (defn message [m]
75 (JOptionPane/showMessageDialog *target* m))