ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/gtk2-perl-xs.patch
(Generate patch)

Comparing kgsueme/gtk2-perl-xs.patch (file contents):
Revision 1.1 by pcg, Sun Jun 1 06:07:11 2003 UTC vs.
Revision 1.3 by pcg, Sun Jun 1 20:12:10 2003 UTC

1 1
2 2Gtk2
3Gtk2/ChangeLog
42003/06/01 08:07 pcg
5
6 * xs/GtkAspectFrame.xs: fixed package name typo. 3 * xs/GtkAspectFrame.xs: fixed package name typo.
7 * xs/GtkAspectFrame.xs: renamed ->set to set_param, because ->set is more 4 * xs/GtkAspectFrame.xs: renamed ->set to set_param, because ->set is more
8 universal. 5 universal.
9 * xs/GtkTreeSortable: fixed package name typo. 6 * xs/GtkTreeSortable.xs: fixed package name typo.
7 * xs/GtkAdjustment.xs: add accors/mutators for struct values.
10 8
11Glib/ChangeLog 9Glib
122003/06/01 08:07 pcg
13
14 * gperl.h: make it compile even on non-threaded perls (where aTHX is empty). 10 * gperl.h: make it compile even on non-threaded perls (where aTHX is empty).
15 * GObject.xs: ->set and ->get accept more than one property pair/name. 11 * GObject.xs: ->set and ->get accept more than one property pair/name.
16 12
17 13Index: Makefile
14===================================================================
15RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Makefile,v
16retrieving revision 1.2
17diff -u -p -r1.2 Makefile
18--- Makefile 17 May 2003 21:28:05 -0000 1.2
19+++ Makefile 1 Jun 2003 20:11:52 -0000
20@@ -16,7 +16,7 @@
21 # non-system installed version. If you have any questions send them to the
22 # mailing list -rm
23
24-PREFIX=/usr/local
25+PREFIX=//opt/perl
26
27 TARGETS=Glib/Makefile Glib.build
28 TARGETS+=Gtk2/Makefile Gtk2.build
18Index: Glib/GObject.xs 29Index: Glib/GObject.xs
19=================================================================== 30===================================================================
20RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v 31RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v
21retrieving revision 1.2 32retrieving revision 1.2
22diff -u -p -r1.2 GObject.xs 33diff -u -p -r1.2 GObject.xs
23--- Glib/GObject.xs 22 May 2003 14:23:11 -0000 1.2 34--- Glib/GObject.xs 22 May 2003 14:23:11 -0000 1.2
24+++ Glib/GObject.xs 1 Jun 2003 06:05:24 -0000 35+++ Glib/GObject.xs 1 Jun 2003 20:11:53 -0000
25@@ -390,37 +390,49 @@ g_object_get_data (object, key) 36@@ -390,37 +390,49 @@ g_object_get_data (object, key)
26 37
27 38
28 SV * 39 SV *
29-g_object_get (object, name) 40-g_object_get (object, name)
… …
44- RETVAL 55- RETVAL
45+ PPCODE: 56+ PPCODE:
46+ int i; 57+ int i;
47+ 58+
48+ EXTEND (SP, items); 59+ EXTEND (SP, items);
49+ for (i = 1; i <= items; i++) { 60+ for (i = 1; i < items; i++) {
50+ char *name = SvPV_nolen (ST (i)); 61+ char *name = SvPV_nolen (ST (i));
51+ 62+
52+ init_property_value (object, name, &value); 63+ init_property_value (object, name, &value);
53+ g_object_get_property (object, name, &value); 64+ g_object_get_property (object, name, &value);
54+ PUSHs (sv_2mortal (gperl_sv_from_value (&value))); 65+ PUSHs (sv_2mortal (gperl_sv_from_value (&value)));
… …
92=================================================================== 103===================================================================
93RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/gperl.h,v 104RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/gperl.h,v
94retrieving revision 1.4 105retrieving revision 1.4
95diff -u -p -r1.4 gperl.h 106diff -u -p -r1.4 gperl.h
96--- Glib/gperl.h 31 May 2003 04:00:45 -0000 1.4 107--- Glib/gperl.h 31 May 2003 04:00:45 -0000 1.4
97+++ Glib/gperl.h 1 Jun 2003 06:05:24 -0000 108+++ Glib/gperl.h 1 Jun 2003 20:11:54 -0000
98@@ -28,6 +28,11 @@ 109@@ -28,6 +28,11 @@
99 110
100 #include <glib-object.h> 111 #include <glib-object.h>
101 112
102+#ifndef PERL_IMPLICIT_CONTEXT 113+#ifndef PERL_IMPLICIT_CONTEXT
… …
105+#endif 116+#endif
106+ 117+
107 /* 118 /*
108 * miscellaneous 119 * miscellaneous
109 */ 120 */
121Index: Gtk2/xs/GtkAdjustment.xs
122===================================================================
123RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAdjustment.xs,v
124retrieving revision 1.3
125diff -u -p -r1.3 GtkAdjustment.xs
126--- Gtk2/xs/GtkAdjustment.xs 22 May 2003 14:23:23 -0000 1.3
127+++ Gtk2/xs/GtkAdjustment.xs 1 Jun 2003 20:11:54 -0000
128@@ -58,3 +58,35 @@ gtk_adjustment_set_value (adjustment, va
129 GtkAdjustment *adjustment
130 gdouble value
131
132+gdouble
133+value (GtkAdjustment *adjustment, gdouble newval = 0)
134+ ALIAS:
135+ lower = 1
136+ upper = 2
137+ step_incrememt = 3
138+ page_incrememt = 4
139+ page_size = 5
140+ CODE:
141+ switch (ix) {
142+ case 0: RETVAL = adjustment->value;
143+ if (items > 1) adjustment->value = newval;
144+ break;
145+ case 1: RETVAL = adjustment->lower;
146+ if (items > 1) adjustment->lower = newval;
147+ break;
148+ case 2: RETVAL = adjustment->upper;
149+ if (items > 1) adjustment->upper = newval;
150+ break;
151+ case 3: RETVAL = adjustment->step_increment;
152+ if (items > 1) adjustment->step_increment = newval;
153+ break;
154+ case 4: RETVAL = adjustment->page_increment;
155+ if (items > 1) adjustment->page_increment = newval;
156+ break;
157+ case 5: RETVAL = adjustment->page_size;
158+ if (items > 1) adjustment->page_size = newval;
159+ break;
160+ }
161+ OUTPUT:
162+ RETVAL
163+
110Index: Gtk2/xs/GtkAspectFrame.xs 164Index: Gtk2/xs/GtkAspectFrame.xs
111=================================================================== 165===================================================================
112RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAspectFrame.xs,v 166RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAspectFrame.xs,v
113retrieving revision 1.3 167retrieving revision 1.3
114diff -u -p -r1.3 GtkAspectFrame.xs 168diff -u -p -r1.3 GtkAspectFrame.xs
115--- Gtk2/xs/GtkAspectFrame.xs 22 May 2003 14:23:23 -0000 1.3 169--- Gtk2/xs/GtkAspectFrame.xs 22 May 2003 14:23:23 -0000 1.3
116+++ Gtk2/xs/GtkAspectFrame.xs 1 Jun 2003 06:05:24 -0000 170+++ Gtk2/xs/GtkAspectFrame.xs 1 Jun 2003 20:11:54 -0000
117@@ -21,7 +21,7 @@ 171@@ -21,7 +21,7 @@
118 172
119 #include "gtk2perl.h" 173 #include "gtk2perl.h"
120 174
121-MODULE = Gtk2::AspectFrame PACKAGE = Gtk2::AspectFrame PREFIX = gtk_aspectframe_ 175-MODULE = Gtk2::AspectFrame PACKAGE = Gtk2::AspectFrame PREFIX = gtk_aspectframe_
… …
139=================================================================== 193===================================================================
140RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkTreeSortable.xs,v 194RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkTreeSortable.xs,v
141retrieving revision 1.3 195retrieving revision 1.3
142diff -u -p -r1.3 GtkTreeSortable.xs 196diff -u -p -r1.3 GtkTreeSortable.xs
143--- Gtk2/xs/GtkTreeSortable.xs 22 May 2003 14:23:24 -0000 1.3 197--- Gtk2/xs/GtkTreeSortable.xs 22 May 2003 14:23:24 -0000 1.3
144+++ Gtk2/xs/GtkTreeSortable.xs 1 Jun 2003 06:05:24 -0000 198+++ Gtk2/xs/GtkTreeSortable.xs 1 Jun 2003 20:11:54 -0000
145@@ -23,7 +23,7 @@ 199@@ -23,7 +23,7 @@
146 200
147 // typedef gint (* GtkTreeIterCompareFunc) (GtkTreeModel *model, GtkTreeIter *a, GtkTreeIter *b, gpointer user_data) 201 // typedef gint (* GtkTreeIterCompareFunc) (GtkTreeModel *model, GtkTreeIter *a, GtkTreeIter *b, gpointer user_data)
148 202
149-MODULE = Gtk2::TreeSortable PACKAGE = Gtk2::TreeSortable PREFIX = gtk_tre_sortable_ 203-MODULE = Gtk2::TreeSortable PACKAGE = Gtk2::TreeSortable PREFIX = gtk_tre_sortable_

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines