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

db4
Joe Groff 2009-08-26 14:58:15 -05:00
parent 2ae4f64d65
commit a56d4ec50d
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