1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
"NSText test"
Environment loadModule:'AppKit'.
tattr := NSMutableDictionary dictionary.
tattr setObject:(NSFont fontWithName:'Times' size:10)
forKey:NSFontAttributeName.
hattr := NSMutableDictionary dictionary.
hattr setObject:(NSFont fontWithName:'Helvetica' size:10)
forKey:NSFontAttributeName.
text := NSTextView alloc initWithFrame:NSNullRect.
text setRichText:YES.
text setTypingAttributes:tattr.
text insertText:'This is Times\n'.
text setTypingAttributes:hattr.
text insertText:'This is Helvetica\n'.
text writeRTFDToFile:'Test.rtf' atomically:YES.
|
