X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.base-classes.lisp;h=c5ec8d383e5ea454870226b020b8ed242dbeff9a;hb=47b0bf2bfd057e9b409957e8e5cb2241e2fa6573;hp=0d38a0d40dae8092e6384ecf265cc137a22efa7c;hpb=0d03b82a77743d2ea5ef69bea08735fa12857d92;p=cl-gtk2.git

diff --git a/gtk/gtk.base-classes.lisp b/gtk/gtk.base-classes.lisp
index 0d38a0d..c5ec8d3 100644
--- a/gtk/gtk.base-classes.lisp
+++ b/gtk/gtk.base-classes.lisp
@@ -1,2 +1,31 @@
 (in-package :gtk)
 
+(defcfun (scale-get-layout "gtk_scale_get_layout") g-object
+  (scale (g-object scale)))
+
+(export 'scale-get-layout)
+
+(defcfun gtk-scale-get-layout-offsets :void
+  (scale (g-object scale))
+  (x (:pointer :int))
+  (y (:pointer :int)))
+
+(defun scale-get-layout-offsets (scale)
+  (with-foreign-objects ((x :int) (y :int))
+    (gtk-scale-get-layout-offsets scale x y)
+    (values (mem-ref x :int) (mem-ref y :int))))
+
+(export 'scale-get-layout-offsets)
+
+(defcfun (scale-add-mark "gtk_scale_add_mark") :void
+  (scale (g-object scale))
+  (value :double)
+  (position position-type)
+  (markup :string))
+
+(export 'scale-add-mark)
+
+(defcfun (scale-clear-marks "gtk_scale_clear_marks") :void
+  (scale (g-object scale)))
+
+(export 'scale-clear-marks)