mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 11:31:01 +00:00
23 lines
583 B
Smalltalk
23 lines
583 B
Smalltalk
|
"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.
|