gtk/gtk.base-classes.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (scale-get-layout "gtk_scale_get_layout") g-object
   4   (scale (g-object scale)))
   5
   6 (export 'scale-get-layout)
   7
   8 (defcfun gtk-scale-get-layout-offsets :void
   9   (scale (g-object scale))
  10   (x (:pointer :int))
  11   (y (:pointer :int)))
  12
  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))))
  17
  18 (export 'scale-get-layout-offsets)
  19
  20 (defcfun (scale-add-mark "gtk_scale_add_mark") :void
  21   (scale (g-object scale))
  22   (value :double)
  23   (position position-type)
  24   (markup :string))
  25
  26 (export 'scale-add-mark)
  27
  28 (defcfun (scale-clear-marks "gtk_scale_clear_marks") :void
  29   (scale (g-object scale)))
  30
  31 (export 'scale-clear-marks)