Mercurial > hg > indyvon

changeset 122:17aa55059b07

find changesets by author, revision, files, or words in the commit message
Added with-stroke macro.
author Mikhail Kryshen <mikhail@kryshen.net>
date Fri, 06 Apr 2012 19:19:13 +0400
parents b5ac04d5fc8a
children 7b22c6d585f4
files src/net/kryshen/indyvon/core.clj
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line diff
     1.1 --- a/src/net/kryshen/indyvon/core.clj	Fri Apr 06 18:59:04 2012 +0400
     1.2 +++ b/src/net/kryshen/indyvon/core.clj	Fri Apr 06 19:19:13 2012 +0400
     1.3 @@ -399,6 +399,15 @@
     1.4           (finally
     1.5            (.setColor g# old-color#))))))
     1.6  
     1.7 +(defmacro with-stroke [stroke & body]
     1.8 +  `(let [g# *graphics*
     1.9 +         old-stroke# (.getStroke g#)]
    1.10 +     (try
    1.11 +       (.setStroke g# ~stroke)
    1.12 +       ~@body
    1.13 +       (finally
    1.14 +        (.setStroke g# old-stroke#)))))
    1.15 +
    1.16  (defn with-hints*
    1.17    [hints f & args]
    1.18    (if hints