From: Andrey Kutejko <andy128k@gmail.com>
Date: Tue, 24 Nov 2009 21:54:14 +0000 (+0200)
Subject: rest gtk-icon-factory- functions
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6941db54f552f8257d269a65c6c47b2f3e9c640c;p=cl-gtk2.git

rest gtk-icon-factory- functions
---

diff --git a/gtk/gtk.icon-factory.lisp b/gtk/gtk.icon-factory.lisp
index d8502ad..3c9086b 100644
--- a/gtk/gtk.icon-factory.lisp
+++ b/gtk/gtk.icon-factory.lisp
@@ -133,8 +133,17 @@ const gchar*        gtk_icon_size_get_name              (GtkIconSize size);
 
 (export 'icon-factory-lookup)
 
-#|
-GtkIconSet*         gtk_icon_factory_lookup_default     (const gchar *stock_id);
-void                gtk_icon_factory_remove_default     (GtkIconFactory *factory);
-|#
+(defcfun gtk-icon-factory-lookup-default (g-boxed-foreign icon-set :return)
+  (stock-id :string))
+
+(defun icon-factory-lookup-default (stock-id)
+  (gtk-icon-factory-lookup-default stock-id))
+
+(export 'icon-factory-lookup-default)
+
+(defcfun gtk-icon-factory-remove-default :void
+  (factory (g-object icon-factory)))
+
+(defun icon-factory-remove-default (factory)
+  (gtk-icon-factory-remove-default factory))