[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-other.lisp

[Peter Denno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv25057/gtk-ffi

Modified Files:
	gtk-other.lisp 
Log Message:
New ffi definitions for gtk icon-factory and icon-set.
Date: Wed Feb 16 23:30:04 2005
Author: pdenno

Index: root/gtk-ffi/gtk-other.lisp
diff -u root/gtk-ffi/gtk-other.lisp:1.2 root/gtk-ffi/gtk-other.lisp:1.3
--- root/gtk-ffi/gtk-other.lisp:1.2	Tue Dec 14 05:02:05 2004
+++ root/gtk-ffi/gtk-other.lisp	Wed Feb 16 23:30:03 2005
@@ -278,6 +278,18 @@
   (gtk-image-get-pixbuf ((image c-pointer))
     c-pointer)
 
+  ;;icon-factory
+  (gtk-icon-factory-new ()
+    c-pointer)
+  (gtk-icon-factory-add-default ((factory c-pointer)))
+  (gtk-icon-factory-add ((factory c-pointer)
+                         (stock-id c-string)
+                         (icon-set c-pointer)))
+
+  ;;icon-set
+  (gtk-icon-set-new-from-pixbuf ((pixbuf c-pointer))
+    c-pointer)                            
+
   ;;statusbar
   (gtk-statusbar-new ()
     c-pointer)