Mercurial > hg > indyvon

changeset 130:43f78efe0903

find changesets by author, revision, files, or words in the commit message
Draw borders above content. Use fractional coordinates for correct alignment between panel and border.
author Mikhail Kryshen <mikhail@kryshen.net>
date Fri, 13 Apr 2012 20:24:19 +0400
parents 137e64553123
children 24d4c9f3be90
files src/net/kryshen/indyvon/layers.clj
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line diff
     1.1 --- a/src/net/kryshen/indyvon/layers.clj	Fri Apr 13 04:25:18 2012 +0400
     1.2 +++ b/src/net/kryshen/indyvon/layers.clj	Fri Apr 13 20:24:19 2012 +0400
     1.3 @@ -90,6 +90,7 @@
     1.4       (let [layer (padding content (+ thikness gap))
     1.5             t (double thikness)]
     1.6         (decorate-layer layer [_]
     1.7 +         (render! layer)
     1.8           (with-color :border-color
     1.9             (let [w (double *width*)
    1.10                   h (double *height*)
    1.11 @@ -98,8 +99,7 @@
    1.12               (.fill *graphics*
    1.13                      (doto (Path2D$Double. Path2D/WIND_EVEN_ODD)
    1.14                        (.append outer false)
    1.15 -                      (.append inner false)))))
    1.16 -         (render! layer)))))
    1.17 +                      (.append inner false)))))))))
    1.18  
    1.19  ;; TODO: opacity and blur.
    1.20  (defn shadow
    1.21 @@ -133,7 +133,7 @@
    1.22       (let [layer (padding content gap)]
    1.23         (decorate-layer layer [_]
    1.24           (with-color :alt-back-color
    1.25 -           (.fillRect *graphics* 0 0 *width* *height*))
    1.26 +           (.fill *graphics* (Rectangle2D$Double. 0.0 0.0 *width* *height*)))
    1.27           (render! layer)))))
    1.28  
    1.29  (defn hbox