anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: cairo.lisp,v 1.18 2007-10-31 11:52:53 espen Exp $
  +;; $Id: cairo.lisp,v 1.19 2007-12-02 14:50:41 espen Exp $
   
   (in-package "CAIRO")
   
  
positive.code:   (cr context)
    (size double-float))
  
  (defbinding show-text () nil
    (cr context)
    (text string))
  
negative.code:       :setter "cairo_set_font_face"
        :accessor font-face
        :type font-face)
       #?(pkg-exists-p "cairo" :atleast-version "1.4")
       (scaled-font
        :allocation :virtual 
        :getter "cairo_get_scaled_font"
        :setter "cairo_set_scaled_font"
        :accessor scaled-font
        :type scaled-font)
       (operator
        :allocation :virtual 
        :getter "cairo_get_operator"
  