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

[CVS User rklochkov]

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

Modified Files:
	gtk-cffi-ext.asd package.lisp 
Added Files:
	progress.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/ext/gtk-cffi-ext.asd	2012/01/21 18:37:52	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/gtk-cffi-ext.asd	2012/05/07 09:02:04	1.2
@@ -13,5 +13,6 @@
   :components
   ((:file package)
    (:file lisp-model :depends-on (package))
-   (:file addons :depends-on (package))))
+   (:file addons :depends-on (package))
+   (:file progress :depends-on (package))))
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/package.lisp	2012/02/12 17:29:41	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/package.lisp	2012/05/07 09:02:04	1.3
@@ -17,5 +17,7 @@
    #:implementation
    #:lisp-model-array
    #:lisp-model-tree-array
-   #:larray))
+   #:larray
+   #:with-progress
+   #:set-progress))
 

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

(defmacro with-progress ((&key parent (title "") (width 400)) &body body)
  (let ((widget-var (gensym))
        (progress-var (gensym)))
    `(let* ((,progress-var (make-instance 'progress-bar))
            (,widget-var
             (gtk-model
               'window
               :title ,title
               :transient-for ,parent
               :position-type :center-on-parent
               :width ,width
               :kid ,progress-var)))
       (flet ((set-progress (frac) 
                (setf (fraction ,progress-var) frac)
                (draw ,progress-var)))
         (show ,widget-var)
         , at body
         (destroy ,widget-var)))))