1 | |
1 | |
|
|
2 | Gtk2 |
|
|
3 | * xs/GtkAspectFrame.xs: fixed package name typo. |
|
|
4 | * xs/GtkAspectFrame.xs: renamed ->set to set_param, because ->set is more |
|
|
5 | universal. |
|
|
6 | * xs/GtkTreeSortable.xs: fixed package name typo. |
|
|
7 | * xs/GtkAdjustment.xs: add accors/mutators for struct values. |
|
|
8 | |
|
|
9 | Glib |
|
|
10 | * gperl.h: make it compile even on non-threaded perls (where aTHX is empty). |
|
|
11 | * GObject.xs: ->set and ->get accept more than one property pair/name. |
|
|
12 | |
|
|
13 | Index: Makefile |
|
|
14 | =================================================================== |
|
|
15 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Makefile,v |
|
|
16 | retrieving revision 1.2 |
|
|
17 | diff -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 |
2 | Index: Glib/GObject.xs |
29 | Index: Glib/GObject.xs |
3 | =================================================================== |
30 | =================================================================== |
4 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v |
31 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v |
5 | retrieving revision 1.2 |
32 | retrieving revision 1.2 |
6 | diff -u -p -r1.2 GObject.xs |
33 | diff -u -p -r1.2 GObject.xs |
7 | --- 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 |
8 | +++ Glib/GObject.xs 1 Jun 2003 06:36:49 -0000 |
35 | +++ Glib/GObject.xs 1 Jun 2003 20:11:53 -0000 |
9 | @@ -390,37 +390,49 @@ g_object_get_data (object, key) |
36 | @@ -390,37 +390,49 @@ g_object_get_data (object, key) |
10 | |
37 | |
11 | |
38 | |
12 | SV * |
39 | SV * |
13 | -g_object_get (object, name) |
40 | -g_object_get (object, name) |
… | |
… | |
76 | =================================================================== |
103 | =================================================================== |
77 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/gperl.h,v |
104 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/gperl.h,v |
78 | retrieving revision 1.4 |
105 | retrieving revision 1.4 |
79 | diff -u -p -r1.4 gperl.h |
106 | diff -u -p -r1.4 gperl.h |
80 | --- 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 |
81 | +++ Glib/gperl.h 1 Jun 2003 06:36:51 -0000 |
108 | +++ Glib/gperl.h 1 Jun 2003 20:11:54 -0000 |
82 | @@ -28,6 +28,11 @@ |
109 | @@ -28,6 +28,11 @@ |
83 | |
110 | |
84 | #include <glib-object.h> |
111 | #include <glib-object.h> |
85 | |
112 | |
86 | +#ifndef PERL_IMPLICIT_CONTEXT |
113 | +#ifndef PERL_IMPLICIT_CONTEXT |
… | |
… | |
89 | +#endif |
116 | +#endif |
90 | + |
117 | + |
91 | /* |
118 | /* |
92 | * miscellaneous |
119 | * miscellaneous |
93 | */ |
120 | */ |
|
|
121 | Index: Gtk2/xs/GtkAdjustment.xs |
|
|
122 | =================================================================== |
|
|
123 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAdjustment.xs,v |
|
|
124 | retrieving revision 1.3 |
|
|
125 | diff -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 | + |
94 | Index: Gtk2/xs/GtkAspectFrame.xs |
164 | Index: Gtk2/xs/GtkAspectFrame.xs |
95 | =================================================================== |
165 | =================================================================== |
96 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAspectFrame.xs,v |
166 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkAspectFrame.xs,v |
97 | retrieving revision 1.3 |
167 | retrieving revision 1.3 |
98 | diff -u -p -r1.3 GtkAspectFrame.xs |
168 | diff -u -p -r1.3 GtkAspectFrame.xs |
99 | --- 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 |
100 | +++ Gtk2/xs/GtkAspectFrame.xs 1 Jun 2003 06:36:51 -0000 |
170 | +++ Gtk2/xs/GtkAspectFrame.xs 1 Jun 2003 20:11:54 -0000 |
101 | @@ -21,7 +21,7 @@ |
171 | @@ -21,7 +21,7 @@ |
102 | |
172 | |
103 | #include "gtk2perl.h" |
173 | #include "gtk2perl.h" |
104 | |
174 | |
105 | -MODULE = Gtk2::AspectFrame PACKAGE = Gtk2::AspectFrame PREFIX = gtk_aspectframe_ |
175 | -MODULE = Gtk2::AspectFrame PACKAGE = Gtk2::AspectFrame PREFIX = gtk_aspectframe_ |
… | |
… | |
123 | =================================================================== |
193 | =================================================================== |
124 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkTreeSortable.xs,v |
194 | RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkTreeSortable.xs,v |
125 | retrieving revision 1.3 |
195 | retrieving revision 1.3 |
126 | diff -u -p -r1.3 GtkTreeSortable.xs |
196 | diff -u -p -r1.3 GtkTreeSortable.xs |
127 | --- 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 |
128 | +++ Gtk2/xs/GtkTreeSortable.xs 1 Jun 2003 06:36:51 -0000 |
198 | +++ Gtk2/xs/GtkTreeSortable.xs 1 Jun 2003 20:11:54 -0000 |
129 | @@ -23,7 +23,7 @@ |
199 | @@ -23,7 +23,7 @@ |
130 | |
200 | |
131 | // 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) |
132 | |
202 | |
133 | -MODULE = Gtk2::TreeSortable PACKAGE = Gtk2::TreeSortable PREFIX = gtk_tre_sortable_ |
203 | -MODULE = Gtk2::TreeSortable PACKAGE = Gtk2::TreeSortable PREFIX = gtk_tre_sortable_ |