gtk: gtk_adjustment_changed is deprecated as of Gtk+ 3.18.
authorMatt Birkholz <matt@birchwood-abbey.net>
Fri, 12 Aug 2016 00:38:35 +0000 (17:38 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Fri, 12 Aug 2016 00:38:35 +0000 (17:38 -0700)
So too gtk_adjustment_value_changed.

src/gtk/Includes/gtkadjustment.cdecl
src/gtk/gtk-widget.scm

index ea491a9b740e02a2f8bd26c8451969d9131f626e..c954f6ad709846fbf454fa8c484be15c7731478c 100644 (file)
@@ -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
index 0a6548bfd371ba8c37becb6a114615a11828003a..74054ef9f87b9338480f1f8f62b51304e66d5a28 100644 (file)
@@ -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...