     [ CTLineGetTypographicBounds ] 3keep [ *CGFloat ] tri@
     typographic-bounds boa ;
 
-TUPLE: line string font line bounds dim bitmap disposed ;
+TUPLE: line string font line bounds dim bitmap age disposed ;
 
 : bounds>dim ( bounds -- dim )
     [ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi

    [
        [ <CFString> &CFRelease ] dip f CTFontCreateWithName
    ] with-destructors ;

<<


! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays alien alien.c-types alien.syntax kernel destructors words
parser accessors fry words hashtables sequences memoize
assocs math math.functions locals init
core-foundation core-foundation.strings
core-foundation.attributed-strings
core-graphics core-graphics.types ;
