[gtk-cffi-cvs] CVS gtk-cffi/gtk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gtk
In directory tiger.common-lisp.net:/tmp/cvs-serv28908

Added Files:
	scale.lisp 
Log Message:
GtkScale



--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/scale.lisp	2012/08/19 15:44:44	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/scale.lisp	2012/08/19 15:44:44	1.1
;;;
;;; scale.lisp -- GtkScale
;;;
;;; Copyright (C) 2012, Roman Klochkov <kalimehtar at mail.ru>
;;;
(in-package :gtk-cffi)

(defclass scale (range)
  ())

(defcfun gtk-scale-new :pointer)
(defcfun gtk-scale-new-with-range :pointer)

(defmethod gconstructor ((scale scale) &key range &allow-other-keys)
  (if range
      (gtk-scale-new-with-range range)
      (gtk-scale-new)))

(defslots scale
  digits :int
  draw-value :boolean
  has-origin :boolean
  value-pos position-type)

(deffuns scale
  (:get layout pobject)
  (add-mark :void (value :double) (position position-type) (markup :string))
  (clear-marks :void))

(defcfun gtk-scale-get-layout-offsets :void (entry pobject) 
         (x :pointer) (y :pointer))

(defmethod layout-offsets ((scale scale))
  (with-foreign-outs-list ((x :int) (y :int)) :ignore
    (gtk-scale-get-layout-offsets scale x y)))

(init-slots scale)