# HG changeset patch
# User Mikhail Kryshen <mikhail@kryshen.net>
# Date 1334334259 -14400
# Node ID 43f78efe09032ea6cb31b967a9d978ec1b64ca83
# Parent  137e6455312375c44a3514a36498a15ecf91d4f7
Draw borders above content. Use fractional coordinates for correct alignment between panel and border.

diff -r 137e64553123 -r 43f78efe0903 src/net/kryshen/indyvon/layers.clj
--- a/src/net/kryshen/indyvon/layers.clj	Fri Apr 13 04:25:18 2012 +0400
+++ b/src/net/kryshen/indyvon/layers.clj	Fri Apr 13 20:24:19 2012 +0400
@@ -90,6 +90,7 @@
      (let [layer (padding content (+ thikness gap))
            t (double thikness)]
        (decorate-layer layer [_]
+         (render! layer)
          (with-color :border-color
            (let [w (double *width*)
                  h (double *height*)
@@ -98,8 +99,7 @@
              (.fill *graphics*
                     (doto (Path2D$Double. Path2D/WIND_EVEN_ODD)
                       (.append outer false)
-                      (.append inner false)))))
-         (render! layer)))))
+                      (.append inner false)))))))))
 
 ;; TODO: opacity and blur.
 (defn shadow
@@ -133,7 +133,7 @@
      (let [layer (padding content gap)]
        (decorate-layer layer [_]
          (with-color :alt-back-color
-           (.fillRect *graphics* 0 0 *width* *height*))
+           (.fill *graphics* (Rectangle2D$Double. 0.0 0.0 *width* *height*)))
          (render! layer)))))
 
 (defn hbox