Gtk2
        * xs/GtkAdjustment.xs: add accors/mutators for struct values.

Glib
	* gperl.h: make it compile even on non-threaded perls (where aTHX is empty).

Index: Glib/gperl.h
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/gperl.h,v
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	2 Jun 2003 14:32:11 -0000
@@ -28,6 +28,11 @@
 
 #include <glib-object.h>
 
+#ifndef PERL_IMPLICIT_CONTEXT
+# undef aTHX
+# define aTHX (void *)0
+#endif
+
 /*
  * 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	2 Jun 2003 14:32:11 -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
+