From 2596abd7ebf2c5c2dc48512964efb2770e8f9f41 Mon Sep 17 00:00:00 2001 Message-Id: <2596abd7ebf2c5c2dc48512964efb2770e8f9f41.1715995500.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 13 Mar 2005 18:10:14 +0000 Subject: [PATCH] Manual overriding some slot setters for icon-view Organization: Straylight/Edgeware From: espen --- gtk/gtktypes.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 9bdf719..fca5efd 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtktypes.lisp,v 1.34 2005/03/06 17:26:23 espen Exp $ +;; $Id: gtktypes.lisp,v 1.35 2005/03/13 18:10:14 espen Exp $ (in-package "GTK") @@ -993,6 +993,12 @@ (default-height :merge t :unbound -1))) :reader clipboard-display :type gdk:display))) + #+gtk2.6 + ("GtkIconView" + :slots + ((text-column :merge t :setter %icon-view-set-text-column) + (markup-column :merge t :setter %icon-view-set-markup-column) + (pixbuf-column :merge t :setter %icon-view-set-pixbuf-column))) ;; Not needed ("GtkFundamentalType" :ignore t) -- [mdw]