3 (defcfun (scale-get-layout "gtk_scale_get_layout") g-object
4 (scale (g-object scale)))
6 (export 'scale-get-layout)
8 (defcfun gtk-scale-get-layout-offsets :void
9 (scale (g-object scale))
13 (defun scale-get-layout-offsets (scale)
14 (with-foreign-objects ((x :int) (y :int))
15 (gtk-scale-get-layout-offsets scale x y)
16 (values (mem-ref x :int) (mem-ref y :int))))
18 (export 'scale-get-layout-offsets)
20 (defcfun (scale-add-mark "gtk_scale_add_mark") :void
21 (scale (g-object scale))
23 (position position-type)
26 (export 'scale-add-mark)
28 (defcfun (scale-clear-marks "gtk_scale_clear_marks") :void
29 (scale (g-object scale)))
31 (export 'scale-clear-marks)