steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.text.pango: don't create unnecessary font objects.

db4
John Benediktsson 2012-09-17 14:17:57 -07:00
parent eb1a4db801
commit 25aadd2dc2
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/ui/text/pango/pango.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data alien.strings arrays assocs USING: accessors alien.c-types alien.data alien.strings arrays assocs
cache cairo cairo.ffi classes.struct combinators destructors fonts fry cache cairo cairo.ffi classes.struct combinators destructors fonts fry
gobject.ffi init io.encodings.utf8 kernel math math.rectangles gobject.ffi init io.encodings.utf8 kernel locals math math.rectangles
math.vectors memoize namespaces pango.cairo.ffi pango.ffi sequences math.vectors memoize namespaces pango.cairo.ffi pango.ffi sequences
ui.text ui.text.private ; ui.text ui.text.private ;
IN: ui.text.pango IN: ui.text.pango
@ -10,20 +10,20 @@ IN: ui.text.pango
: pango>float ( n -- x ) PANGO_SCALE /f ; inline : pango>float ( n -- x ) PANGO_SCALE /f ; inline
: float>pango ( x -- n ) PANGO_SCALE * >integer ; inline : float>pango ( x -- n ) PANGO_SCALE * >integer ; inline
MEMO: (cache-font-description) ( font -- description ) MEMO:: (cache-font-description) ( name size bold? italic? -- description )
[ [
[ pango_font_description_new |pango_font_description_free ] dip { pango_font_description_new |pango_font_description_free {
[ name>> utf8 string>alien pango_font_description_set_family ] [ name utf8 string>alien pango_font_description_set_family ]
[ size>> float>pango pango_font_description_set_size ] [ size float>pango pango_font_description_set_size ]
[ bold?>> PANGO_WEIGHT_BOLD PANGO_WEIGHT_NORMAL ? pango_font_description_set_weight ] [ bold? PANGO_WEIGHT_BOLD PANGO_WEIGHT_NORMAL ? pango_font_description_set_weight ]
[ italic?>> PANGO_STYLE_ITALIC PANGO_STYLE_NORMAL ? pango_font_description_set_style ] [ italic? PANGO_STYLE_ITALIC PANGO_STYLE_NORMAL ? pango_font_description_set_style ]
[ drop ] [ ]
} 2cleave } cleave
] with-destructors ; ] with-destructors ;
: cache-font-description ( font -- description ) : cache-font-description ( font -- description )
strip-font-colors (cache-font-description) ; { [ name>> ] [ size>> ] [ bold?>> ] [ italic?>> ] } cleave
(cache-font-description) ;
TUPLE: layout < disposable font string selection layout metrics ink-rect logical-rect image ; TUPLE: layout < disposable font string selection layout metrics ink-rect logical-rect image ;