inline-wrappers.lisp @@ -1,13 +1,13 @@ (in-package :cffi-clutter) (defun g-type-for-object-property (object property) - (let ((param-spec (%g-object-class-find-property + (let ((param-spec (g-object-class-find-property (foreign-slot-value object 'g-type-instance 'g-class) property))) - (if (null-pointer-p) + (if (null-pointer-p object) (error "Object ~a of type ~a does not have property ~s" object - (%g-type-name (g-type-from-instance object)) + (g-type-name (g-type-from-instance object)) property) (foreign-slot-value param-spec 'g-param-spec 'value-type)))) @@ -28,10 +28,10 @@ do (foreign-string-free (mem-aref string-array :pointer i))))))))) (defun animate-actor (actor mode duration &rest properties) - (call-with-properties (curry #'%actor-animatev actor mode duration) actor properties)) + (call-with-properties (curry #'actor-animatev actor mode duration) actor properties)) (defun animate-actor-with-timeline (actor mode timeline &rest properties) - (call-with-properties (curry #'%actor-animate-with-timelinev actor mode timeline) actor properties)) + (call-with-properties (curry #'actor-animate-with-timelinev actor mode timeline) actor properties)) (defun animate-actor-with-alpha (actor alpha &rest properties) - (call-with-properties (curry #'%actor-animate-with-alphav actor alpha) actor properties)) + (call-with-properties (curry #'actor-animate-with-alphav actor alpha) actor properties)) animations.lisp @@ -74,12 +74,12 @@ (unregister-lisp-callback data)) (defun g-signal-connect (instance detailed-signal c-handler &key (data nil) (destroy-data nil) (flags nil)) - (%g-signal-connect-data instance - detailed-signal - c-handler - (if data data (null-pointer)) - (if destroy-data destroy-data (null-pointer)) - flags)) + (g-signal-connect-data instance + detailed-signal + c-handler + (if data data (null-pointer)) + (if destroy-data destroy-data (null-pointer)) + flags)) (defun connect-lisp-handler (instance detailed-signal lisp-handler c-dispatch &key (flags nil)) (let ((foreign-counter (register-lisp-callback lisp-handler c-dispatch))) @@ -112,7 +112,7 @@ (defun disconnect-lisp-signals (instance &optional (callbacks *lisp-signal-wrappers*)) (dolist (c-dispatch (ensure-list callbacks)) - (%g-signal-handlers-disconnect-matched + (g-signal-handlers-disconnect-matched instance :func 0 @@ -125,7 +125,7 @@ "Disconnect signal using Lisp side callback number (returned by connect function)" (destructuring-bind ((lisp-handler . c-dispatch) n counter) (resource-meta-by-number callback-number) (declare (ignore lisp-handler n)) - (%g-signal-handlers-disconnect-matched + (g-signal-handlers-disconnect-matched instance '(:func :data) 0 @@ -148,36 +148,36 @@ (defun add-idle (idle-function &key (priority +priority-default-idle+)) (let ((foreign-counter (register-lisp-callback idle-function (callback source-callback)))) - (%threads-add-idle-full priority - (callback source-callback) - foreign-counter - (callback destroy-notify-callback)))) + (threads-add-idle-full priority + (callback source-callback) + foreign-counter + (callback destroy-notify-callback)))) (defun add-timeout (timeout-function interval &key (priority +priority-default+)) - (let ((foreign-counter (register-lisp-callback timeout-function (callback source-callback)))) - (%threads-add-timeout-full priority - interval - (callback source-callback) - foreign-counter - (callback destroy-notify-callback)))) + (let ((foreign-counter (register-lisp-callback timeout-function (callback source-callback)))) + (threads-add-timeout-full priority + interval + (callback source-callback) + foreign-counter + (callback destroy-notify-callback)))) (defun add-frame-source (frame-source-function fps &key (priority +priority-default+)) (let ((foreign-counter (register-lisp-callback frame-source-function (callback source-callback)))) - (%threads-add-frame-source-full priority - fps - (callback source-callback) - foreign-counter - (callback destroy-notify-callback)))) + (threads-add-frame-source-full priority + fps + (callback source-callback) + foreign-counter + (callback destroy-notify-callback)))) (defun add-repaint-function (repaint-function) (let ((foreign-counter (register-lisp-callback repaint-function (callback source-callback)))) - (%threads-add-repaint-func (callback source-callback) + (threads-add-repaint-func (callback source-callback) foreign-counter (callback destroy-notify-callback)))) (defun remove-repaint-function (function-id) - (%threads-remove-repaint-func function-id)) + (threads-remove-repaint-func function-id)) ;; alpha functions @@ -187,18 +187,18 @@ (defun alpha-new-with-function (timeline function) (let ((foreign-counter (register-lisp-callback function (callback alpha-callback)))) - (%alpha-new-with-func timeline - (callback alpha-callback) - foreign-counter - (callback destroy-notify-callback)))) + (alpha-new-with-func timeline + (callback alpha-callback) + foreign-counter + (callback destroy-notify-callback)))) (defun alpha-set-function (alpha function) (let ((foreign-counter (register-lisp-callback function (callback alpha-callback)))) - (%alpha-set-func alpha - (callback alpha-callback) - foreign-counter - (callback destroy-notify-callback)))) + (alpha-set-func alpha + (callback alpha-callback) + foreign-counter + (callback destroy-notify-callback)))) (defun alpha-register-function (function) (let ((foreign-counter (register-lisp-callback function (callback alpha-callback)))) - (%alpha-register-func (callback alpha-callback) foreign-counter))) + (alpha-register-func (callback alpha-callback) foreign-counter))) callbacks.lisp @@ -11,12 +11,13 @@ :components ((:file "package") (cffi-grovel:grovel-file "grovel" :depends-on ("package")) (:file "bindings" :depends-on ("package" "grovel")) - (:file "g-values" :depends-on ("package" "grovel" "bindings")) - (:file "wrappers" :depends-on ("package" "grovel" "bindings" "callbacks")) + (:file "inline-wrappers" :depends-on ("package" "grovel" "bindings")) + (:file "g-values" :depends-on ("package" "grovel" "inline-wrappers")) + (:file "wrappers" :depends-on ("package" "grovel" "bindings" "callbacks" "inline-wrappers")) (:file "resource" :depends-on ("package")) - (:file "callbacks" :depends-on ("package" "grovel" "bindings" "resource")) - (:file "gobject-subclass" :depends-on ("package" "grovel" "bindings" "resource" "wrappers")) - (:file "animations" :depends-on ("package" "grovel" "bindings" "wrappers" "callbacks" "g-values")))) + (:file "callbacks" :depends-on ("package" "grovel" "inline-wrappers" "resource")) + (:file "gobject-subclass" :depends-on ("package" "grovel" "resource" "wrappers" "inline-wrappers")) + (:file "animations" :depends-on ("package" "grovel" "wrappers" "callbacks" "g-values")))) cffi-clutter.asd @@ -14,20 +14,20 @@ (defcallback lisp-group-paint :void ((actor :pointer)) - (mapc #'%actor-paint (children-of (lisp-actor-resource actor)))) + (mapc #'actor-paint (children-of (lisp-actor-resource actor)))) (defcallback lisp-group-pick :void ((actor :pointer) (color :pointer)) (foreign-funcall-pointer (foreign-slot-value *lisp-group-parent-class* 'actor-class 'pick) () :pointer actor :pointer color) - (mapc #'%actor-paint (children-of (lisp-actor-resource actor)))) + (mapc #'actor-paint (children-of (lisp-actor-resource actor)))) (defun fixed-layout-get-preferred-width (children) (let ((min-left 0.0) (min-right 0.0) (natural-left 0.0) (natural-right 0.0)) (iter (for child in children) - (for child-x = (%actor-get-x child)) + (for child-x = (actor-get-x child)) (for (values child-min nil child-natural nil) = (get-preferred-size child)) (if (first-iteration-p) (setf min-left child-x @@ -50,7 +50,7 @@ (let ((min-top 0.0) (min-bottom 0.0) (natural-top 0.0) (natural-bottom 0.0)) (iter (for child in children) - (for child-y = (%actor-get-y child)) + (for child-y = (actor-get-y child)) (for (values nil child-min nil child-natural) = (get-preferred-size child)) (if (first-iteration-p) (setf min-top child-y @@ -70,7 +70,7 @@ (- (max natural-bottom 0.0) (max natural-top 0.0)))))))) (defun fixed-layout-allocate (children flags) - (mapc (rcurry #'%actor-allocate-preferred-size flags) children)) + (mapc (rcurry #'actor-allocate-preferred-size flags) children)) (defcallback lisp-group-preferred-width :void ((self :pointer) (for-height :float) (min-width-pointer :pointer) (natural-width-pointer :pointer)) @@ -97,7 +97,7 @@ (defcallback lisp-group-dispose :void ((object :pointer)) - (mapc #'%actor-destroy (children-of (lisp-actor-resource object))) + (mapc #'actor-destroy (children-of (lisp-actor-resource object))) (setf (children-of (lisp-actor-resource object)) nil) (foreign-funcall-pointer (foreign-slot-value *lisp-group-parent-class* 'g-object-class 'dispose) () @@ -105,42 +105,42 @@ (defcallback lisp-group-real-show-all :void ((actor :pointer)) - (mapc #'%actor-show (children-of (lisp-actor-resource actor))) - (%actor-show actor)) + (mapc #'actor-show (children-of (lisp-actor-resource actor))) + (actor-show actor)) (defcallback lisp-group-real-hide-all :void ((actor :pointer)) - (%actor-hide actor) - (mapc #'%actor-hide (children-of (lisp-actor-resource actor)))) + (actor-hide actor) + (mapc #'actor-hide (children-of (lisp-actor-resource actor)))) (defcallback lisp-group-real-add :void ((container :pointer) (actor :pointer)) - (%g-object-ref actor) + (g-object-ref actor) (let ((aux (lisp-actor-resource container))) (setf (children-of aux) (append (children-of aux) (list actor)))) - (%actor-set-parent actor container) - (%actor-queue-relayout container) + (actor-set-parent actor container) + (actor-queue-relayout container) (foreign-funcall "g_signal_emit_by_name" :pointer container :string "actor-added" :pointer actor) - (%container-sort-depth-order container) - (%g-object-unref actor)) + (container-sort-depth-order container) + (g-object-unref actor)) (defcallback lisp-group-real-remove :void ((container :pointer) (actor :pointer)) - (%g-object-ref actor) + (g-object-ref actor) (let ((aux (lisp-actor-resource container))) (setf (children-of aux) (remove actor (children-of aux))) - (%actor-unparent actor) - (%actor-queue-relayout container) + (actor-unparent actor) + (actor-queue-relayout container) (foreign-funcall "g_signal_emit_by_name" :pointer container :string "actor-removed" :pointer actor) - (when (member :visible (ensure-list (%actor-get-flags actor))) - (%actor-queue-redraw container)) - (%g-object-unref actor))) + (when (member :visible (ensure-list (actor-get-flags actor))) + (actor-queue-redraw container)) + (g-object-unref actor))) (defcallback lisp-group-real-foreach :void ((container :pointer) (callback function-pointer) (user-data :pointer)) @@ -159,11 +159,11 @@ (collect child) (when (pointer-eq child sibling) (collect actor)))))) - (if (/= (%actor-get-depth sibling) - (%actor-get-depth actor)) - (%actor-set-depth actor (%actor-get-depth sibling))) - (when (member :visible (ensure-list (%actor-get-flags actor))) - (%actor-queue-redraw container)))) + (if (/= (actor-get-depth sibling) + (actor-get-depth actor)) + (actor-set-depth actor (actor-get-depth sibling))) + (when (member :visible (ensure-list (actor-get-flags actor))) + (actor-queue-redraw container)))) (defcallback lisp-group-real-lower :void ((container :pointer) (actor :pointer) (sibling :pointer)) @@ -176,19 +176,19 @@ (when (pointer-eq child sibling) (collect actor)) (collect child))))) - (if (/= (%actor-get-depth sibling) - (%actor-get-depth actor)) - (%actor-set-depth actor (%actor-get-depth sibling))) - (when (member :visible (ensure-list (%actor-get-flags actor))) - (%actor-queue-redraw container)))) + (if (/= (actor-get-depth sibling) + (actor-get-depth actor)) + (actor-set-depth actor (actor-get-depth sibling))) + (when (member :visible (ensure-list (actor-get-flags actor))) + (actor-queue-redraw container)))) (defcallback lisp-group-real-sort-depth-order :void ((container :pointer)) (let ((aux (lisp-actor-resource container))) (setf (children-of aux) - (sort (children-of aux) #'< :key #'%actor-get-depth)) - (when (member :visible (ensure-list (%actor-get-flags container))) - (%actor-queue-redraw container)))) + (sort (children-of aux) #'< :key #'actor-get-depth)) + (when (member :visible (ensure-list (actor-get-flags container))) + (actor-queue-redraw container)))) (defcallback lisp-group-container-iface-init :void ((iface :pointer)) @@ -202,7 +202,7 @@ (defcallback lisp-group-class-init :void ((g-class :pointer)) - (setf *lisp-group-parent-class* (%g-type-class-peek (get-g-type 'lisp-actor "LispClutterActor"))) + (setf *lisp-group-parent-class* (g-type-class-peek (get-g-type 'lisp-actor "LispClutterActor"))) (with-foreign-slots ((dispose) g-class g-object-class) (setf dispose (callback lisp-group-dispose))) (with-foreign-slots ((paint pick show-all hide-all get-preferred-width get-preferred-height allocate) @@ -224,11 +224,11 @@ (values)) (defun lisp-group-new () - (%g-object-newv (get-g-type 'lisp-group "LispClutterGroup") 0 (null-pointer))) + (g-object-newv (get-g-type 'lisp-group "LispClutterGroup") 0 (null-pointer))) (defun lisp-group-remove-all (group) (let ((children (copy-list (children-of (lisp-actor-resource group))))) - (mapc (curry #'%container-remove-actor group) children))) + (mapc (curry #'container-remove-actor group) children))) (defun lisp-group-get-n-children (group) (length (children-of (lisp-actor-resource group)))) @@ -238,7 +238,7 @@ (defun register-lisp-group () (unless (get-g-type 'lisp-group "LispClutterGroup") - (%g-type-register-static-simple + (g-type-register-static-simple (get-g-type 'lisp-actor "LispClutterActor") "LispClutterGroup" (foreign-type-size 'lisp-actor-class) @@ -251,7 +251,7 @@ (setf interface-init (callback lisp-group-container-iface-init) interface-finalize (null-pointer) interface-data (null-pointer)) - (%g-type-add-interface-static + (g-type-add-interface-static (get-g-type 'lisp-group "LispClutterGroup") (get-g-type 'container-iface "ClutterContainer") iface-info)))) @@ -264,29 +264,29 @@ (init-clutter) (register-triangle) (register-lisp-group) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) (let ((group (lisp-group-new)) (triangle (make-subclassed-triangle 0 0 255 255)) (triangle2 (make-subclassed-triangle)) - (timeline (%timeline-new 5000))) - (%actor-set-size triangle 60.0 60.0) - (%actor-set-position triangle 20.0 20.0) - (%container-add-actor group triangle) - (%actor-show triangle) - (%actor-set-size triangle2 20.0 20.0) - (%actor-set-position triangle2 40.0 40.0) - (%container-add-actor group triangle2) - (%actor-show triangle2) - (%timeline-set-loop timeline +true+) - (%timeline-start timeline) - (%container-add-actor stage group) - (%actor-set-position group 100.0 100.0) - (let ((alpha (%alpha-new-full timeline (animation-mode :linear)))) - (let ((behave (%behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0))) - (%behaviour-apply behave group) + (timeline (timeline-new 5000))) + (actor-set-size triangle 60.0 60.0) + (actor-set-position triangle 20.0 20.0) + (container-add-actor group triangle) + (actor-show triangle) + (actor-set-size triangle2 20.0 20.0) + (actor-set-position triangle2 40.0 40.0) + (container-add-actor group triangle2) + (actor-show triangle2) + (timeline-set-loop timeline +true+) + (timeline-start timeline) + (container-add-actor stage group) + (actor-set-position group 100.0 100.0) + (let ((alpha (alpha-new-full timeline (animation-mode :linear)))) + (let ((behave (behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0))) + (behaviour-apply behave group) (main-with-cleanup stage timeline behave))))))) ;;; Using lisp-group layout container can be made just by overriding get-preferred-width, @@ -345,12 +345,12 @@ (make-instance 'layout-group-aux)))) (defun layout-group-new () - (%g-object-newv (get-g-type 'layout-group "LayoutClutterGroup") 0 (null-pointer))) + (g-object-newv (get-g-type 'layout-group "LayoutClutterGroup") 0 (null-pointer))) (defun register-layout-group () (unless (get-g-type 'layout-group "LayoutClutterGroup") (register-lisp-group) - (%g-type-register-static-simple + (g-type-register-static-simple (get-g-type 'lisp-group "LispClutterGroup") "LayoutClutterGroup" (foreign-type-size 'lisp-actor-class) @@ -365,29 +365,29 @@ (init-clutter) (register-triangle) (register-layout-group) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) (let ((group (layout-group-new)) (triangle (make-subclassed-triangle 0 0 255 255)) (triangle2 (make-subclassed-triangle)) - (timeline (%timeline-new 5000))) - (%actor-set-size triangle 60.0 60.0) - (%actor-set-position triangle 20.0 20.0) - (%container-add-actor group triangle) - (%actor-show triangle) - (%actor-set-size triangle2 20.0 20.0) - (%actor-set-position triangle2 40.0 40.0) - (%container-add-actor group triangle2) - (%actor-show triangle2) - (%timeline-set-loop timeline +true+) - (%timeline-start timeline) - (%container-add-actor stage group) - (%actor-set-position group 100.0 100.0) - (let ((alpha (%alpha-new-full timeline (animation-mode :linear)))) - (let ((behave (%behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0))) - (%behaviour-apply behave group) + (timeline (timeline-new 5000))) + (actor-set-size triangle 60.0 60.0) + (actor-set-position triangle 20.0 20.0) + (container-add-actor group triangle) + (actor-show triangle) + (actor-set-size triangle2 20.0 20.0) + (actor-set-position triangle2 40.0 40.0) + (container-add-actor group triangle2) + (actor-show triangle2) + (timeline-set-loop timeline +true+) + (timeline-start timeline) + (container-add-actor stage group) + (actor-set-position group 100.0 100.0) + (let ((alpha (alpha-new-full timeline (animation-mode :linear)))) + (let ((behave (behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0))) + (behaviour-apply behave group) (main-with-cleanup stage timeline behave))))))) ;;; Now new layout classes can be made just by overriding class-init to set appropriate resource examples/container.lisp @@ -18,12 +18,12 @@ (defcallback triangle-paint :void ((triangle :pointer)) (destructuring-bind (r g b a) (get-color (foreign-slot-value triangle 'triangle 'color)) - (let ((paint-opacity (%actor-get-paint-opacity triangle))) + (let ((paint-opacity (actor-get-paint-opacity triangle))) (paint-triangle-with-color triangle r g b (truncate (* paint-opacity a) 255))))) (defcallback triangle-pick :void ((triangle :pointer) (color :pointer)) - (when (eql +true+ (%actor-should-pick-paint triangle)) + (when (eql +true+ (actor-should-pick-paint triangle)) (destructuring-bind (r g b a) (get-color color) (paint-triangle-with-color triangle r g b a)))) @@ -35,20 +35,20 @@ (ecase (triangle-prop-id prop-id) (:color (apply #'set-color (foreign-slot-value object 'triangle 'color) - (get-color (%value-get-color value))) - (%g-object-notify object "color")))) + (get-color (value-get-color value))) + (g-object-notify object "color")))) (defcallback triangle-get-property :void ((object :pointer) (prop-id guint) (value (:pointer g-value)) (pspec (:pointer g-param-spec))) (declare (ignore pspec)) (ecase (triangle-prop-id prop-id) (:color - (%value-set-color value (foreign-slot-value object 'triangle 'color))))) + (value-set-color value (foreign-slot-value object 'triangle 'color))))) -(defvar *default-triangle-color* (make-color 255 255 255 255)) +(defvar *default-triangle-color* (color-new 255 255 255 255)) ;; callbacks change address when redefined -;; use something like: (attach-triangle-callbacks (%g-type-class-peek (get-g-type 'triangle "CustomClutterTriangle"))) +;; use something like: (attach-triangle-callbacks (g-type-class-peek (get-g-type 'triangle "CustomClutterTriangle"))) ;; to reconnect (defun attach-triangle-callbacks (g-class) (setf (foreign-slot-value g-class 'actor-class 'paint) (callback triangle-paint) @@ -60,12 +60,12 @@ ((g-class :pointer) (data :pointer)) (declare (ignore data)) (attach-triangle-callbacks g-class) - (let ((pspec (%param-spec-color "color" + (let ((pspec (param-spec-color "color" "Color" "The color of the triangle" *default-triangle-color* '(:readable :writable)))) - (%g-object-class-install-property g-class (triangle-prop-symbol :color) pspec))) + (g-object-class-install-property g-class (triangle-prop-symbol :color) pspec))) (defcallback triangle-instance-init :void ((self :pointer) (g-class :pointer)) @@ -78,7 +78,7 @@ (defun register-triangle () (unless (get-g-type 'triangle *triangle-g-name*) - (%g-type-register-static-simple + (g-type-register-static-simple (get-g-type 'actor "ClutterActor") *triangle-g-name* (foreign-type-size 'actor-class) @@ -97,52 +97,52 @@ (setf (mem-aref g-param :uint8 i) 0)) (with-foreign-string (param-name "color") (let ((g-value (foreign-slot-pointer g-param 'g-parameter 'value))) - (%g-value-init g-value (get-g-type 'color "ClutterColor")) + (g-value-init g-value (get-g-type 'color "ClutterColor")) (with-color (color r g b a) - (%value-set-color g-value color) + (value-set-color g-value color) (setf (foreign-slot-value g-param 'g-parameter 'name) param-name) - (%g-object-newv g-type 1 g-param)))))) - (%g-object-newv g-type 0 (null-pointer))))) + (g-object-newv g-type 1 g-param)))))) + (g-object-newv g-type 0 (null-pointer))))) (defun subclass-example () (with-colors ((stage-color 0 0 0)) (init-clutter) (register-triangle) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) (let ((triangle (make-subclassed-triangle 0 0 255 255)) (triangle2 (make-subclassed-triangle)) - (timeline (%timeline-new 5000))) - (%actor-set-size triangle 60.0 60.0) - (%actor-set-position triangle 100.0 100.0) - (%container-add-actor stage triangle) - (%actor-set-reactive triangle +true+) + (timeline (timeline-new 5000))) + (actor-set-size triangle 60.0 60.0) + (actor-set-position triangle 100.0 100.0) + (container-add-actor stage triangle) + (actor-set-reactive triangle +true+) ;;check if picking picks correctly (connect-event-handler triangle "button-press-event" #'(lambda (actor event) (declare (ignore actor event)) (format t "Triangle is here!~&"))) - (%actor-show triangle) - (%actor-set-size triangle2 20.0 20.0) - (%actor-set-position triangle2 40.0 40.0) - (%container-add-actor stage triangle2) - (%actor-show triangle2) - (%timeline-set-loop timeline +true+) - (%timeline-start timeline) - (let ((alpha (%alpha-new-full timeline (animation-mode :linear))) + (actor-show triangle) + (actor-set-size triangle2 20.0 20.0) + (actor-set-position triangle2 40.0 40.0) + (container-add-actor stage triangle2) + (actor-show triangle2) + (timeline-set-loop timeline +true+) + (timeline-start timeline) + (let ((alpha (alpha-new-full timeline (animation-mode :linear))) (alpha2 (alpha-new-with-function timeline #'(lambda (alpha) (expt (sin (* 2 pi - (%timeline-get-progress - (%alpha-get-timeline alpha)))) + (timeline-get-progress + (alpha-get-timeline alpha)))) 2))))) - (let ((behave (%behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0)) - (behave2 (%behaviour-opacity-new alpha2 0 255))) - (%behaviour-apply behave triangle) - (%behaviour-apply behave triangle2) - (%behaviour-apply behave2 triangle) + (let ((behave (behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0)) + (behave2 (behaviour-opacity-new alpha2 0 255))) + (behaviour-apply behave triangle) + (behaviour-apply behave triangle2) + (behaviour-apply behave2 triangle) (main-with-cleanup stage timeline behave behave2))))))) examples/subclass.lisp @@ -7,35 +7,35 @@ (defclass clutter-triangle () ((color :accessor color-of :initform (list 1.0 1.0 1.0 1.0) :initarg :color) - (actor :accessor actor-of :initform (%rectangle-new) :initarg :actor))) + (actor :accessor actor-of :initform (rectangle-new) :initarg :actor))) (defun paint-triangle-with-color (actor r g b a) - (when (eql +true+ (%actor-get-paint-visibility actor)) + (when (eql +true+ (actor-get-paint-visibility actor)) (multiple-value-bind (w h) (get-size actor) - (%cogl-push-matrix) - (%cogl-set-source-color4ub r g b a) - (%cogl-path-new) - (%cogl-path-move-to 0.0 0.0) - (%cogl-path-line-to w 0.0) - (%cogl-path-line-to w h) - (%cogl-path-close) - (%cogl-path-fill) - (%cogl-pop-matrix)))) + (cogl-push-matrix) + (cogl-set-source-color4ub r g b a) + (cogl-path-new) + (cogl-path-move-to 0.0 0.0) + (cogl-path-line-to w 0.0) + (cogl-path-line-to w h) + (cogl-path-close) + (cogl-path-fill) + (cogl-pop-matrix)))) (defun paint-triangle (actor) (with-color (color 0 0 0 0) - (%rectangle-get-color actor color) + (rectangle-get-color actor color) (destructuring-bind (r g b a) (get-color color) - (let ((paint-opacity (%actor-get-paint-opacity actor))) + (let ((paint-opacity (actor-get-paint-opacity actor))) (paint-triangle-with-color actor r b g (truncate (* paint-opacity a) 255))))) - ;(%g-signal-stop-emission-by-name actor "paint") + ;(g-signal-stop-emission-by-name actor "paint") ) (defun pick-triangle (actor color) - (when (eql +true+ (%actor-should-pick-paint actor)) + (when (eql +true+ (actor-should-pick-paint actor)) (destructuring-bind (r g b a) (get-color color) (paint-triangle-with-color actor r g b a)) - (%g-signal-stop-emission-by-name actor "pick"))) + (g-signal-stop-emission-by-name actor "pick"))) (defun make-triangle (r g b a) (let ((instance (make-instance 'clutter-triangle :color (list r g b a)))) @@ -45,35 +45,35 @@ (connect-one-pointer-signal actor "paint" #'paint-triangle :flags :after) (connect-two-pointer-signal actor "pick" #'pick-triangle) (with-color (color r g b a) - (%rectangle-set-color actor color))) + (rectangle-set-color actor color))) instance)) (defun triangle-example () (with-colors ((stage-color 0 0 0)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) (let ((triangle (make-triangle 0 0 255 255)) - (timeline (%timeline-new 5000))) - (%actor-set-size (actor-of triangle) 60.0 60.0) - (%actor-set-position (actor-of triangle) 100.0 100.0) - (%container-add-actor stage (actor-of triangle)) - (%actor-set-reactive (actor-of triangle) +true+) + (timeline (timeline-new 5000))) + (actor-set-size (actor-of triangle) 60.0 60.0) + (actor-set-position (actor-of triangle) 100.0 100.0) + (container-add-actor stage (actor-of triangle)) + (actor-set-reactive (actor-of triangle) +true+) ;; check if picking picks correctly (connect-event-handler (actor-of triangle) "button-press-event" #'(lambda (actor event) (declare (ignore actor event)) (format t "Triangle is here!~&"))) - (%actor-show (actor-of triangle)) - (%timeline-set-loop timeline +true+) - (%timeline-start timeline) + (actor-show (actor-of triangle)) + (timeline-set-loop timeline +true+) + (timeline-start timeline) (let ((alpha (alpha-new-with-function timeline #'(lambda (alpha) - (%timeline-get-progress - (%alpha-get-timeline alpha)))))) - (let ((behave (%behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0))) - (%behaviour-apply behave (actor-of triangle)) + (timeline-get-progress + (alpha-get-timeline alpha)))))) + (let ((behave (behaviour-rotate-new alpha :z-axis :rotate-cw 0d0 360d0))) + (behaviour-apply behave (actor-of triangle)) (main-with-cleanup stage timeline behave))))))) examples/triangle.lisp @@ -14,11 +14,11 @@ (defun chapter-4 () (with-color (stage-color 0 0 0 255) (init-clutter) - (let ((stage (%stage-get-default))) + (let ((stage (stage-get-default))) ;; in case other examples were run before - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) (connect-event-handler stage "button-press-event" #'chapter-4-on-stage-button-press) (main-with-cleanup stage)))) @@ -26,70 +26,70 @@ (with-colors ((stage-color 0 0 0) (actor-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((rect (%rectangle-new-with-color actor-color)) - (label (%text-new-full "Sans 12" "Some Text" actor-color))) - (%actor-set-size rect 100.0 100.0) - (%actor-set-position rect 20.0 20.0) - (%container-add-actor stage rect) - (%actor-show rect) - (%actor-set-size label 500.0 500.0) - (%actor-set-position label 20.0 150.0) - (%container-add-actor stage label) - (%actor-show label)) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((rect (rectangle-new-with-color actor-color)) + (label (text-new-full "Sans 12" "Some Text" actor-color))) + (actor-set-size rect 100.0 100.0) + (actor-set-position rect 20.0 20.0) + (container-add-actor stage rect) + (actor-show rect) + (actor-set-size label 500.0 500.0) + (actor-set-position label 20.0 150.0) + (container-add-actor stage label) + (actor-show label)) (main-with-cleanup stage)))) (defun chapter-5-2 () (with-colors ((stage-color 0 0 0) (actor-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((rect (%rectangle-new-with-color actor-color)) - (label (%text-new-full "Sans 12" "Some Text" actor-color))) - (%actor-set-size rect 100.0 100.0) - (%actor-set-position rect 20.0 20.0) - (%container-add-actor stage rect) - (%actor-show rect) - (%actor-set-rotation rect :x-axis -20d0 0.0 0.0 0.0) - (%actor-set-size label 500.0 500.0) - (%actor-set-position label 20.0 150.0) - (%container-add-actor stage label) - (%actor-show label) - (%actor-set-scale label 3d0 1d0) - (%actor-move-by label 10.0 -10.0) - (%actor-set-depth label -20.0)) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((rect (rectangle-new-with-color actor-color)) + (label (text-new-full "Sans 12" "Some Text" actor-color))) + (actor-set-size rect 100.0 100.0) + (actor-set-position rect 20.0 20.0) + (container-add-actor stage rect) + (actor-show rect) + (actor-set-rotation rect :x-axis -20d0 0.0 0.0 0.0) + (actor-set-size label 500.0 500.0) + (actor-set-position label 20.0 150.0) + (container-add-actor stage label) + (actor-show label) + (actor-set-scale label 3d0 1d0) + (actor-move-by label 10.0 -10.0) + (actor-set-depth label -20.0)) (main-with-cleanup stage)))) (defun chapter-5-3 () (with-colors ((stage-color 0 0 0) (actor-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((group (%group-new))) - (%actor-set-position group 40.0 40.0) - (%container-add-actor stage group) - (%actor-show group) - (let ((rect (%rectangle-new-with-color actor-color)) - (label (%text-new-full "Sans 9" "Some Text" actor-color))) - (%actor-set-size rect 50.0 50.0) - (%actor-set-position rect 0.0 0.0) - (%container-add-actor group rect) - (%actor-show rect) - (%actor-set-size label 500.0 500.0) - (%actor-set-position label 0.0 60.0) - (%container-add-actor group label) - (%actor-show label)) - (%actor-set-scale group 3d0 1d0) - (%actor-set-rotation group :z-axis 10d0 0.0 0.0 0.0)) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((group (group-new))) + (actor-set-position group 40.0 40.0) + (container-add-actor stage group) + (actor-show group) + (let ((rect (rectangle-new-with-color actor-color)) + (label (text-new-full "Sans 9" "Some Text" actor-color))) + (actor-set-size rect 50.0 50.0) + (actor-set-position rect 0.0 0.0) + (container-add-actor group rect) + (actor-show rect) + (actor-set-size label 500.0 500.0) + (actor-set-position label 0.0 60.0) + (container-add-actor group label) + (actor-show label)) + (actor-set-scale group 3d0 1d0) + (actor-set-rotation group :z-axis 10d0 0.0 0.0 0.0)) (main-with-cleanup stage)))) (defun chapter-5-4-on-stage-button-press (stage event) @@ -98,7 +98,7 @@ (let ((maybe-rec (get-actor-at-position stage :all (truncate x) (truncate y)))) (cond ((null maybe-rec) nil) - ((eql (%g-type-from-name "ClutterRectangle") (g-type-from-instance maybe-rec)) + ((eql (g-type-from-name "ClutterRectangle") (g-type-from-instance maybe-rec)) (format t "A rectangle is at that position.~&") t) (t t))))) @@ -134,17 +134,17 @@ (with-colors ((stage-color 0 0 0) (actor-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) (connect-event-handler stage "button-press-event" #'chapter-5-4-on-stage-button-press) - (let ((rect (%rectangle-new-with-color actor-color))) - (%actor-set-size rect 100.0 100.0) - (%actor-set-position rect 50.0 50.0) - (%actor-show rect) - (%container-add-actor stage rect) - (%actor-set-reactive rect +true+) + (let ((rect (rectangle-new-with-color actor-color))) + (actor-set-size rect 100.0 100.0) + (actor-set-position rect 50.0 50.0) + (actor-show rect) + (container-add-actor stage rect) + (actor-set-reactive rect +true+) (connect-event-handler rect "button-press-event" #'chapter-5-4-on-rect-button-press) (connect-event-handler rect "button-release-event" #'chapter-5-4-on-rect-button-release) (connect-event-handler rect "motion-event" #'chapter-5-4-on-rect-motion) @@ -155,32 +155,32 @@ (defun make-chapter-6-1-on-new-frame (rect color-object color1 color2) #'(lambda (timeline msec) (declare (ignore msec)) - (let ((progress (%timeline-get-progress timeline))) + (let ((progress (timeline-get-progress timeline))) (let ((sin-progress (expt (sin (* pi progress)) 2))) (let ((angle (* progress 720d0)) (color (mapcar #'truncate (mapcar #'+ (mapcar (curry #'* sin-progress) color1) (mapcar (curry #'* (- 1 sin-progress)) color2))))) - (%actor-set-rotation rect :x-axis angle 0.0 0.0 0.0) + (actor-set-rotation rect :x-axis angle 0.0 0.0 0.0) (apply #'set-color color-object color) - (%rectangle-set-color rect color-object)))))) + (rectangle-set-color rect color-object)))))) (defun chapter-6-1 () (with-colors ((stage-color 0 0 0) (rect-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default)) - (timeline (%timeline-new 6000))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((rect (%rectangle-new-with-color rect-color))) - (%actor-set-size rect 70.0 70.0) - (%actor-set-position rect 50.0 100.0) - (%container-add-actor stage rect) - (%actor-show rect) - (%timeline-add-marker-at-time timeline "clutter-tutorial" 3000) + (let ((stage (stage-get-default)) + (timeline (timeline-new 6000))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((rect (rectangle-new-with-color rect-color))) + (actor-set-size rect 70.0 70.0) + (actor-set-position rect 50.0 100.0) + (container-add-actor stage rect) + (actor-show rect) + (timeline-add-marker-at-time timeline "clutter-tutorial" 3000) (connect-new-frame-handler timeline (make-chapter-6-1-on-new-frame rect rect-color @@ -190,33 +190,33 @@ #'(lambda (timeline marker-name msec) (declare (ignore timeline)) (format t "~&Reached marker ~a at time ~a msec.~&" marker-name msec))) - (%timeline-set-loop timeline +true+) - (%timeline-start timeline)) + (timeline-set-loop timeline +true+) + (timeline-start timeline)) (main-with-cleanup stage timeline)))) (defun make-chapter-6-2-on-new-frame-move (rect) #'(lambda (timeline msec) (declare (ignore msec)) - (let ((progress (%timeline-get-progress timeline))) - (%actor-set-x rect (coerce (round (+ 50 (* 50.0 (expt (sin (* 2 pi progress)) 2)))) + (let ((progress (timeline-get-progress timeline))) + (actor-set-x rect (coerce (round (+ 50 (* 50.0 (expt (sin (* 2 pi progress)) 2)))) 'single-float))))) (defun chapter-6-2 () (with-colors ((stage-color 0 0 0) (rect-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default)) - (score (%score-new)) - (timeline1 (%timeline-new 6000)) - (timeline2 (%timeline-new 6000))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((rect (%rectangle-new-with-color rect-color))) - (%actor-set-size rect 70.0 70.0) - (%actor-set-position rect 50.0 100.0) - (%container-add-actor stage rect) - (%actor-show rect) + (let ((stage (stage-get-default)) + (score (score-new)) + (timeline1 (timeline-new 6000)) + (timeline2 (timeline-new 6000))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((rect (rectangle-new-with-color rect-color))) + (actor-set-size rect 70.0 70.0) + (actor-set-position rect 50.0 100.0) + (container-add-actor stage rect) + (actor-show rect) (connect-new-frame-handler timeline1 (make-chapter-6-1-on-new-frame rect rect-color '(0 0 255 255) @@ -224,30 +224,30 @@ (connect-new-frame-handler timeline2 (make-chapter-6-2-on-new-frame-move rect)) (score-append score nil timeline1) - (%score-append score timeline1 timeline2) - (%score-set-loop score +true+) - (%score-start score)) + (score-append score timeline1 timeline2) + (score-set-loop score +true+) + (score-start score)) (main-with-cleanup stage timeline1 timeline2 score)))) (defun chapter-7 () (with-colors ((stage-color 0 0 0) (rect-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((rect (%rectangle-new-with-color rect-color)) - (timeline (%timeline-new 5000))) - (%actor-set-size rect 40.0 40.0) - (%actor-set-position rect 10.0 10.0) - (%container-add-actor stage rect) - (%actor-show rect) - (%timeline-set-loop timeline +true+) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((rect (rectangle-new-with-color rect-color)) + (timeline (timeline-new 5000))) + (actor-set-size rect 40.0 40.0) + (actor-set-position rect 10.0 10.0) + (container-add-actor stage rect) + (actor-show rect) + (timeline-set-loop timeline +true+) (let ((alpha (alpha-new-with-function timeline #'(lambda (alpha) - (%timeline-get-progress - (%alpha-get-timeline alpha)))))) + (timeline-get-progress + (alpha-get-timeline alpha)))))) ;; doesn't work in 9.6.0 due to http://bugzilla.openedhand.com/show_bug.cgi?id=1674 (animate-actor-with-alpha rect alpha "x" 150.0 "y" 150.0 "opacity" 0) (main-with-cleanup stage timeline)))))) @@ -256,24 +256,24 @@ (with-colors ((stage-color 0 0 0) (rect-color #xff #xff #xff #x99)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 200.0 200.0) - (%stage-set-color stage stage-color) - (let ((rect (%rectangle-new-with-color rect-color)) - (timeline (%timeline-new 5000))) - (%actor-set-size rect 40.0 40.0) - (%actor-set-position rect 10.0 10.0) - (%container-add-actor stage rect) - (%actor-show rect) - (%timeline-set-loop timeline +true+) - (%timeline-start timeline) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 200.0 200.0) + (stage-set-color stage stage-color) + (let ((rect (rectangle-new-with-color rect-color)) + (timeline (timeline-new 5000))) + (actor-set-size rect 40.0 40.0) + (actor-set-position rect 10.0 10.0) + (container-add-actor stage rect) + (actor-show rect) + (timeline-set-loop timeline +true+) + (timeline-start timeline) (let ((alpha (alpha-new-with-function timeline #'(lambda (alpha) - (%timeline-get-progress - (%alpha-get-timeline alpha)))))) + (timeline-get-progress + (alpha-get-timeline alpha)))))) (let ((path-behaviour (make-behaviour-path-with-knots alpha 10 10 150 150))) - (%behaviour-apply path-behaviour rect) + (behaviour-apply path-behaviour rect) (main-with-cleanup stage timeline path-behaviour))))))) (defun chapter-9 () @@ -281,24 +281,24 @@ (text-color #xff #xff #xcc #xff) (selection-color #x00 #x50 #xff #x80)) (init-clutter) - (let ((stage (%stage-get-default))) - (%group-remove-all stage) - (%actor-set-size stage 800.0 200.0) - (%stage-set-color stage stage-color) - (let ((text (%text-new))) - (%text-set-color text text-color) - (%text-set-text text "Non-editable text: Wizard imps and sweat sock pimps, interstellar mongrel nymphs.") - (%text-set-font-name text "Sans 12") - (%text-set-editable text +false+) - (%text-set-line-wrap text +false+) + (let ((stage (stage-get-default))) + (group-remove-all stage) + (actor-set-size stage 800.0 200.0) + (stage-set-color stage stage-color) + (let ((text (text-new))) + (text-set-color text text-color) + (text-set-text text "Non-editable text: Wizard imps and sweat sock pimps, interstellar mongrel nymphs.") + (text-set-font-name text "Sans 12") + (text-set-editable text +false+) + (text-set-line-wrap text +false+) (let ((preferred-height (nth-value 1 (get-preferred-height text 750.0)))) - (%actor-set-size text 750.0 preferred-height)) - (%actor-set-position text 5.0 5.0) - (%container-add-actor stage text) - (%actor-show text)) - (let ((text (%text-new))) - (%text-set-color text text-color) - (%text-set-text text + (actor-set-size text 750.0 preferred-height)) + (actor-set-position text 5.0 5.0) + (container-add-actor stage text) + (actor-show text)) + (let ((text (text-new))) + (text-set-color text text-color) + (text-set-text text (concatenate 'string "Editable text: And as I sat there brooding on the old, unknown world, I thought of " "Gatsby's wonder when he first picked out the green light at the end of " @@ -307,15 +307,15 @@ "not know that it was already behind him, somewhere back in that vast " "obscurity beyond the city, where the dark fields of the republic rolled " "on under the night.")) - (%text-set-font-name text "Sans 12") - (%text-set-editable text +true+) - (%text-set-line-wrap text +true+) - (%actor-set-reactive text +true+) - (%text-set-selection-color text selection-color) + (text-set-font-name text "Sans 12") + (text-set-editable text +true+) + (text-set-line-wrap text +true+) + (actor-set-reactive text +true+) + (text-set-selection-color text selection-color) (let ((preferred-height (nth-value 1 (get-preferred-height text 750.0)))) - (%actor-set-size text 750.0 preferred-height)) - (%actor-set-position text 5.0 50.0) - (%container-add-actor stage text) - (%actor-show text) - (%stage-set-key-focus stage text)) + (actor-set-size text 750.0 preferred-height)) + (actor-set-position text 5.0 50.0) + (container-add-actor stage text) + (actor-show text) + (stage-set-key-focus stage text)) (main-with-cleanup stage)))) examples/tutorial.lisp @@ -27,26 +27,26 @@ (if cache cache (setf (gethash g-type *g-type-to-ffi-cache*) - (g-name-to-ffi-type (%g-type-name g-type)))))) + (g-name-to-ffi-type (g-type-name g-type)))))) (defun (setf g-value) (new-value g-value) (ecase (g-type-to-ffi-type (foreign-slot-value g-value 'g-value 'g-type)) ((request-mode cogl-pixel-format pango-wrap-mode pango-alignment texture-quality pango-ellipsize-mode rotate-direction rotate-axis gravity) - (%g-value-set-enum g-value new-value)) - (gboolean (%g-value-set-boolean g-value new-value)) - (gchar (%g-value-set-char g-value new-value)) - (guchar (%g-value-set-uchar g-value new-value)) - (gint (%g-value-set-int g-value new-value)) - (guint (%g-value-set-uint g-value new-value)) - (glong (%g-value-set-long g-value new-value)) - (gulong (%g-value-set-ulong g-value new-value)) - (gint64 (%g-value-set-int64 g-value new-value)) - (guint64 (%g-value-set-uint64 g-value new-value)) - (:float (%g-value-set-float g-value new-value)) - (:double (%g-value-set-double g-value new-value)) - (:string (%g-value-set-string g-value new-value)))) + (g-value-set-enum g-value new-value)) + (gboolean (g-value-set-boolean g-value new-value)) + (gchar (g-value-set-char g-value new-value)) + (guchar (g-value-set-uchar g-value new-value)) + (gint (g-value-set-int g-value new-value)) + (guint (g-value-set-uint g-value new-value)) + (glong (g-value-set-long g-value new-value)) + (gulong (g-value-set-ulong g-value new-value)) + (gint64 (g-value-set-int64 g-value new-value)) + (guint64 (g-value-set-uint64 g-value new-value)) + (:float (g-value-set-float g-value new-value)) + (:double (g-value-set-double g-value new-value)) + (:string (g-value-set-string g-value new-value)))) (defun g-value (g-value) (let ((g-type (foreign-slot-value g-value 'g-value 'g-type))) @@ -55,31 +55,31 @@ ((request-mode cogl-pixel-format pango-wrap-mode pango-alignment texture-quality pango-ellipsize-mode rotate-direction rotate-axis gravity) - (foreign-enum-keyword ffi-type (%g-value-get-enum g-value))) - (gboolean (%g-value-get-boolean g-value)) - (gchar (%g-value-get-char g-value)) - (guchar (%g-value-get-uchar g-value)) - (gint (%g-value-get-int g-value)) - (guint (%g-value-get-uint g-value)) - (glong (%g-value-get-long g-value)) - (gulong (%g-value-get-ulong g-value)) - (gint64 (%g-value-get-int64 g-value)) - (guint64 (%g-value-get-uint64 g-value)) - (:float (%g-value-get-float g-value)) - (:double (%g-value-get-double g-value)) - (:string (%g-value-get-string g-value)))))) + (foreign-enum-keyword ffi-type (g-value-get-enum g-value))) + (gboolean (g-value-get-boolean g-value)) + (gchar (g-value-get-char g-value)) + (guchar (g-value-get-uchar g-value)) + (gint (g-value-get-int g-value)) + (guint (g-value-get-uint g-value)) + (glong (g-value-get-long g-value)) + (gulong (g-value-get-ulong g-value)) + (gint64 (g-value-get-int64 g-value)) + (guint64 (g-value-get-uint64 g-value)) + (:float (g-value-get-float g-value)) + (:double (g-value-get-double g-value)) + (:string (g-value-get-string g-value)))))) (defun make-g-value (g-type &optional (value 0.0 value-supplied-p)) (let ((g-value (foreign-alloc 'g-value))) (loop for i from 0 below size-of-g-value do (setf (mem-aref (inc-pointer g-value i) :uint8) 0)) - (%g-value-init g-value g-type) + (g-value-init g-value g-type) (when value-supplied-p (setf (g-value g-value) value)) g-value)) (defun free-g-value (g-value) - (%g-value-unset g-value) + (g-value-unset g-value) (foreign-free g-value)) (defmacro with-g-value ((g-value g-type &optional (value 0.0 value-supplied-p)) &body body) @@ -96,13 +96,13 @@ (defun free-g-value-block (g-value-block) (destructuring-bind (n . block-pointer) g-value-block (dotimes (i n) - (%g-value-unset (inc-pointer block-pointer (* i size-of-g-value)))) + (g-value-unset (inc-pointer block-pointer (* i size-of-g-value)))) (foreign-free block-pointer))) (defun init-g-value-in-block (g-value-block n g-type &optional (value 0.0 value-supplied-p)) (assert (< n (car g-value-block))) (let ((pointer-into-block (inc-pointer (cdr g-value-block) (* n size-of-g-value)))) - (%g-value-init pointer-into-block g-type) + (g-value-init pointer-into-block g-type) (when value-supplied-p (setf (g-value pointer-into-block) value)))) g-values.lisp @@ -7,7 +7,7 @@ (defun get-g-type (symbol namestring) (if-let ((cache (gethash symbol *g-type-cache*))) cache - (let ((g-type (%g-type-from-name namestring))) + (let ((g-type (g-type-from-name namestring))) (when (not (zerop g-type)) (setf (gethash symbol *g-type-cache*) g-type))))) @@ -77,7 +77,7 @@ (defcallback lisp-actor-class-init :void ((g-class :pointer) (class-data :pointer)) (declare (ignore class-data)) - (setf *lisp-actor-parent-class* (%g-type-class-peek-parent g-class)) + (setf *lisp-actor-parent-class* (g-type-class-peek-parent g-class)) (setf (foreign-slot-value g-class 'g-object-class 'finalize) (callback lisp-actor-finalize-instance))) ;; instance initialization @@ -104,7 +104,7 @@ n-preallocs 0 instance-init (callback lisp-actor-instance-init) value-table (null-pointer))) - (%g-type-register-static (get-g-type 'actor "ClutterActor") + (g-type-register-static (get-g-type 'actor "ClutterActor") "LispClutterActor" type-info :abstract))) gobject-subclass.lisp @@ -83,937 +83,933 @@ #:allocation-flags-composite #:actor-flags-composite #:g-signal-match-type-composite - ;; raw C functions - #:%actor-set-flags - #:%actor-unset-flags - #:%actor-get-flags - #:%actor-show - #:%actor-show-all - #:%actor-hide - #:%actor-hide-all - #:%actor-realize - #:%actor-unrealize - #:%actor-paint - #:%actor-queue-redraw - #:%actor-queue-relayout - #:%actor-destroy - #:%actor-event - #:%actor-should-pick-paint - #:%actor-map - #:%actor-unmap - #:%actor-allocate - #:%actor-allocate-preferred-size - #:%actor-allocate-available-size - #:%actor-get-allocation-box - #:%actor-get-allocation-geometry - #:%actor-get-allocation-vertices - #:%actor-get-preferred-size - #:%actor-get-preferred-width - #:%actor-get-preferred-height - #:%actor-set-fixed-position-set - #:%actor-get-fixed-position-set - #:%actor-set-geometry - #:%actor-get-geometry - #:%actor-set-size - #:%actor-get-size - #:%actor-set-position - #:%actor-get-position - #:%actor-set-width - #:%actor-get-width - #:%actor-set-height - #:%actor-get-height - #:%actor-set-x - #:%actor-get-x - #:%actor-set-y - #:%actor-get-y - #:%actor-move-by - #:%actor-set-rotation - #:%actor-set-z-rotation-from-gravity - #:%actor-get-rotation - #:%actor-get-z-rotation-gravity - #:%actor-is-rotated - #:%actor-set-opacity - #:%actor-get-opacity - #:%actor-set-name - #:%actor-get-name - #:%actor-get-gid - #:%actor-set-clip - #:%actor-remove-clip - #:%actor-has-clip - #:%actor-get-clip - #:%actor-set-parent - #:%actor-get-parent - #:%actor-reparent - #:%actor-unparent - #:%actor-raise - #:%actor-lower - #:%actor-raise-top - #:%actor-lower-bottom - #:%actor-get-stage - #:%actor-set-depth - #:%actor-get-depth - #:%actor-set-scale - #:%actor-set-scale-full - #:%actor-set-scale-with-gravity - #:%actor-get-scale - #:%actor-get-scale-center - #:%actor-get-scale-gravity - #:%actor-is-scaled - #:%actor-apply-transform-to-point - #:%actor-transform-stage-point - #:%actor-apply-relative-transform-to-point - #:%actor-get-transformed-position - #:%actor-get-transformed-size - #:%actor-get-paint-opacity - #:%actor-get-paint-visibility - #:%actor-get-abs-allocation-vertices - #:%actor-get-transformation-matrix - #:%actor-set-anchor-point - #:%actor-get-anchor-point - #:%actor-set-anchor-point-from-gravity - #:%actor-get-anchor-point-gravity - #:%actor-move-anchor-point - #:%actor-move-anchor-point-from-gravity - #:%actor-set-reactive - #:%actor-get-reactive - #:%actor-set-shader - #:%actor-get-shader - #:%actor-set-shader-param - #:%actor-set-shader-param-float - #:%actor-set-shader-param-int - #:%actor-grab-key-focus - #:%actor-get-pango-context - #:%actor-create-pango-context - #:%actor-create-pango-layout - #:%actor-box-new - #:%actor-box-copy - #:%actor-box-free - #:%actor-box-equal - #:%actor-box-get-x - #:%actor-box-get-y - #:%actor-box-get-width - #:%actor-box-get-height - #:%actor-box-get-origin - #:%actor-box-get-size - #:%actor-box-get-area - #:%actor-box-contains - #:%actor-box-from-vertices - #:%vertex-new - #:%vertex-copy - #:%vertex-free - #:%vertex-equal - #:%container-add-actor - #:%container-add-valist - #:%container-remove-actor - #:%container-remove-valist - #:%container-get-children - #:%container-foreach - #:%container-foreach-with-internals - #:%container-find-child-by-name - #:%container-raise-child - #:%container-lower-child - #:%container-sort-depth-order - #:%container-class-find-child-property - #:%container-class-list-child-properties - #:%container-child-set-property - #:%container-child-get-property - #:%container-get-child-meta - #:%child-meta-get-container - #:%child-meta-get-actor - #:%media-set-uri - #:%media-get-uri - #:%media-set-playing - #:%media-get-playing - #:%media-set-progress - #:%media-get-progress - #:%media-set-audio-volume - #:%media-get-audio-volume - #:%media-get-can-seek - #:%media-get-buffer-fill - #:%media-get-duration - #:%media-set-filename - #:%rectangle-new - #:%rectangle-new-with-color - #:%rectangle-get-color - #:%rectangle-set-color - #:%rectangle-get-border-color - #:%rectangle-set-border-color - #:%rectangle-get-border-width - #:%rectangle-set-border-width - #:%texture-new - #:%texture-new-from-file - #:%texture-new-from-actor - #:%texture-set-from-file - #:%texture-set-from-rgb-data - #:%texture-set-from-yuv-data - #:%texture-set-area-from-rgb-data - #:%texture-get-base-size - #:%texture-get-pixel-format - #:%texture-get-max-tile-waste - #:%texture-get-filter-quality - #:%texture-set-filter-quality - #:%texture-get-cogl-texture - #:%texture-set-cogl-texture - #:%texture-get-cogl-material - #:%texture-set-cogl-material - #:%texture-get-sync-size - #:%texture-set-sync-size - #:%texture-get-repeat - #:%texture-set-repeat - #:%texture-get-keep-aspect-ratio - #:%texture-set-keep-aspect-ratio - #:%texture-get-load-async - #:%texture-set-load-async - #:%texture-get-load-data-async - #:%texture-set-load-data-async - #:%clone-new - #:%clone-set-source - #:%clone-get-source - #:%text-new - #:%text-new-full - #:%text-new-with-text - #:%text-set-text - #:%text-set-markup - #:%text-get-text - #:%text-set-activatable - #:%text-get-activatable - #:%text-set-attributes - #:%text-get-attributes - #:%text-set-color - #:%text-get-color - #:%text-set-ellipsize - #:%text-get-ellipsize - #:%text-set-font-name - #:%text-get-font-name - #:%text-set-password-char - #:%text-get-password-char - #:%text-set-justify - #:%text-get-justify - #:%text-get-layout - #:%text-set-line-alignment - #:%text-get-line-alignment - #:%text-set-line-wrap - #:%text-get-line-wrap - #:%text-set-line-wrap-mode - #:%text-get-line-wrap-mode - #:%text-set-max-length - #:%text-get-max-length - #:%text-set-selectable - #:%text-get-selectable - #:%text-set-selection - #:%text-get-selection - #:%text-set-selection-bound - #:%text-get-selection-bound - #:%text-set-single-line-mode - #:%text-get-single-line-mode - #:%text-set-use-markup - #:%text-get-use-markup - #:%text-set-editable - #:%text-get-editable - #:%text-insert-text - #:%text-insert-unichar - #:%text-delete-chars - #:%text-delete-text - #:%text-delete-selection - #:%text-get-chars - #:%text-set-cursor-color - #:%text-get-cursor-color - #:%text-set-selection-color - #:%text-get-selection-color - #:%text-set-cursor-position - #:%text-get-cursor-position - #:%text-set-cursor-visible - #:%text-get-cursor-visible - #:%text-set-cursor-size - #:%text-get-cursor-size - #:%text-activate - #:%text-position-to-coords - #:%cairo-texture-new - #:%cairo-texture-set-surface-size - #:%cairo-texture-get-surface-size - #:%cairo-texture-create - #:%cairo-texture-create-region - #:%cairo-texture-clear - #:%cairo-set-source-color - #:%group-new - #:%group-remove-all - #:%group-get-n-children - #:%group-get-nth-child - #:%stage-get-default - #:%stage-new - #:%stage-is-default - #:%stage-set-color - #:%stage-get-color - #:%stage-set-fullscreen - #:%stage-get-fullscreen - #:%stage-show-cursor - #:%stage-hide-cursor - #:%stage-get-actor-at-pos - #:%stage-ensure-current - #:%stage-ensure-viewport - #:%stage-ensure-redraw - #:%stage-queue-redraw - #:%stage-event - #:%stage-set-key-focus - #:%stage-get-key-focus - #:%stage-read-pixels - #:%stage-set-perspective - #:%stage-get-perspective - #:%stage-set-title - #:%stage-get-title - #:%stage-set-user-resizable - #:%stage-get-user-resizable - #:%stage-set-use-fog - #:%stage-get-use-fog - #:%stage-set-fog - #:%stage-get-fog - #:%timeline-new - #:%timeline-clone - #:%timeline-set-duration - #:%timeline-get-duration - #:%timeline-set-loop - #:%timeline-get-loop - #:%timeline-set-delay - #:%timeline-get-delay - #:%timeline-set-direction - #:%timeline-get-direction - #:%timeline-start - #:%timeline-pause - #:%timeline-stop - #:%timeline-rewind - #:%timeline-skip - #:%timeline-advance - #:%timeline-get-elapsed-time - #:%timeline-get-delta - #:%timeline-get-progress - #:%timeline-is-playing - #:%timeline-add-marker-at-time - #:%timeline-has-marker - #:%timeline-list-markers - #:%timeline-remove-marker - #:%timeline-advance-to-marker - #:%score-new - #:%score-set-loop - #:%score-get-loop - #:%score-append - #:%score-append-at-marker - #:%score-remove - #:%score-remove-all - #:%score-get-timeline - #:%score-list-timelines - #:%score-start - #:%score-pause - #:%score-stop - #:%score-is-playing - #:%score-rewind - #:%alpha-new - #:%alpha-new-full - #:%alpha-new-with-func - #:%alpha-set-timeline - #:%alpha-get-timeline - #:%alpha-set-mode - #:%alpha-get-mode - #:%alpha-get-alpha - #:%alpha-set-func - #:%alpha-set-closure - #:%alpha-register-closure - #:%alpha-register-func - #:%behaviour-apply - #:%behaviour-remove - #:%behaviour-remove-all - #:%behaviour-is-applied - #:%behaviour-actors-foreach - #:%behaviour-get-actors - #:%behaviour-get-n-actors - #:%behaviour-get-nth-actor - #:%behaviour-get-alpha - #:%behaviour-set-alpha - #:%behaviour-depth-new - #:%behaviour-depth-set-bounds - #:%behaviour-depth-get-bounds - #:%behaviour-ellipse-new - #:%behaviour-ellipse-set-center - #:%behaviour-ellipse-get-center - #:%behaviour-ellipse-set-angle-start - #:%behaviour-ellipse-get-angle-start - #:%behaviour-ellipse-set-angle-end - #:%behaviour-ellipse-get-angle-end - #:%behaviour-ellipse-set-angle-tilt - #:%behaviour-ellipse-get-angle-tilt - #:%behaviour-ellipse-set-height - #:%behaviour-ellipse-get-height - #:%behaviour-ellipse-set-width - #:%behaviour-ellipse-get-width - #:%behaviour-ellipse-set-tilt - #:%behaviour-ellipse-get-tilt - #:%behaviour-ellipse-set-direction - #:%behaviour-ellipse-get-direction - #:%behaviour-opacity-new - #:%behaviour-opacity-set-bounds - #:%behaviour-opacity-get-bounds - #:%behaviour-path-new - #:%behaviour-path-new-with-description - #:%behaviour-path-new-with-knots - #:%behaviour-path-set-path - #:%behaviour-path-get-path - #:%knot-copy - #:%knot-free - #:%knot-equal - #:%path-new - #:%path-new-with-description - #:%path-add-move-to - #:%path-add-rel-move-to - #:%path-add-line-to - #:%path-add-rel-line-to - #:%path-add-curve-to - #:%path-add-rel-curve-to - #:%path-add-close - #:%path-add-string - #:%path-add-node - #:%path-add-cairo-path - #:%path-get-n-nodes - #:%path-get-node - #:%path-get-nodes - #:%path-foreach - #:%path-insert-node - #:%path-remove-node - #:%path-replace-node - #:%path-get-description - #:%path-set-description - #:%path-to-cairo-path - #:%path-clear - #:%path-get-position - #:%path-get-length - #:%path-node-copy - #:%path-node-free - #:%path-node-equal - #:%behaviour-rotate-new - #:%behaviour-rotate-set-axis - #:%behaviour-rotate-get-axis - #:%behaviour-rotate-set-direction - #:%behaviour-rotate-get-direction - #:%behaviour-rotate-set-bounds - #:%behaviour-rotate-get-bounds - #:%behaviour-rotate-set-center - #:%behaviour-rotate-get-center - #:%behaviour-scale-new - #:%behaviour-scale-set-bounds - #:%behaviour-scale-get-bounds - #:%interval-new-with-values - #:%interval-clone - #:%interval-get-value-type - #:%interval-set-initial-value - #:%interval-get-initial-value - #:%interval-peek-initial-value - #:%interval-set-final-value - #:%interval-get-final-value - #:%interval-peek-final-value - #:%interval-compute-value - #:%interval-validate - #:%interval-register-progress-func - #:%animation-new - #:%animation-set-object - #:%animation-get-object - #:%animation-set-mode - #:%animation-get-mode - #:%animation-set-duration - #:%animation-get-duration - #:%animation-set-loop - #:%animation-get-loop - #:%animation-set-timeline - #:%animation-get-timeline - #:%animation-set-alpha - #:%animation-get-alpha - #:%animation-completed - #:%animation-bind - #:%animation-bind-interval - #:%animation-update-interval - #:%animation-has-property - #:%animation-unbind-property - #:%animation-get-interval - #:%actor-animatev - #:%actor-animate-with-timelinev - #:%actor-animate-with-alphav - #:%actor-get-animation - #:%animatable-animate-property - #:%color-new - #:%color-copy - #:%color-free - #:%color-equal - #:%color-hash - #:%color-from-string - #:%color-to-string - #:%color-from-hls - #:%color-to-hls - #:%color-from-pixel - #:%color-to-pixel - #:%color-add - #:%color-subtract - #:%color-lighten - #:%color-darken - #:%color-shade - #:%param-spec-color - #:%value-set-color - #:%value-get-color - #:%binding-pool-new - #:%binding-pool-get-for-class - #:%binding-pool-find - #:%binding-pool-install-action - #:%binding-pool-install-closure - #:%binding-pool-override-action - #:%binding-pool-override-closure - #:%binding-pool-find-action - #:%binding-pool-remove-action - #:%binding-pool-block-action - #:%binding-pool-unblock-action - #:%binding-pool-activate - #:%event-new - #:%event-copy - #:%event-free - #:%event-type - #:%event-get-coords - #:%event-get-state - #:%event-get-time - #:%event-get-source - #:%event-get-stage - #:%event-get-flags - #:%event-get - #:%event-peek - #:%event-put - #:%events-pending - #:%event-get-button - #:%event-get-click-count - #:%event-get-key-symbol - #:%event-get-key-code - #:%event-get-key-unicode - #:%keysym-to-unicode - #:%event-get-related - #:%event-get-scroll-direction - #:%event-get-device - #:%event-get-device-id - #:%event-get-device-type - #:%get-input-device-for-id - #:%input-device-get-device-id - #:%input-device-get-device-type - #:%get-current-event-time - #:%init - #:%init-with-args - #:%get-option-group - #:%get-option-group-without-init - #:%main - #:%main-quit - #:%main-level - #:%get-debug-enabled - #:%get-show-fps - #:%get-timestamp - #:%get-actor-by-gid - #:%set-default-frame-rate - #:%get-default-frame-rate - #:%set-motion-events-enabled - #:%get-motion-events-enabled - #:%clear-glyph-cache - #:%set-font-flags - #:%get-font-flags - #:%get-font-map - #:%threads-set-lock-functions - #:%threads-init - #:%threads-enter - #:%threads-leave - #:%threads-add-idle - #:%threads-add-idle-full - #:%threads-add-timeout - #:%threads-add-timeout-full - #:%threads-add-frame-source - #:%threads-add-frame-source-full - #:%threads-add-repaint-func - #:%threads-remove-repaint-func - #:%get-keyboard-grab - #:%get-pointer-grab - #:%grab-keyboard - #:%grab-pointer - #:%ungrab-keyboard - #:%ungrab-pointer - #:%grab-pointer-for-device - #:%ungrab-pointer-for-device - #:%do-event - #:%shader-new - #:%shader-set-vertex-source - #:%shader-get-vertex-source - #:%shader-set-fragment-source - #:%shader-get-fragment-source - #:%shader-compile - #:%shader-release - #:%shader-is-compiled - #:%shader-set-is-enabled - #:%shader-get-is-enabled - #:%shader-set-uniform - #:%shader-get-cogl-program - #:%shader-get-cogl-fragment-shader - #:%shader-get-cogl-vertex-shader - #:%value-set-shader-float - #:%value-get-shader-float - #:%value-set-shader-int - #:%value-get-shader-int - #:%value-set-shader-matrix - #:%value-get-shader-matrix - #:%units-mm - #:%units-pt - #:%units-em - #:%units-em-for-font - #:%units-pixels - #:%units-to-pixels - #:%units-copy - #:%units-free - #:%units-get-unit-type - #:%units-get-unit-value - #:%units-from-string - #:%units-to-string - #:%param-spec-units - #:%value-set-units - #:%value-get-units - #:%util-next-p2 - #:%timeout-pool-new - #:%timeout-pool-add - #:%timeout-pool-remove - #:%frame-source-add - #:%frame-source-add-full - #:%param-spec-fixed - #:%value-set-fixed - #:%value-get-fixed - #:%script-new - #:%script-load-from-data - #:%script-load-from-file - #:%script-add-search-paths - #:%script-lookup-filename - #:%script-get-object - #:%script-unmerge-objects - #:%script-ensure-objects - #:%script-list-objects - #:%script-connect-signals - #:%script-connect-signals-full - #:%script-get-type-from-name - #:%get-script-id - #:%scriptable-set-id - #:%scriptable-get-id - #:%scriptable-parse-custom-node - #:%scriptable-set-custom-property - #:%model-set-names - #:%model-set-types - #:%model-get-column-name - #:%model-get-column-type - #:%model-get-n-columns - #:%model-get-n-rows - #:%model-appendv - #:%model-prependv - #:%model-insertv - #:%model-insert-value - #:%model-remove - #:%model-foreach - #:%model-set-sorting-column - #:%model-get-sorting-column - #:%model-set-sort - #:%model-resort - #:%model-set-filter - #:%model-get-filter-set - #:%model-filter-iter - #:%model-filter-row - #:%model-get-first-iter - #:%model-get-last-iter - #:%model-get-iter-at-row - #:%model-iter-copy - #:%model-iter-get-valist - #:%model-iter-get-value - #:%model-iter-set-valist - #:%model-iter-set-value - #:%model-iter-is-first - #:%model-iter-is-last - #:%model-iter-next - #:%model-iter-prev - #:%model-iter-get-model - #:%model-iter-get-row - #:%list-model-newv - #:%get-default-backend - #:%backend-set-resolution - #:%backend-get-resolution - #:%backend-set-double-click-time - #:%backend-get-double-click-time - #:%backend-set-double-click-distance - #:%backend-get-double-click-distance - #:%backend-set-font-options - #:%backend-get-font-options - #:%backend-set-font-name - #:%backend-get-font-name - #:%cogl-handle-ref - #:%cogl-handle-unref - #:%cogl-get-features - #:%cogl-features-available - #:%cogl-check-extension - #:%cogl-get-proc-address - #:%cogl-get-option-group - #:%cogl-gl-error-to-string - #:%cogl-push-matrix - #:%cogl-pop-matrix - #:%cogl-scale - #:%cogl-translate - #:%cogl-rotate - #:%cogl-frustum - #:%cogl-perspective - #:%cogl-ortho - #:%cogl-get-modelview-matrix - #:%cogl-set-modelview-matrix - #:%cogl-get-projection-matrix - #:%cogl-set-projection-matrix - #:%cogl-viewport - #:%cogl-get-viewport - #:%cogl-clear - #:%cogl-get-bitmasks - #:%cogl-set-depth-test-enabled - #:%cogl-get-depth-test-enabled - #:%cogl-set-backface-culling-enabled - #:%cogl-get-backface-culling-enabled - #:%cogl-set-fog - #:%cogl-disable-fog - #:%cogl-set-source - #:%cogl-set-source-color - #:%cogl-set-source-color4ub - #:%cogl-set-source-color4f - #:%cogl-set-source-texture - #:%cogl-read-pixels - #:%cogl-flush - #:%cogl-begin-gl - #:%cogl-end-gl - #:%cogl-color-new - #:%cogl-color-copy - #:%cogl-color-free - #:%cogl-color-set-from-4ub - #:%cogl-color-set-from-4f - #:%cogl-color-get-red - #:%cogl-color-get-green - #:%cogl-color-get-blue - #:%cogl-color-get-alpha - #:%cogl-color-get-red-byte - #:%cogl-color-get-green-byte - #:%cogl-color-get-blue-byte - #:%cogl-color-get-alpha-byte - #:%cogl-color-get-red-float - #:%cogl-color-get-green-float - #:%cogl-color-get-blue-float - #:%cogl-color-get-alpha-float - #:%cogl-texture-new-with-size - #:%cogl-texture-new-from-file - #:%cogl-texture-new-from-data - #:%cogl-texture-new-from-foreign - #:%cogl-texture-new-from-bitmap - #:%cogl-is-texture - #:%cogl-texture-ref - #:%cogl-texture-unref - #:%cogl-texture-get-width - #:%cogl-texture-get-height - #:%cogl-texture-get-format - #:%cogl-texture-get-rowstride - #:%cogl-texture-get-max-waste - #:%cogl-texture-is-sliced - #:%cogl-texture-get-gl-texture - #:%cogl-texture-get-data - #:%cogl-texture-set-region - #:%cogl-material-new - #:%cogl-material-ref - #:%cogl-material-unref - #:%cogl-is-material - #:%cogl-material-set-color - #:%cogl-material-set-color4ub - #:%cogl-material-set-color4f - #:%cogl-material-get-color - #:%cogl-material-set-ambient - #:%cogl-material-get-ambient - #:%cogl-material-set-diffuse - #:%cogl-material-get-diffuse - #:%cogl-material-set-ambient-and-diffuse - #:%cogl-material-set-emission - #:%cogl-material-get-emission - #:%cogl-material-set-specular - #:%cogl-material-get-specular - #:%cogl-material-set-shininess - #:%cogl-material-get-shininess - #:%cogl-material-set-alpha-test-function - #:%cogl-material-set-blend - #:%cogl-material-set-blend-constant - #:%cogl-material-set-layer - #:%cogl-material-remove-layer - #:%cogl-material-set-layer-combine - #:%cogl-material-set-layer-combine-constant - #:%cogl-material-set-layer-matrix - #:%cogl-material-get-layers - #:%cogl-material-set-layer-filters - #:%cogl-material-layer-get-type - #:%cogl-material-layer-get-texture - #:%cogl-material-layer-get-min-filter - #:%cogl-material-layer-get-mag-filter - #:%cogl-rectangle - #:%cogl-rectangles - #:%cogl-rectangle-with-texture-coords - #:%cogl-rectangles-with-texture-coords - #:%cogl-rectangle-with-multitexture-coords - #:%cogl-polygon - #:%cogl-path-new - #:%cogl-path-move-to - #:%cogl-path-close - #:%cogl-path-line-to - #:%cogl-path-curve-to - #:%cogl-path-arc - #:%cogl-path-rel-move-to - #:%cogl-path-rel-line-to - #:%cogl-path-rel-curve-to - #:%cogl-path-line - #:%cogl-path-polyline - #:%cogl-path-polygon - #:%cogl-path-rectangle - #:%cogl-path-round-rectangle - #:%cogl-path-ellipse - #:%cogl-path-fill - #:%cogl-path-fill-preserve - #:%cogl-path-stroke - #:%cogl-path-stroke-preserve - #:%cogl-vertex-buffer-new - #:%cogl-vertex-buffer-get-n-vertices - #:%cogl-vertex-buffer-ref - #:%cogl-vertex-buffer-unref - #:%cogl-vertex-buffer-add - #:%cogl-vertex-buffer-delete - #:%cogl-vertex-buffer-submit - #:%cogl-vertex-buffer-disable - #:%cogl-vertex-buffer-enable - #:%cogl-vertex-buffer-draw - #:%cogl-vertex-buffer-indices-new - #:%cogl-vertex-buffer-delete-indices - #:%cogl-vertex-buffer-draw-elements - #:%cogl-vertex-buffer-indices-get-for-quads - #:%cogl-matrix-init-identity - #:%cogl-matrix-frustum - #:%cogl-matrix-ortho - #:%cogl-matrix-perspective - #:%cogl-matrix-transform-point - #:%cogl-matrix-multiply - #:%cogl-matrix-rotate - #:%cogl-matrix-translate - #:%cogl-matrix-scale - #:%cogl-matrix-init-from-array - #:%cogl-matrix-get-array - #:%cogl-create-shader - #:%cogl-shader-ref - #:%cogl-shader-unref - #:%cogl-is-shader - #:%cogl-shader-source - #:%cogl-shader-compile - #:%cogl-shader-get-info-log - #:%cogl-shader-get-type - #:%cogl-shader-is-compiled - #:%cogl-create-program - #:%cogl-program-ref - #:%cogl-program-unref - #:%cogl-is-program - #:%cogl-program-attach-shader - #:%cogl-program-link - #:%cogl-program-use - #:%cogl-program-get-uniform-location - #:%cogl-program-uniform-1f - #:%cogl-program-uniform-1i - #:%cogl-program-uniform-float - #:%cogl-program-uniform-int - #:%cogl-program-uniform-matrix - #:%cogl-offscreen-new-to-texture - #:%cogl-offscreen-ref - #:%cogl-offscreen-unref - #:%cogl-is-offscreen - #:%cogl-set-draw-buffer - #:%cogl-pop-draw-buffer - #:%cogl-push-draw-buffer - #:%cogl-sqrti - #:%cogl-fixed-atan2 - #:%cogl-fixed-atani - #:%cogl-fixed-cos - #:%cogl-fixed-log2 - #:%cogl-fixed-pow - #:%cogl-fixed-pow2 - #:%cogl-fixed-sin - #:%cogl-fixed-sqrt - #:%cogl-fixed-tan - #:%cogl-angle-cos - #:%cogl-angle-sin - #:%cogl-angle-tan - #:%g-object-set-property - #:%g-object-get-property - #:%g-signal-connect-data - #:%g-signal-handler-find - #:%g-signal-handlers-disconnect-matched - #:%g-signal-handler-is-connected - #:%g-signal-handler-disconnect - #:%g-signal-has-handler-pending - #:%g-signal-stop-emission - #:%g-signal-stop-emission-by-name - #:%g-value-init - #:%g-value-copy - #:%g-value-reset - #:%g-value-unset - #:%g-value-set-instance - #:%g-value-fits-pointer - #:%g-value-peek-pointer - #:%g-value-type-compatible - #:%g-value-type-transformable - #:%g-value-transform - #:%g-value-register-transform-func - #:%g-strdup-value-contents - #:%g-value-set-boolean - #:%g-value-get-boolean - #:%g-value-set-char - #:%g-value-get-char - #:%g-value-set-uchar - #:%g-value-get-uchar - #:%g-value-set-int - #:%g-value-get-int - #:%g-value-set-uint - #:%g-value-get-uint - #:%g-value-set-long - #:%g-value-get-long - #:%g-value-set-ulong - #:%g-value-get-ulong - #:%g-value-set-int64 - #:%g-value-get-int64 - #:%g-value-set-uint64 - #:%g-value-get-uint64 - #:%g-value-set-float - #:%g-value-get-float - #:%g-value-set-double - #:%g-value-get-double - #:%g-value-set-enum - #:%g-value-get-enum - #:%g-value-set-flags - #:%g-value-get-flags - #:%g-value-set-string - #:%g-value-set-static-string - #:%g-value-take-string - #:%g-value-set-string-take-ownership - #:%g-value-dup-string - #:%g-type-from-name - #:%g-type-name - #:%g-object-ref - #:%g-object-unref - #:%g-object-ref-sink - #:%g-object-is-floating - #:%g-object-force-floating - #:%g-object-weak-ref - #:%g-object-weak-unref - #:%g-object-add-weak-pointer - #:%g-object-remove-weak-pointer - #:%g-object-add-toggle-ref - #:%g-object-remove-toggle-ref - #:%g-object-freeze-notify - #:%g-object-thaw-notify - #:%g-thread-init - ;; wrappers + #:actor-set-flags + #:actor-unset-flags + #:actor-get-flags + #:actor-show + #:actor-show-all + #:actor-hide + #:actor-hide-all + #:actor-realize + #:actor-unrealize + #:actor-paint + #:actor-queue-redraw + #:actor-queue-relayout + #:actor-destroy + #:actor-event + #:actor-should-pick-paint + #:actor-map + #:actor-unmap + #:actor-allocate + #:actor-allocate-preferred-size + #:actor-allocate-available-size + #:actor-get-allocation-box + #:actor-get-allocation-geometry + #:actor-get-allocation-vertices + #:actor-get-preferred-size + #:actor-get-preferred-width + #:actor-get-preferred-height + #:actor-set-fixed-position-set + #:actor-get-fixed-position-set + #:actor-set-geometry + #:actor-get-geometry + #:actor-set-size + #:actor-get-size + #:actor-set-position + #:actor-get-position + #:actor-set-width + #:actor-get-width + #:actor-set-height + #:actor-get-height + #:actor-set-x + #:actor-get-x + #:actor-set-y + #:actor-get-y + #:actor-move-by + #:actor-set-rotation + #:actor-set-z-rotation-from-gravity + #:actor-get-rotation + #:actor-get-z-rotation-gravity + #:actor-is-rotated + #:actor-set-opacity + #:actor-get-opacity + #:actor-set-name + #:actor-get-name + #:actor-get-gid + #:actor-set-clip + #:actor-remove-clip + #:actor-has-clip + #:actor-get-clip + #:actor-set-parent + #:actor-get-parent + #:actor-reparent + #:actor-unparent + #:actor-raise + #:actor-lower + #:actor-raise-top + #:actor-lower-bottom + #:actor-get-stage + #:actor-set-depth + #:actor-get-depth + #:actor-set-scale + #:actor-set-scale-full + #:actor-set-scale-with-gravity + #:actor-get-scale + #:actor-get-scale-center + #:actor-get-scale-gravity + #:actor-is-scaled + #:actor-apply-transform-to-point + #:actor-transform-stage-point + #:actor-apply-relative-transform-to-point + #:actor-get-transformed-position + #:actor-get-transformed-size + #:actor-get-paint-opacity + #:actor-get-paint-visibility + #:actor-get-abs-allocation-vertices + #:actor-get-transformation-matrix + #:actor-set-anchor-point + #:actor-get-anchor-point + #:actor-set-anchor-point-from-gravity + #:actor-get-anchor-point-gravity + #:actor-move-anchor-point + #:actor-move-anchor-point-from-gravity + #:actor-set-reactive + #:actor-get-reactive + #:actor-set-shader + #:actor-get-shader + #:actor-set-shader-param + #:actor-set-shader-param-float + #:actor-set-shader-param-int + #:actor-grab-key-focus + #:actor-get-pango-context + #:actor-create-pango-context + #:actor-create-pango-layout + #:actor-box-new + #:actor-box-copy + #:actor-box-free + #:actor-box-equal + #:actor-box-get-x + #:actor-box-get-y + #:actor-box-get-width + #:actor-box-get-height + #:actor-box-get-origin + #:actor-box-get-size + #:actor-box-get-area + #:actor-box-contains + #:actor-box-from-vertices + #:vertex-new + #:vertex-copy + #:vertex-free + #:vertex-equal + #:container-add-actor + #:container-add-valist + #:container-remove-actor + #:container-remove-valist + #:container-get-children + #:container-foreach + #:container-foreach-with-internals + #:container-find-child-by-name + #:container-raise-child + #:container-lower-child + #:container-sort-depth-order + #:container-class-find-child-property + #:container-class-list-child-properties + #:container-child-set-property + #:container-child-get-property + #:container-get-child-meta + #:child-meta-get-container + #:child-meta-get-actor + #:media-set-uri + #:media-get-uri + #:media-set-playing + #:media-get-playing + #:media-set-progress + #:media-get-progress + #:media-set-audio-volume + #:media-get-audio-volume + #:media-get-can-seek + #:media-get-buffer-fill + #:media-get-duration + #:media-set-filename + #:rectangle-new + #:rectangle-new-with-color + #:rectangle-get-color + #:rectangle-set-color + #:rectangle-get-border-color + #:rectangle-set-border-color + #:rectangle-get-border-width + #:rectangle-set-border-width + #:texture-new + #:texture-new-from-file + #:texture-new-from-actor + #:texture-set-from-file + #:texture-set-from-rgb-data + #:texture-set-from-yuv-data + #:texture-set-area-from-rgb-data + #:texture-get-base-size + #:texture-get-pixel-format + #:texture-get-max-tile-waste + #:texture-get-filter-quality + #:texture-set-filter-quality + #:texture-get-cogl-texture + #:texture-set-cogl-texture + #:texture-get-cogl-material + #:texture-set-cogl-material + #:texture-get-sync-size + #:texture-set-sync-size + #:texture-get-repeat + #:texture-set-repeat + #:texture-get-keep-aspect-ratio + #:texture-set-keep-aspect-ratio + #:texture-get-load-async + #:texture-set-load-async + #:texture-get-load-data-async + #:texture-set-load-data-async + #:clone-new + #:clone-set-source + #:clone-get-source + #:text-new + #:text-new-full + #:text-new-with-text + #:text-set-text + #:text-set-markup + #:text-get-text + #:text-set-activatable + #:text-get-activatable + #:text-set-attributes + #:text-get-attributes + #:text-set-color + #:text-get-color + #:text-set-ellipsize + #:text-get-ellipsize + #:text-set-font-name + #:text-get-font-name + #:text-set-password-char + #:text-get-password-char + #:text-set-justify + #:text-get-justify + #:text-get-layout + #:text-set-line-alignment + #:text-get-line-alignment + #:text-set-line-wrap + #:text-get-line-wrap + #:text-set-line-wrap-mode + #:text-get-line-wrap-mode + #:text-set-max-length + #:text-get-max-length + #:text-set-selectable + #:text-get-selectable + #:text-set-selection + #:text-get-selection + #:text-set-selection-bound + #:text-get-selection-bound + #:text-set-single-line-mode + #:text-get-single-line-mode + #:text-set-use-markup + #:text-get-use-markup + #:text-set-editable + #:text-get-editable + #:text-insert-text + #:text-insert-unichar + #:text-delete-chars + #:text-delete-text + #:text-delete-selection + #:text-get-chars + #:text-set-cursor-color + #:text-get-cursor-color + #:text-set-selection-color + #:text-get-selection-color + #:text-set-cursor-position + #:text-get-cursor-position + #:text-set-cursor-visible + #:text-get-cursor-visible + #:text-set-cursor-size + #:text-get-cursor-size + #:text-activate + #:text-position-to-coords + #:cairo-texture-new + #:cairo-texture-set-surface-size + #:cairo-texture-get-surface-size + #:cairo-texture-create + #:cairo-texture-create-region + #:cairo-texture-clear + #:cairo-set-source-color + #:group-new + #:group-remove-all + #:group-get-n-children + #:group-get-nth-child + #:stage-get-default + #:stage-new + #:stage-is-default + #:stage-set-color + #:stage-get-color + #:stage-set-fullscreen + #:stage-get-fullscreen + #:stage-show-cursor + #:stage-hide-cursor + #:stage-get-actor-at-position + #:stage-ensure-current + #:stage-ensure-viewport + #:stage-ensure-redraw + #:stage-queue-redraw + #:stage-event + #:stage-set-key-focus + #:stage-get-key-focus + #:stage-read-pixels + #:stage-set-perspective + #:stage-get-perspective + #:stage-set-title + #:stage-get-title + #:stage-set-user-resizable + #:stage-get-user-resizable + #:stage-set-use-fog + #:stage-get-use-fog + #:stage-set-fog + #:stage-get-fog + #:timeline-new + #:timeline-clone + #:timeline-set-duration + #:timeline-get-duration + #:timeline-set-loop + #:timeline-get-loop + #:timeline-set-delay + #:timeline-get-delay + #:timeline-set-direction + #:timeline-get-direction + #:timeline-start + #:timeline-pause + #:timeline-stop + #:timeline-rewind + #:timeline-skip + #:timeline-advance + #:timeline-get-elapsed-time + #:timeline-get-delta + #:timeline-get-progress + #:timeline-is-playing + #:timeline-add-marker-at-time + #:timeline-has-marker + #:timeline-list-markers + #:timeline-remove-marker + #:timeline-advance-to-marker + #:score-new + #:score-set-loop + #:score-get-loop + #:score-append + #:score-append-at-marker + #:score-remove + #:score-remove-all + #:score-get-timeline + #:score-list-timelines + #:score-start + #:score-pause + #:score-stop + #:score-is-playing + #:score-rewind + #:alpha-new + #:alpha-new-full + #:alpha-new-with-func + #:alpha-set-timeline + #:alpha-get-timeline + #:alpha-set-mode + #:alpha-get-mode + #:alpha-get-alpha + #:alpha-set-func + #:alpha-set-closure + #:alpha-register-closure + #:alpha-register-func + #:behaviour-apply + #:behaviour-remove + #:behaviour-remove-all + #:behaviour-is-applied + #:behaviour-actors-foreach + #:behaviour-get-actors + #:behaviour-get-n-actors + #:behaviour-get-nth-actor + #:behaviour-get-alpha + #:behaviour-set-alpha + #:behaviour-depth-new + #:behaviour-depth-set-bounds + #:behaviour-depth-get-bounds + #:behaviour-ellipse-new + #:behaviour-ellipse-set-center + #:behaviour-ellipse-get-center + #:behaviour-ellipse-set-angle-start + #:behaviour-ellipse-get-angle-start + #:behaviour-ellipse-set-angle-end + #:behaviour-ellipse-get-angle-end + #:behaviour-ellipse-set-angle-tilt + #:behaviour-ellipse-get-angle-tilt + #:behaviour-ellipse-set-height + #:behaviour-ellipse-get-height + #:behaviour-ellipse-set-width + #:behaviour-ellipse-get-width + #:behaviour-ellipse-set-tilt + #:behaviour-ellipse-get-tilt + #:behaviour-ellipse-set-direction + #:behaviour-ellipse-get-direction + #:behaviour-opacity-new + #:behaviour-opacity-set-bounds + #:behaviour-opacity-get-bounds + #:behaviour-path-new + #:behaviour-path-new-with-description + #:behaviour-path-new-with-knots + #:behaviour-path-set-path + #:behaviour-path-get-path + #:knot-copy + #:knot-free + #:knot-equal + #:path-new + #:path-new-with-description + #:path-add-move-to + #:path-add-rel-move-to + #:path-add-line-to + #:path-add-rel-line-to + #:path-add-curve-to + #:path-add-rel-curve-to + #:path-add-close + #:path-add-string + #:path-add-node + #:path-add-cairo-path + #:path-get-n-nodes + #:path-get-node + #:path-get-nodes + #:path-foreach + #:path-insert-node + #:path-remove-node + #:path-replace-node + #:path-get-description + #:path-set-description + #:path-to-cairo-path + #:path-clear + #:path-get-position + #:path-get-length + #:path-node-copy + #:path-node-free + #:path-node-equal + #:behaviour-rotate-new + #:behaviour-rotate-set-axis + #:behaviour-rotate-get-axis + #:behaviour-rotate-set-direction + #:behaviour-rotate-get-direction + #:behaviour-rotate-set-bounds + #:behaviour-rotate-get-bounds + #:behaviour-rotate-set-center + #:behaviour-rotate-get-center + #:behaviour-scale-new + #:behaviour-scale-set-bounds + #:behaviour-scale-get-bounds + #:interval-new-with-values + #:interval-clone + #:interval-get-value-type + #:interval-set-initial-value + #:interval-get-initial-value + #:interval-peek-initial-value + #:interval-set-final-value + #:interval-get-final-value + #:interval-peek-final-value + #:interval-compute-value + #:interval-validate + #:interval-register-progress-func + #:animation-new + #:animation-set-object + #:animation-get-object + #:animation-set-mode + #:animation-get-mode + #:animation-set-duration + #:animation-get-duration + #:animation-set-loop + #:animation-get-loop + #:animation-set-timeline + #:animation-get-timeline + #:animation-set-alpha + #:animation-get-alpha + #:animation-completed + #:animation-bind + #:animation-bind-interval + #:animation-update-interval + #:animation-has-property + #:animation-unbind-property + #:animation-get-interval + #:actor-animatev + #:actor-animate-with-timelinev + #:actor-animate-with-alphav + #:actor-get-animation + #:animatable-animate-property + #:color-new + #:color-copy + #:color-free + #:color-equal + #:color-hash + #:color-from-string + #:color-to-string + #:color-from-hls + #:color-to-hls + #:color-from-pixel + #:color-to-pixel + #:color-add + #:color-subtract + #:color-lighten + #:color-darken + #:color-shade + #:param-spec-color + #:value-set-color + #:value-get-color + #:binding-pool-new + #:binding-pool-get-for-class + #:binding-pool-find + #:binding-pool-install-action + #:binding-pool-install-closure + #:binding-pool-override-action + #:binding-pool-override-closure + #:binding-pool-find-action + #:binding-pool-remove-action + #:binding-pool-block-action + #:binding-pool-unblock-action + #:binding-pool-activate + #:event-new + #:event-copy + #:event-free + #:event-type + #:event-get-coords + #:event-get-state + #:event-get-time + #:event-get-source + #:event-get-stage + #:event-get-flags + #:event-get + #:event-peek + #:event-put + #:events-pending + #:event-get-button + #:event-get-click-count + #:event-get-key-symbol + #:event-get-key-code + #:event-get-key-unicode + #:keysym-to-unicode + #:event-get-related + #:event-get-scroll-direction + #:event-get-device + #:event-get-device-id + #:event-get-device-type + #:get-input-device-for-id + #:input-device-get-device-id + #:input-device-get-device-type + #:get-current-event-time + #:init + #:init-with-args + #:get-option-group + #:get-option-group-without-init + #:main + #:main-quit + #:main-level + #:get-debug-enabled + #:get-show-fps + #:get-timestamp + #:get-actor-by-gid + #:set-default-frame-rate + #:get-default-frame-rate + #:set-motion-events-enabled + #:get-motion-events-enabled + #:clear-glyph-cache + #:set-font-flags + #:get-font-flags + #:get-font-map + #:threads-set-lock-functions + #:threads-init + #:threads-enter + #:threads-leave + #:threads-add-idle + #:threads-add-idle-full + #:threads-add-timeout + #:threads-add-timeout-full + #:threads-add-frame-source + #:threads-add-frame-source-full + #:threads-add-repaint-func + #:threads-remove-repaint-func + #:get-keyboard-grab + #:get-pointer-grab + #:grab-keyboard + #:grab-pointer + #:ungrab-keyboard + #:ungrab-pointer + #:grab-pointer-for-device + #:ungrab-pointer-for-device + #:do-event + #:shader-new + #:shader-set-vertex-source + #:shader-get-vertex-source + #:shader-set-fragment-source + #:shader-get-fragment-source + #:shader-compile + #:shader-release + #:shader-is-compiled + #:shader-set-is-enabled + #:shader-get-is-enabled + #:shader-set-uniform + #:shader-get-cogl-program + #:shader-get-cogl-fragment-shader + #:shader-get-cogl-vertex-shader + #:value-set-shader-float + #:value-get-shader-float + #:value-set-shader-int + #:value-get-shader-int + #:value-set-shader-matrix + #:value-get-shader-matrix + #:units-mm + #:units-pt + #:units-em + #:units-em-for-font + #:units-pixels + #:units-to-pixels + #:units-copy + #:units-free + #:units-get-unit-type + #:units-get-unit-value + #:units-from-string + #:units-to-string + #:param-spec-units + #:value-set-units + #:value-get-units + #:util-next-p2 + #:timeout-pool-new + #:timeout-pool-add + #:timeout-pool-remove + #:frame-source-add + #:frame-source-add-full + #:param-spec-fixed + #:value-set-fixed + #:value-get-fixed + #:script-new + #:script-load-from-data + #:script-load-from-file + #:script-add-search-paths + #:script-lookup-filename + #:script-get-object + #:script-unmerge-objects + #:script-ensure-objects + #:script-list-objects + #:script-connect-signals + #:script-connect-signals-full + #:script-get-type-from-name + #:get-script-id + #:scriptable-set-id + #:scriptable-get-id + #:scriptable-parse-custom-node + #:scriptable-set-custom-property + #:model-set-names + #:model-set-types + #:model-get-column-name + #:model-get-column-type + #:model-get-n-columns + #:model-get-n-rows + #:model-appendv + #:model-prependv + #:model-insertv + #:model-insert-value + #:model-remove + #:model-foreach + #:model-set-sorting-column + #:model-get-sorting-column + #:model-set-sort + #:model-resort + #:model-set-filter + #:model-get-filter-set + #:model-filter-iter + #:model-filter-row + #:model-get-first-iter + #:model-get-last-iter + #:model-get-iter-at-row + #:model-iter-copy + #:model-iter-get-valist + #:model-iter-get-value + #:model-iter-set-valist + #:model-iter-set-value + #:model-iter-is-first + #:model-iter-is-last + #:model-iter-next + #:model-iter-prev + #:model-iter-get-model + #:model-iter-get-row + #:list-model-newv + #:get-default-backend + #:backend-set-resolution + #:backend-get-resolution + #:backend-set-double-click-time + #:backend-get-double-click-time + #:backend-set-double-click-distance + #:backend-get-double-click-distance + #:backend-set-font-options + #:backend-get-font-options + #:backend-set-font-name + #:backend-get-font-name + #:cogl-handle-ref + #:cogl-handle-unref + #:cogl-get-features + #:cogl-features-available + #:cogl-check-extension + #:cogl-get-proc-address + #:cogl-get-option-group + #:cogl-gl-error-to-string + #:cogl-push-matrix + #:cogl-pop-matrix + #:cogl-scale + #:cogl-translate + #:cogl-rotate + #:cogl-frustum + #:cogl-perspective + #:cogl-ortho + #:cogl-get-modelview-matrix + #:cogl-set-modelview-matrix + #:cogl-get-projection-matrix + #:cogl-set-projection-matrix + #:cogl-viewport + #:cogl-get-viewport + #:cogl-clear + #:cogl-get-bitmasks + #:cogl-set-depth-test-enabled + #:cogl-get-depth-test-enabled + #:cogl-set-backface-culling-enabled + #:cogl-get-backface-culling-enabled + #:cogl-set-fog + #:cogl-disable-fog + #:cogl-set-source + #:cogl-set-source-color + #:cogl-set-source-color4ub + #:cogl-set-source-color4f + #:cogl-set-source-texture + #:cogl-read-pixels + #:cogl-flush + #:cogl-begin-gl + #:cogl-end-gl + #:cogl-color-new + #:cogl-color-copy + #:cogl-color-free + #:cogl-color-set-from-4ub + #:cogl-color-set-from-4f + #:cogl-color-get-red + #:cogl-color-get-green + #:cogl-color-get-blue + #:cogl-color-get-alpha + #:cogl-color-get-red-byte + #:cogl-color-get-green-byte + #:cogl-color-get-blue-byte + #:cogl-color-get-alpha-byte + #:cogl-color-get-red-float + #:cogl-color-get-green-float + #:cogl-color-get-blue-float + #:cogl-color-get-alpha-float + #:cogl-texture-new-with-size + #:cogl-texture-new-from-file + #:cogl-texture-new-from-data + #:cogl-texture-new-from-foreign + #:cogl-texture-new-from-bitmap + #:cogl-is-texture + #:cogl-texture-ref + #:cogl-texture-unref + #:cogl-texture-get-width + #:cogl-texture-get-height + #:cogl-texture-get-format + #:cogl-texture-get-rowstride + #:cogl-texture-get-max-waste + #:cogl-texture-is-sliced + #:cogl-texture-get-gl-texture + #:cogl-texture-get-data + #:cogl-texture-set-region + #:cogl-material-new + #:cogl-material-ref + #:cogl-material-unref + #:cogl-is-material + #:cogl-material-set-color + #:cogl-material-set-color4ub + #:cogl-material-set-color4f + #:cogl-material-get-color + #:cogl-material-set-ambient + #:cogl-material-get-ambient + #:cogl-material-set-diffuse + #:cogl-material-get-diffuse + #:cogl-material-set-ambient-and-diffuse + #:cogl-material-set-emission + #:cogl-material-get-emission + #:cogl-material-set-specular + #:cogl-material-get-specular + #:cogl-material-set-shininess + #:cogl-material-get-shininess + #:cogl-material-set-alpha-test-function + #:cogl-material-set-blend + #:cogl-material-set-blend-constant + #:cogl-material-set-layer + #:cogl-material-remove-layer + #:cogl-material-set-layer-combine + #:cogl-material-set-layer-combine-constant + #:cogl-material-set-layer-matrix + #:cogl-material-get-layers + #:cogl-material-set-layer-filters + #:cogl-material-layer-get-type + #:cogl-material-layer-get-texture + #:cogl-material-layer-get-min-filter + #:cogl-material-layer-get-mag-filter + #:cogl-rectangle + #:cogl-rectangles + #:cogl-rectangle-with-texture-coords + #:cogl-rectangles-with-texture-coords + #:cogl-rectangle-with-multitexture-coords + #:cogl-polygon + #:cogl-path-new + #:cogl-path-move-to + #:cogl-path-close + #:cogl-path-line-to + #:cogl-path-curve-to + #:cogl-path-arc + #:cogl-path-rel-move-to + #:cogl-path-rel-line-to + #:cogl-path-rel-curve-to + #:cogl-path-line + #:cogl-path-polyline + #:cogl-path-polygon + #:cogl-path-rectangle + #:cogl-path-round-rectangle + #:cogl-path-ellipse + #:cogl-path-fill + #:cogl-path-fill-preserve + #:cogl-path-stroke + #:cogl-path-stroke-preserve + #:cogl-vertex-buffer-new + #:cogl-vertex-buffer-get-n-vertices + #:cogl-vertex-buffer-ref + #:cogl-vertex-buffer-unref + #:cogl-vertex-buffer-add + #:cogl-vertex-buffer-delete + #:cogl-vertex-buffer-submit + #:cogl-vertex-buffer-disable + #:cogl-vertex-buffer-enable + #:cogl-vertex-buffer-draw + #:cogl-vertex-buffer-indices-new + #:cogl-vertex-buffer-delete-indices + #:cogl-vertex-buffer-draw-elements + #:cogl-vertex-buffer-indices-get-for-quads + #:cogl-matrix-init-identity + #:cogl-matrix-frustum + #:cogl-matrix-ortho + #:cogl-matrix-perspective + #:cogl-matrix-transform-point + #:cogl-matrix-multiply + #:cogl-matrix-rotate + #:cogl-matrix-translate + #:cogl-matrix-scale + #:cogl-matrix-init-from-array + #:cogl-matrix-get-array + #:cogl-create-shader + #:cogl-shader-ref + #:cogl-shader-unref + #:cogl-is-shader + #:cogl-shader-source + #:cogl-shader-compile + #:cogl-shader-get-info-log + #:cogl-shader-get-type + #:cogl-shader-is-compiled + #:cogl-create-program + #:cogl-program-ref + #:cogl-program-unref + #:cogl-is-program + #:cogl-program-attach-shader + #:cogl-program-link + #:cogl-program-use + #:cogl-program-get-uniform-location + #:cogl-program-uniform-1f + #:cogl-program-uniform-1i + #:cogl-program-uniform-float + #:cogl-program-uniform-int + #:cogl-program-uniform-matrix + #:cogl-offscreen-new-to-texture + #:cogl-offscreen-ref + #:cogl-offscreen-unref + #:cogl-is-offscreen + #:cogl-set-draw-buffer + #:cogl-pop-draw-buffer + #:cogl-push-draw-buffer + #:cogl-sqrti + #:cogl-fixed-atan2 + #:cogl-fixed-atani + #:cogl-fixed-cos + #:cogl-fixed-log2 + #:cogl-fixed-pow + #:cogl-fixed-pow2 + #:cogl-fixed-sin + #:cogl-fixed-sqrt + #:cogl-fixed-tan + #:cogl-angle-cos + #:cogl-angle-sin + #:cogl-angle-tan + #:g-object-set-property + #:g-object-get-property + #:g-signal-connect-data + #:g-signal-handler-find + #:g-signal-handlers-disconnect-matched + #:g-signal-handler-is-connected + #:g-signal-handler-disconnect + #:g-signal-has-handler-pending + #:g-signal-stop-emission + #:g-signal-stop-emission-by-name + #:g-value-init + #:g-value-copy + #:g-value-reset + #:g-value-unset + #:g-value-set-instance + #:g-value-fits-pointer + #:g-value-peek-pointer + #:g-value-type-compatible + #:g-value-type-transformable + #:g-value-transform + #:g-value-register-transform-func + #:g-strdup-value-contents + #:g-value-set-boolean + #:g-value-get-boolean + #:g-value-set-char + #:g-value-get-char + #:g-value-set-uchar + #:g-value-get-uchar + #:g-value-set-int + #:g-value-get-int + #:g-value-set-uint + #:g-value-get-uint + #:g-value-set-long + #:g-value-get-long + #:g-value-set-ulong + #:g-value-get-ulong + #:g-value-set-int64 + #:g-value-get-int64 + #:g-value-set-uint64 + #:g-value-get-uint64 + #:g-value-set-float + #:g-value-get-float + #:g-value-set-double + #:g-value-get-double + #:g-value-set-enum + #:g-value-get-enum + #:g-value-set-flags + #:g-value-get-flags + #:g-value-set-string + #:g-value-set-static-string + #:g-value-take-string + #:g-value-set-string-take-ownership + #:g-value-dup-string + #:g-type-from-name + #:g-type-name + #:g-object-ref + #:g-object-unref + #:g-object-ref-sink + #:g-object-is-floating + #:g-object-force-floating + #:g-object-weak-ref + #:g-object-weak-unref + #:g-object-add-weak-pointer + #:g-object-remove-weak-pointer + #:g-object-add-toggle-ref + #:g-object-remove-toggle-ref + #:g-object-freeze-notify + #:g-object-thaw-notify + #:g-thread-init #:event-get-coords - #:make-color - #:free-color #:copy-color #:with-color #:with-colors @@ -1056,11 +1052,6 @@ #:make-g-value #:g-value #:make-behaviour-path-with-knots - #:get-preferred-size - #:get-preferred-width - #:get-preferred-height - #:get-size - #:get-actor-at-position #:connect-new-frame-handler #:connect-marker-reached-handler #:score-append @@ -1069,10 +1060,10 @@ #:get-color #:connect-one-pointer-signal #:connect-two-pointer-signal - #:%g-signal-handler-block - #:%g-signal-handler-unblock - #:%g-signal-handlers-block-matched - #:%g-signal-handlers-unblock-matched + #:g-signal-handler-block + #:g-signal-handler-unblock + #:g-signal-handlers-block-matched + #:g-signal-handlers-unblock-matched #:actor #:actor-class #:flags @@ -1116,19 +1107,19 @@ #:notify #:constructed #:g-param-spec - #:%g-object-class-install-property - #:%g-object-class-find-property - #:%g-object-class-list-properties - #:%g-object-class-override-property - #:%g-object-interface-install-property - #:%g-object-interface-find-property - #:%g-object-interface-list-properties - #:%g-object-newv + #:g-object-class-install-property + #:g-object-class-find-property + #:g-object-class-list-properties + #:g-object-class-override-property + #:g-object-interface-install-property + #:g-object-interface-find-property + #:g-object-interface-list-properties + #:g-object-newv #:g-parameter #:name #:value - #:%g-type-register-static - #:%g-type-register-static-simple + #:g-type-register-static + #:g-type-register-static-simple #:g-type-info #:class-size #:base-init @@ -1140,50 +1131,50 @@ #:n-preallocs #:instance-init #:value-table - #:%g-type-class-peek - #:%g-type-class-peek-static - #:%g-type-class-peek-parent - #:%g-param-spec-boolean - #:%g-param-spec-char - #:%g-param-spec-uchar - #:%g-param-spec-int - #:%g-param-spec-uint - #:%g-param-spec-long - #:%g-param-spec-ulong - #:%g-param-spec-int64 - #:%g-param-spec-uint64 - #:%g-param-spec-float - #:%g-param-spec-double - #:%g-param-spec-enum - #:%g-param-spec-flags - #:%g-param-spec-string - #:%g-param-spec-param - #:%g-param-spec-boxed - #:%g-param-spec-pointer - #:%g-param-spec-object - #:%g-param-spec-unichar - #:%g-param-spec-gtype - #:%g-value-set-param - #:%g-value-take-param - #:%g-value-get-param - #:%g-value-dup-param - #:%g-value-set-boxed - #:%g-value-set-static-boxed - #:%g-value-take-boxed - #:%g-value-set-boxed-take-ownership - #:%g-value-get-boxed - #:%g-value-dup-boxed - #:%g-value-set-pointer - #:%g-value-get-pointer - #:%g-value-set-object - #:%g-value-take-object - #:%g-value-set-object-take-ownership - #:%g-value-get-object - #:%g-value-dup-object - #:%g-param-spec-value-array - #:%g-value-get-gtype - #:%g-value-set-gtype - #:%g-object-notify + #:g-type-class-peek + #:g-type-class-peek-static + #:g-type-class-peek-parent + #:g-param-spec-boolean + #:g-param-spec-char + #:g-param-spec-uchar + #:g-param-spec-int + #:g-param-spec-uint + #:g-param-spec-long + #:g-param-spec-ulong + #:g-param-spec-int64 + #:g-param-spec-uint64 + #:g-param-spec-float + #:g-param-spec-double + #:g-param-spec-enum + #:g-param-spec-flags + #:g-param-spec-string + #:g-param-spec-param + #:g-param-spec-boxed + #:g-param-spec-pointer + #:g-param-spec-object + #:g-param-spec-unichar + #:g-param-spec-gtype + #:g-value-set-param + #:g-value-take-param + #:g-value-get-param + #:g-value-dup-param + #:g-value-set-boxed + #:g-value-set-static-boxed + #:g-value-take-boxed + #:g-value-set-boxed-take-ownership + #:g-value-get-boxed + #:g-value-dup-boxed + #:g-value-set-pointer + #:g-value-get-pointer + #:g-value-set-object + #:g-value-take-object + #:g-value-set-object-take-ownership + #:g-value-get-object + #:g-value-dup-object + #:g-param-spec-value-array + #:g-value-get-gtype + #:g-value-set-gtype + #:g-object-notify #:get-g-type #:define-properties-id-map #:unregister-resource @@ -1194,41 +1185,41 @@ #:lisp-actor-resource #:register-lisp-actor #:lisp-actor - #:%g-signal-newv - #:%g-signal-new-valist - #:%g-signal-query - #:%g-signal-query - #:%g-signal-lookup - #:%g-signal-name - #:%g-signal-list-ids - #:%g-signal-emitv - #:%g-signal-emit-valist - #:%g-signal-connect-object - #:%g-signal-connect-data - #:%g-signal-connect-closure - #:%g-signal-connect-closure-by-id - #:%g-signal-handler-block - #:%g-signal-handler-unblock - #:%g-signal-handler-disconnect - #:%g-signal-handler-find - #:%g-signal-handlers-block-matched - #:%g-signal-handlers-unblock-matched - #:%g-signal-handlers-disconnect-matched - #:%g-signal-handler-is-connected - #:%g-signal-has-handler-pending - #:%g-signal-stop-emission - #:%g-signal-stop-emission-by-name - #:%g-signal-override-class-closure - #:%g-signal-chain-from-overridden - #:%g-signal-override-class-handler - #:%g-signal-add-emission-hook - #:%g-signal-remove-emission-hook - #:%g-signal-parse-name - #:%g-signal-get-invocation-hint - #:%g-signal-type-cclosure-new - #:%g-signal-accumulator-true-handled - #:%g-value-init - #:%g-value-copy + #:g-signal-newv + #:g-signal-new-valist + #:g-signal-query + #:g-signal-query + #:g-signal-lookup + #:g-signal-name + #:g-signal-list-ids + #:g-signal-emitv + #:g-signal-emit-valist + #:g-signal-connect-object + #:g-signal-connect-data + #:g-signal-connect-closure + #:g-signal-connect-closure-by-id + #:g-signal-handler-block + #:g-signal-handler-unblock + #:g-signal-handler-disconnect + #:g-signal-handler-find + #:g-signal-handlers-block-matched + #:g-signal-handlers-unblock-matched + #:g-signal-handlers-disconnect-matched + #:g-signal-handler-is-connected + #:g-signal-has-handler-pending + #:g-signal-stop-emission + #:g-signal-stop-emission-by-name + #:g-signal-override-class-closure + #:g-signal-chain-from-overridden + #:g-signal-override-class-handler + #:g-signal-add-emission-hook + #:g-signal-remove-emission-hook + #:g-signal-parse-name + #:g-signal-get-invocation-hint + #:g-signal-type-cclosure-new + #:g-signal-accumulator-true-handled + #:g-value-init + #:g-value-copy #:function-pointer #:container-iface #:add @@ -1244,7 +1235,7 @@ #:actor-added #:actor-removed #:child-notify - #:%g-type-add-interface-static + #:g-type-add-interface-static #:g-interface-info #:interface-init #:interface-finalize package.lisp @@ -8,34 +8,22 @@ (%event-get-coords event x y) (list (mem-ref x :float) (mem-ref y :float)))) -;; on the other hand, is there a point of those single line wrappers? -(declaim (inline make-color free-color copy-color set-color)) -(defun make-color (red green blue &optional (alpha 255)) - (%color-new red green blue alpha)) - -(defun free-color (color) - (%color-free color)) - -(defun copy-color (color) - (%color-copy color)) - -(defun set-color (color r g b &optional (a 255)) - (setf (foreign-slot-value color 'color 'red) r - (foreign-slot-value color 'color 'green) g - (foreign-slot-value color 'color 'blue) b - (foreign-slot-value color 'color 'alpha) a) +(defun set-color (color r g b &optional (a (foreign-slot-value color 'color 'alpha))) + (with-foreign-slots ((red green blue alpha) color color) + (setf red r + green g + blue b + alpha a)) color) (defun get-color (color) - (list (foreign-slot-value color 'color 'red) - (foreign-slot-value color 'color 'green) - (foreign-slot-value color 'color 'blue) - (foreign-slot-value color 'color 'alpha))) + (with-foreign-slots ((red green blue alpha) color color) + (list red green blue alpha))) (defmacro with-color ((var red green blue &optional (alpha 255)) &body body) - `(let ((,var (make-color ,red ,green ,blue ,alpha))) + `(let ((,var (color-new ,red ,green ,blue ,alpha))) (unwind-protect (progn ,@body) - (free-color ,var)))) + (color-free ,var)))) (defmacro with-colors (color-specs &body body) (if (cdr color-specs) @@ -113,7 +101,7 @@ (foreign-slot-value knot 'knot 'y) y))) (%behaviour-path-new-with-knots alpha knots n)))) -(defun get-preferred-size (actor) +(defun actor-get-preferred-size (actor) (with-foreign-objects ((min-width :float) (min-height :float) (natural-width :float) @@ -122,14 +110,14 @@ (values (mem-ref min-width :float) (mem-ref min-height :float) (mem-ref natural-width :float) (mem-ref natural-height :float)))) -(defun get-preferred-width (actor for-height) +(defun actor-get-preferred-width (actor for-height) (with-foreign-objects ((min-width :float) (natural-width :float)) (%actor-get-preferred-width actor for-height min-width natural-width) (values (mem-ref min-width :float) (mem-ref natural-width :float)))) -(defun get-preferred-height (actor for-width) +(defun actor-get-preferred-height (actor for-width) (with-foreign-objects ((min-height :float) (natural-height :float)) (%actor-get-preferred-height actor for-width min-height natural-height) @@ -137,14 +125,14 @@ (mem-ref natural-height :float)))) -(defun get-size (actor) +(defun actor-get-size (actor) (with-foreign-objects ((width :float) (height :float)) (%actor-get-size actor width height) (values (mem-ref width :float) (mem-ref height :float)))) -(defun get-actor-at-position (stage pick-mode x y) +(defun stage-get-actor-at-position (stage pick-mode x y) (let ((result (%stage-get-actor-at-pos stage pick-mode x y))) (if (null-pointer-p result) nil @@ -153,7 +141,7 @@ (defun score-append (score parent timeline) (%score-append score (if parent parent (null-pointer)) timeline)) -(defun get-geometry (actor) +(defun actor-get-geometry (actor) (with-foreign-object (geometry 'geometry) (%actor-get-geometry actor geometry) (list (foreign-slot-value geometry 'geometry 'x) wrappers.lisp 9a8cf7f4bf95e683788c4286488a81fabe86459c Ramarren ramarren@gmail.com http://github.com/Ramarren/cffi-clutter/commit/27cdf04015351fe3f1858233f3bda69af74590f0 27cdf04015351fe3f1858233f3bda69af74590f0 2009-07-09T10:16:10-07:00 2009-07-09T10:16:10-07:00 Add inline wrappers layer Add additional layer of functions without % prefix. In most cases those are simple inline calls to a C function, but now it is easier to add a real wrapper without introducing incongruities in the library interface. 361d57eaae442be84658bf60d4e7e417690a65cf Ramarren ramarren@gmail.com