;; 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.1 2005/11/10 08:50:45 espen Exp $
+;; $Id: cairo.lisp,v 1.3 2006/02/07 17:04:40 espen Exp $
(in-package "CAIRO")
(define-enum-type hint-style :default :none :slight :medium :full)
(define-enum-type hint-metrics :default :off :on)
- (defclass glyph (proxy)
+ (defclass glyph (struct)
((index
:allocation :alien
:initarg :index
(,pname cr)
(,iname cr)))
,(unless clip-p
- (let ((tname (intern (format nil "IN~A-P" name)))
+ (let ((tname (intern (format nil "IN-~A-P" name)))
(ename (intern (format nil "~A-EXTENTS" name))))
`(progn
(defbinding ,tname () boolean
(location pointer))
(defmethod reference-foreign ((class (eql (find-class 'font-options))) location)
- (%font-options-reference location))
+ (%font-options-copy location))
(defmethod unreference-foreign ((class (eql (find-class 'font-options))) location)
(%font-options-destroy location))