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

core-text: always create at least a 1x1 bitmap context. snow leopard refuses to create 0x0 contexts

Joe Groff 2009-08-26 14:58:15 -05:00
parent efca30ced7
commit a49f50c24a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/core-text/core-text.factor
View File

@ -2,10 +2,11 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays alien alien.c-types alien.syntax kernel destructors USING: arrays alien alien.c-types alien.syntax kernel destructors
accessors fry words hashtables strings sequences memoize assocs math accessors fry words hashtables strings sequences memoize assocs math
math.vectors math.rectangles math.functions locals init namespaces math.order math.vectors math.rectangles math.functions locals init
combinators fonts colors cache core-foundation core-foundation.strings namespaces combinators fonts colors cache core-foundation
core-foundation.attributed-strings core-foundation.utilities core-foundation.strings core-foundation.attributed-strings
core-graphics core-graphics.types core-text.fonts core-text.utilities ; core-foundation.utilities core-graphics core-graphics.types
core-text.fonts core-text.utilities ;
IN: core-text IN: core-text
TYPEDEF: void* CTLineRef TYPEDEF: void* CTLineRef
@ -120,7 +121,7 @@ TUPLE: line < disposable line metrics image loc dim ;
(ext) [ (loc) (dim) v+ ] (ext) [ (loc) (dim) v+ ]
loc [ (loc) [ floor ] map ] loc [ (loc) [ floor ] map ]
ext [ (loc) (dim) [ + ceiling ] 2map ] ext [ (loc) (dim) [ + ceiling ] 2map ]
dim [ ext loc [ - >integer ] 2map ] dim [ ext loc [ - >integer 1 max ] 2map ]
metrics [ open-font line compute-line-metrics ] | metrics [ open-font line compute-line-metrics ] |
line >>line line >>line