1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.syntax kernel destructors core-foundation
4 core-foundation.utilities ;
5 IN: core-foundation.attributed-strings
7 TYPEDEF: void* CFAttributedStringRef
9 FUNCTION: CFAttributedStringRef CFAttributedStringCreate (
12 CFDictionaryRef attributes
15 : <CFAttributedString> ( string assoc -- alien )
17 [ >cf &CFRelease ] bi@
18 [ kCFAllocatorDefault ] 2dip CFAttributedStringCreate