Working on core-text binding

basis/core-graphics/core-graphics.factor

@@ -56,4 +56,10 @@ FUNCTION: void CGContextSetRGBFillColor (
    CGFloat green,
    CGFloat blue,
    CGFloat alpha
+) ;
+
+FUNCTION: void CGContextSetTextPosition (
+   CGContextRef c,
+   CGFloat x,
+   CGFloat y
 ) ;

basis/core-text/authors.txt

@@ -0,0 +1 @@
+Slava Pestov

basis/core-text/core-text-tests.factor

@@ -0,0 +1,4 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: tools.test core-text ;
+IN: core-text.tests

basis/core-text/core-text.factor

@@ -0,0 +1,10 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.syntax core-foundation.attributed-strings ;
+IN: core-text
+
+TYPEDEF: void* CTLineRef
+
+FUNCTION: CTLineRef CTLineCreateWithAttributedString ( CFAttributedStringRef string ) ;
+
+FUNCTION: void CTLineDraw ( CTLineRef line, CGContextRef context ) ;