From 32e836dd4bfe97db7e1f4c414d5f487014aa1b04 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 31 Oct 2009 23:10:07 +0300 Subject: [PATCH] Add error handling to gtk:ui-manager-load-from-file and gtk:ui-manager-load-from-string --- gtk/gtk.ui-manager.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 1.7.10.4