[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-serv16373/g-lib

Modified Files:
	error.lisp package.lisp 
Log Message:
added GtkAssistant and GtkBuilder


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/02/12 17:29:41	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/error.lisp	2012/03/06 01:25:26	1.4
@@ -41,6 +41,12 @@
             (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)))
+    (error "GError ~A (~A): ~A"
+           (g-quark-to-string (getf err :domain)) 
+           (getf err :errno) (getf err :message))))
+
 (defmacro with-g-error (g-error &body body)
   `(let ((,g-error (make-instance 'g-error)))
      (unwind-protect
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/package.lisp	2012/02/12 17:29:41	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/package.lisp	2012/03/06 01:25:26	1.8
@@ -13,6 +13,7 @@
   (:export
    ;; gerror macro
    #:with-g-error
+   #:throw-g-error
    
    ;; types
    #:g-list
@@ -21,6 +22,7 @@
    #:string-list
    #:variant-type
    #:variant
+   #:gsize
 
    #:g-error
    #:get-error