;; -*- scheme -*-
; object definitions ...
(define-object FingerScroll
  (in-module "Moko")
  (parent "GtkEventBox")
  (c-name "MokoFingerScroll")
  (gtype-id "MOKO_TYPE_FINGER_SCROLL")
)

;; Enumerations and flags ...

(define-enum FingerScrollMode
  (in-module "Moko")
  (c-name "MokoFingerScrollMode")
  (gtype-id "MOKO_TYPE_FINGER_SCROLL_MODE")
  (values
    '("push" "MOKO_FINGER_SCROLL_MODE_PUSH")
    '("accel" "MOKO_FINGER_SCROLL_MODE_ACCEL")
    '("auto" "MOKO_FINGER_SCROLL_MODE_AUTO")
  )
)

(define-enum FingerScrollIndicatorMode
  (in-module "Moko")
  (c-name "MokoFingerScrollIndicatorMode")
  (gtype-id "MOKO_TYPE_FINGER_SCROLL_INDICATOR_MODE")
  (values
    '("auto" "MOKO_FINGER_SCROLL_INDICATOR_MODE_AUTO")
    '("show" "MOKO_FINGER_SCROLL_INDICATOR_MODE_SHOW")
    '("hide" "MOKO_FINGER_SCROLL_INDICATOR_MODE_HIDE")
  )
)


;; From moko-finger-scroll.h

(define-function moko_finger_scroll_get_type
  (c-name "moko_finger_scroll_get_type")
  (return-type "GType")
)

(define-function moko_finger_scroll_new
  (c-name "moko_finger_scroll_new")
  (is-constructor-of "MokoFingerScroll")
  (return-type "GtkWidget*")
)

(define-function moko_finger_scroll_new_full
  (c-name "moko_finger_scroll_new_full")
  (return-type "GtkWidget*")
  (parameters
    '("gint" "mode")
    '("gboolean" "enabled")
    '("gdouble" "vel_min")
    '("gdouble" "vel_max")
    '("gdouble" "decel")
    '("guint" "sps")
  )
)

(define-method add_with_viewport
  (of-object "MokoFingerScroll")
  (c-name "moko_finger_scroll_add_with_viewport")
  (return-type "none")
  (parameters
    '("GtkWidget*" "child")
  )
)