From 6941db54f552f8257d269a65c6c47b2f3e9c640c Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Tue, 24 Nov 2009 23:54:14 +0200 Subject: [PATCH] rest gtk-icon-factory- functions --- gtk/gtk.icon-factory.lisp | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4