chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c0e1988
)
Changed to use settable FOREIGN-LOCATION
author
espen
<espen>
Wed, 8 Feb 2006 22:19:44 +0000
(22:19 +0000)
committer
espen
<espen>
Wed, 8 Feb 2006 22:19:44 +0000
(22:19 +0000)
cairo/cairo.lisp
patch
|
blob
|
blame
|
history
diff --git
a/cairo/cairo.lisp
b/cairo/cairo.lisp
index 5d6a5adaff5007bf05e98c57a6bde0f3ec9be1b6..fbf38639d22784e5142f12a360755c6a5dc3d6f8 100644
(file)
--- 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.
;; 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")
(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
(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))
(%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))
(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
(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
(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
(if (not data)
(%image-surface-create format width height)
(%image-surface-create-for-data data format width height