[gtk-cffi-cvs] CVS gtk-cffi/gdk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gdk
In directory tiger.common-lisp.net:/tmp/cvs-serv22276/gdk

Modified Files:
	gdk-cffi.asd package.lisp 
Added Files:
	cairo.lisp 
Log Message:
Added with-progress in extensions
Added GtkOrientable, GtkRange, GtkBuildable, & Cairo support in gdk (see examples/ex6)
Fixed all examples.



--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/gdk-cffi.asd	2011/09/15 10:28:20	1.6
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/gdk-cffi.asd	2012/05/07 09:02:04	1.7
@@ -31,4 +31,5 @@
    (:file visual :depends-on (loadlib generics))
    (:file image :depends-on (visual))
    (:file atom :depends-on (loadlib))   
-   (:file pixbuf :depends-on (image gc))))
+   (:file pixbuf :depends-on (image gc))
+   (:file cairo :depends-on (pixbuf))))
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/package.lisp	2012/03/06 01:25:26	1.10
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/package.lisp	2012/05/07 09:02:04	1.11
@@ -72,8 +72,12 @@
    #:keyval-to-lower
 
    #:gatom
+
+   #:cairo-create
+   #:cairo-set-source-pixbuf
    ))
 
 (in-package #:gdk-cffi)
 (register-package "Gdk" *package*)
 (register-prefix *package* 'gdk)
+;(register-package "Cairo" (find-package "CL-CAIRO2"))

--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/cairo.lisp	2012/05/07 09:02:04	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/cairo.lisp	2012/05/07 09:02:04	1.1
(in-package :gdk-cffi)

(defcfun gdk-cairo-create :pointer (window pobject))

(defun cairo-create (window)
  (let* ((p (gdk-cairo-create window))
         (context (make-instance 'cl-cairo2:context :pointer p)))
    (tg:finalize context #'(lambda () (cl-cairo2::cairo_destroy p)))
    context))

(defcfun gdk-cairo-set-source-pixbuf :void
  (context :pointer) (pixbuf pobject) (x :double) (y :double))

(defun cairo-set-source-pixbuf (pixbuf x y 
                                &optional (context cl-cairo2:*context*))
  (gdk-cairo-set-source-pixbuf (cl-cairo2::get-pointer context) pixbuf x y))