DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
	h=date:from:to:subject:message-id:mime-version:content-type
	:content-disposition:user-agent;
	b=hcTLcmfP/Z5z6dhut+R4udkIYe96EcfV8fcaYKlaMSH1J/EAtMCOtD1AJ4R+NhUPVi
	pR8UM76wLNjlAmb/hLiK5cflyP6rVw0I1dO+EVq5tSpdmnwlRND2hiED8vI9FN9DBhST
	tiiMOmvlbLsBxvzJ1jdLMi4uyAm9dAXplf790=
Date: Wed, 21 Oct 2009 17:17:33 +0200
From: David Coppa <dcoppa at gmail.com>
To: lablgtk at yquem.inria.fr
Message-ID: <20091021151733.GA15001 at cl0311500093650>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Subject: [Lablgtk] Fix GtkSpinButton "adjustment with non-zero page size"
	deprecation message


Hi all,

This diff fixes the "GtkSpinButton: setting an adjustment with 
non-zero page size is deprecated" warning message.

This warning appears with newer versions of the GTK+2 library.

Best Regards,
David Coppa


--- src/gData.ml.orig	Wed Oct 21 15:13:46 2009
+++ src/gData.ml	Wed Oct 21 15:14:11 2009
@@ -51,7 +51,7 @@ class adjustment obj = object
 end
 
 let adjustment ?(value=0.) ?(lower=0.) ?(upper=100.)
-    ?(step_incr=1.) ?(page_incr=10.) ?(page_size=10.) () =
+    ?(step_incr=1.) ?(page_incr=10.) ?(page_size=0.) () =
   let w =
     Adjustment.create ~value ~lower ~upper ~step_incr ~page_incr ~page_size in
   new adjustment w


--- src/gData.mli.orig	Wed Oct 21 15:14:19 2009
+++ src/gData.mli	Wed Oct 21 15:15:11 2009
@@ -62,7 +62,7 @@ class adjustment : Gtk.adjustment obj ->
     @param upper default value is [100.]
     @param step_incr default value is [1.]
     @param page_incr default value is [10.]
-    @param page_size default value is [10.] *)
+    @param page_size default value is [0.] *)
 val adjustment :
   ?value:float ->
   ?lower:float ->

_______________________________________________
Lablgtk mailing list
Lablgtk@yquem.inria.fr
http://yquem.inria.fr/cgi-bin/mailman/listinfo/lablgtk