--- kgsueme/gtk2-perl-xs.patch 2003/06/01 06:40:15 1.2 +++ kgsueme/gtk2-perl-xs.patch 2003/06/01 20:12:10 1.3 @@ -1,11 +1,38 @@ +Gtk2 + * xs/GtkAspectFrame.xs: fixed package name typo. + * xs/GtkAspectFrame.xs: renamed ->set to set_param, because ->set is more + universal. + * xs/GtkTreeSortable.xs: fixed package name typo. + * xs/GtkAdjustment.xs: add accors/mutators for struct values. + +Glib + * gperl.h: make it compile even on non-threaded perls (where aTHX is empty). + * GObject.xs: ->set and ->get accept more than one property pair/name. + +Index: Makefile +=================================================================== +RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Makefile,v +retrieving revision 1.2 +diff -u -p -r1.2 Makefile +--- Makefile 17 May 2003 21:28:05 -0000 1.2 ++++ Makefile 1 Jun 2003 20:11:52 -0000 +@@ -16,7 +16,7 @@ + # non-system installed version. If you have any questions send them to the + # mailing list -rm + +-PREFIX=/usr/local ++PREFIX=//opt/perl + + TARGETS=Glib/Makefile Glib.build + TARGETS+=Gtk2/Makefile Gtk2.build Index: Glib/GObject.xs =================================================================== RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v retrieving revision 1.2 diff -u -p -r1.2 GObject.xs --- Glib/GObject.xs 22 May 2003 14:23:11 -0000 1.2 -+++ Glib/GObject.xs 1 Jun 2003 06:36:49 -0000 ++++ Glib/GObject.xs 1 Jun 2003 20:11:53 -0000 @@ -390,37 +390,49 @@ g_object_get_data (object, key) @@ -78,7 +105,7 @@ retrieving revision 1.4 diff -u -p -r1.4 gperl.h --- Glib/gperl.h 31 May 2003 04:00:45 -0000 1.4 -+++ Glib/gperl.h 1 Jun 2003 06:36:51 -0000 ++++ Glib/gperl.h 1 Jun 2003 20:11:54 -0000 @@ -28,6 +28,11 @@ #include @@ -91,13 +118,56 @@ /* * miscellaneous */ +Index: Gtk2/xs/GtkAdjustment.xs +=================================================================== +RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAdjustment.xs,v +retrieving revision 1.3 +diff -u -p -r1.3 GtkAdjustment.xs +--- Gtk2/xs/GtkAdjustment.xs 22 May 2003 14:23:23 -0000 1.3 ++++ Gtk2/xs/GtkAdjustment.xs 1 Jun 2003 20:11:54 -0000 +@@ -58,3 +58,35 @@ gtk_adjustment_set_value (adjustment, va + GtkAdjustment *adjustment + gdouble value + ++gdouble ++value (GtkAdjustment *adjustment, gdouble newval = 0) ++ ALIAS: ++ lower = 1 ++ upper = 2 ++ step_incrememt = 3 ++ page_incrememt = 4 ++ page_size = 5 ++ CODE: ++ switch (ix) { ++ case 0: RETVAL = adjustment->value; ++ if (items > 1) adjustment->value = newval; ++ break; ++ case 1: RETVAL = adjustment->lower; ++ if (items > 1) adjustment->lower = newval; ++ break; ++ case 2: RETVAL = adjustment->upper; ++ if (items > 1) adjustment->upper = newval; ++ break; ++ case 3: RETVAL = adjustment->step_increment; ++ if (items > 1) adjustment->step_increment = newval; ++ break; ++ case 4: RETVAL = adjustment->page_increment; ++ if (items > 1) adjustment->page_increment = newval; ++ break; ++ case 5: RETVAL = adjustment->page_size; ++ if (items > 1) adjustment->page_size = newval; ++ break; ++ } ++ OUTPUT: ++ RETVAL ++ Index: Gtk2/xs/GtkAspectFrame.xs =================================================================== RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAspectFrame.xs,v retrieving revision 1.3 diff -u -p -r1.3 GtkAspectFrame.xs --- Gtk2/xs/GtkAspectFrame.xs 22 May 2003 14:23:23 -0000 1.3 -+++ Gtk2/xs/GtkAspectFrame.xs 1 Jun 2003 06:36:51 -0000 ++++ Gtk2/xs/GtkAspectFrame.xs 1 Jun 2003 20:11:54 -0000 @@ -21,7 +21,7 @@ #include "gtk2perl.h" @@ -125,7 +195,7 @@ retrieving revision 1.3 diff -u -p -r1.3 GtkTreeSortable.xs --- Gtk2/xs/GtkTreeSortable.xs 22 May 2003 14:23:24 -0000 1.3 -+++ Gtk2/xs/GtkTreeSortable.xs 1 Jun 2003 06:36:51 -0000 ++++ Gtk2/xs/GtkTreeSortable.xs 1 Jun 2003 20:11:54 -0000 @@ -23,7 +23,7 @@ // typedef gint (* GtkTreeIterCompareFunc) (GtkTreeModel *model, GtkTreeIter *a, GtkTreeIter *b, gpointer user_data)