From 60ae5fb5480bc31eea602d1319bb416550781c33 Mon Sep 17 00:00:00 2001 Message-Id: <60ae5fb5480bc31eea602d1319bb416550781c33.1714954516.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 8 Feb 2006 22:19:44 +0000 Subject: [PATCH] Changed to use settable FOREIGN-LOCATION Organization: Straylight/Edgeware From: espen --- cairo/cairo.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp index 5d6a5ad..fbf3863 100644 --- a/cairo/cairo.lisp +++ b/cairo/cairo.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: cairo.lisp,v 1.3 2006-02-07 17:04:40 espen Exp $ +;; $Id: cairo.lisp,v 1.4 2006-02-08 22:19:44 espen Exp $ (in-package "CAIRO") @@ -633,7 +633,7 @@ (defbinding %scaled-font-create () pointer (defmethod initialize-instance ((scaled-font scaled-font) &key font-face font-matrix cmt options) (setf - (slot-value scaled-font 'location) + (foreign-location scaled-font) (%scaled-font-create font-face font-matrix cmt options)) (call-next-method)) @@ -661,7 +661,7 @@ (defbinding %font-options-create () pointer) (defmethod initialize-instance ((font-options font-options) &rest initargs) (declare (ignore initargs)) - (setf (slot-value font-options 'location) (%font-options-create)) + (setf (foreign-location font-options) (%font-options-create)) (call-next-method)) (defbinding font-options-merge () nil @@ -738,7 +738,7 @@ (defun surface-mark-dirty (surface &optional x y width height) (defmethod initialize-instance ((surface image-surface) &key width height stride format data) (setf - (slot-value surface 'location) + (foreign-location surface) (if (not data) (%image-surface-create format width height) (%image-surface-create-for-data data format width height -- [mdw]