@@ -95,7 +95,7 @@ (defun chapter-5-4-on-stage-button-press (stage event) (destructuring-bind (x y) (event-get-coords event) (format t "Clicked stage at (~a, ~a)~&" x y) - (let ((maybe-rec (get-actor-at-position stage :all (truncate x) (truncate y)))) + (let ((maybe-rec (stage-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)) @@ -172,7 +172,7 @@ (rect-color #xff #xff #xff #x99)) (init-clutter) (let ((stage (stage-get-default)) - (pool (timeline (timeline-new 6000)))) + (timeline (pool (timeline-new 6000)))) (group-remove-all stage) (actor-set-size stage 200.0 200.0) (stage-set-color stage stage-color) @@ -295,7 +295,7 @@ (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)))) + (let ((preferred-height (nth-value 1 (actor-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) @@ -316,7 +316,7 @@ (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)))) + (let ((preferred-height (nth-value 1 (actor-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) examples/tutorial.lisp 454e62010821c480222cb97b6bb8f9f2d47bba17 Ramarren ramarren@gmail.com http://github.com/Ramarren/cffi-clutter/commit/3da804d2919b9e02e60d2f2e0d03e6460559ddbe 3da804d2919b9e02e60d2f2e0d03e6460559ddbe 2009-07-10T00:36:15-07:00 2009-07-10T00:36:15-07:00 Fix mistakes. 74aa1056cd13e2b509038d0838dcc6cebd0f1f4e Ramarren ramarren@gmail.com