changeset 20:357bdd7d0550

Context in Anchor protocol.
author Mikhail Kryshen <mikhail@kryshen.net>
date Fri, 18 Jun 2010 04:39:56 +0400
parents 43f0d78057a9
children a70609bad3a4
files src/indyvon/core.clj
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line diff
     1.1 --- a/src/indyvon/core.clj	Thu Jun 17 20:59:22 2010 +0400
     1.2 +++ b/src/indyvon/core.clj	Fri Jun 18 04:39:56 2010 +0400
     1.3 @@ -140,12 +140,12 @@
     1.4  
     1.5  (defprotocol Anchored
     1.6    "Provide anchor point for Layers. Used by viewport."
     1.7 -  (anchor [this] "Anchor point: [x y]"))
     1.8 +  (anchor [this context] "Anchor point: [x y]"))
     1.9  
    1.10  ;; Default implementation of Anchored for any Layer.
    1.11  (extend-protocol Anchored
    1.12    indyvon.core.Layer
    1.13 -  (anchor [this] [0 0]))
    1.14 +  (anchor [this context] [0 0]))
    1.15  
    1.16  (defn viewport
    1.17    "Creates scrollable viewport layer."