(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
(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...