changeset 132:77a3a609b2fe

Minor changes.
author Mikhail Kryshen <mikhail@kryshen.net>
date Tue, 24 Apr 2012 18:47:31 +0400
parents 24d4c9f3be90
children 2c2e4c639311
files src/net/kryshen/indyvon/component.clj
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line diff
     1.1 --- a/src/net/kryshen/indyvon/component.clj	Fri Apr 13 20:26:21 2012 +0400
     1.2 +++ b/src/net/kryshen/indyvon/component.clj	Tue Apr 24 18:47:31 2012 +0400
     1.3 @@ -27,10 +27,11 @@
     1.4     (javax.swing JFrame JPanel JOptionPane)))
     1.5  
     1.6  (defn- paint-component [^Component c ^Graphics g scene]
     1.7 -  (let [size (.getSize c)]
     1.8 +  (let [w (.getWidth c)
     1.9 +        h (.getHeight c)]
    1.10      (.setColor g (:back-color *theme*))
    1.11 -    (.fillRect g 0 0 (.width size) (.height size))
    1.12 -    (draw-scene! scene g (.width size) (.height size))))
    1.13 +    (.fillRect g 0 0 w h)
    1.14 +    (draw-scene! scene g w h)))
    1.15  
    1.16  (defn- preferred-size [^Component c scene]
    1.17    (let [geom (scene-geometry scene)]