Mercurial > hg > indyvon
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)]