Perl/Gtk: Gtk::Tree->selection() missing, patch attached

[Christoph Hartmann <hartmann ai-lab fh-furtwangen de>]

hi,


i played around with the Perl/Gtk bindings version 0.2_03.
after writing a small test program using a Gtk::Tree
i realized, that the selection() method is missing. so
i patched it in ;)

----- snipp -----
*** GtkTree.xs-dist	Fri Apr 10 08:13:59 1998
--- GtkTree.xs	Wed Jun 17 22:04:16 1998
***************
*** 114,117 ****
--- 114,130 ----
  	Gtk::Tree	self
  	unsigned int	flag
  
+ void
+ selection(list)
+ 	Gtk::Tree	list
+ 	PPCODE:
+ 	{
+ 		GList * selection = list->selection;
+ 		while(selection) {
+ 			EXTEND(sp,1);
+ 			PUSHs(sv_2mortal(newSVGtkObjectRef(GTK_OBJECT(selection->data),0)));
+ 			selection=selection->next;
+ 		}
+ 	}
+ 
  #endif
----- snipp -----



so long...
Christoph 'hardy' Hartmann
-- 
           hartmann@ai-lab.fh-furtwangen.de (Christoph Hartmann)
          http://www.ai-lab.fh-furtwangen.de/~hartmann/index.html
        FAX: +49 89 6661 724094 (fax2mail via http://www.commit.de)
===========================================================================
          the best way to accelerate a pc-compatible is 9.8 m/s^2