From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 12 Aug 2016 00:38:35 +0000 (-0700)
Subject: gtk: gtk_adjustment_changed is deprecated as of Gtk+ 3.18.
X-Git-Tag: mit-scheme-pucked-9.2.12~263
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=65e926531fcbc078925fa2a3284e201390d655ec;p=mit-scheme.git

gtk: gtk_adjustment_changed is deprecated as of Gtk+ 3.18.

So too gtk_adjustment_value_changed.
---

diff --git a/src/gtk/Includes/gtkadjustment.cdecl b/src/gtk/Includes/gtkadjustment.cdecl
index ea491a9b7..c954f6ad7 100644
--- a/src/gtk/Includes/gtkadjustment.cdecl
+++ b/src/gtk/Includes/gtkadjustment.cdecl
@@ -12,10 +12,10 @@ gtk/gtkadjustment.h |#
 	(page_increment gdouble)
 	(page_size gdouble))
 
-(extern void gtk_adjustment_changed
+;; Deprecated as of Gtk+ 3.18.
+#;(extern void gtk_adjustment_changed
 	(adjustment (* GtkAdjustment)))
-
-(extern void gtk_adjustment_value_changed
+#;(extern void gtk_adjustment_value_changed
 	(adjustment (* GtkAdjustment)))
 
 (extern gdouble gtk_adjustment_get_value
diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index 0a6548bfd..74054ef9f 100644
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -71,14 +71,17 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
       (if (not (int:= new-page-incr old-page-incr))
 	  (C-call "gtk_adjustment_set_page_increment"
 		  alien (->flonum new-page-incr)))
-      (if (or (not (int:= new-lower old-lower))
+      ;; gtk_adjustment_changed and gtk_adjustment_value_changed are
+      ;; deprecated as of Gtk+ 3.18.  This should now be automatic.
+      #;(if (or (not (int:= new-lower old-lower))
 	      (not (int:= new-upper old-upper))
 	      (not (int:= new-page-size old-page-size))
 	      (not (int:= new-step-incr old-step-incr))
 	      (not (int:= new-page-incr old-page-incr)))
 	  (C-call "gtk_adjustment_changed" alien))
-      (if (not (int:= new-value old-value))
-	  (C-call "gtk_adjustment_value_changed" alien)))))
+      #;(if (not (int:= new-value old-value))
+	  (C-call "gtk_adjustment_value_changed" alien))
+      )))
 
 (define (peek-gtk-adjustment adjustment)
   ;; For debugging...