[gtk-cffi-cvs] CVS gtk-cffi/g-lib

[CVS User rklochkov]

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

Modified Files:
	error.lisp mainloop.lisp package.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/g-lib/error.lisp	2012/03/06 01:25:26	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/05/07 09:02:04	1.5
@@ -35,11 +35,11 @@
           ((domain errno message) p g-error)
         `(:domain ,domain :errno ,errno :message ,message)))))
 
-(defmethod print-object ((g-error g-error) stream)
-  (let ((err (get-error g-error)))
-    (format stream "GError ~A (~A): ~A"
-            (g-quark-to-string (getf err :domain)) 
-            (getf err :errno) (getf err :message))))
+;(defmethod print-object ((g-error g-error) stream)
+;  (let ((err (get-error g-error)))
+;    (format stream "GError ~A (~A): ~A"
+;            (g-quark-to-string (getf err :domain)) 
+;            (getf err :errno) (getf err :message))))
 
 (defun throw-g-error (g-error)
   (let ((err (get-error g-error)))
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/mainloop.lisp	2011/04/25 19:16:07	1.1.1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/mainloop.lisp	2012/05/07 09:02:04	1.2
@@ -103,3 +103,8 @@
 (defun yield ()
   (do () ((not (g-main-context-pending (null-pointer))))
     (g-main-context-iteration (null-pointer) nil)))
+
+
+(defun yield1 ()
+  (when (g-main-context-pending (null-pointer))
+    (g-main-context-iteration (null-pointer) nil)))
\ No newline at end of file
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/package.lisp	2012/03/06 01:25:26	1.8
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/package.lisp	2012/05/07 09:02:04	1.9
@@ -33,6 +33,7 @@
    #:timeout-add
    #:timeout-remove
    #:yield
+   #:yield1
 
    #:g-intern-static-string
    #:g-free