From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 31 Oct 2009 20:10:07 +0000 (+0300)
Subject: Add error handling to gtk:ui-manager-load-from-file and gtk:ui-manager-load-from... 
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=32e836dd4bfe97db7e1f4c414d5f487014aa1b04;p=cl-gtk2.git

Add error handling to gtk:ui-manager-load-from-file and gtk:ui-manager-load-from-string
---

diff --git a/gtk/gtk.ui-manager.lisp b/gtk/gtk.ui-manager.lisp
index 9bbdb4a..8e501bd 100644
--- a/gtk/gtk.ui-manager.lisp
+++ b/gtk/gtk.ui-manager.lisp
@@ -42,10 +42,9 @@
   (length gssize)
   (error :pointer))
 
-; TODO: add handling of error
-
 (defun ui-manager-add-ui-from-string (ui-manager string)
-  (gtk-ui-manager-add-ui-from-string ui-manager string -1 (null-pointer)))
+  (with-g-error (err)
+    (gtk-ui-manager-add-ui-from-string ui-manager string -1 err)))
 
 (export 'ui-manager-add-ui-from-string)
 
@@ -55,7 +54,8 @@
   (error :pointer))
 
 (defun ui-manager-add-ui-from-file (ui-manager file-name)
-  (gtk-ui-manager-add-ui-from-file ui-manager file-name (null-pointer)))
+  (with-g-error (err)
+    (gtk-ui-manager-add-ui-from-file ui-manager file-name err)))
 
 (export 'ui-manager-add-ui-from-file)