mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 11:31:01 +00:00
615c291ede
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@18063 72102866-910b-0410-8b05-ffd578937521
52 lines
867 B
Smalltalk
52 lines
867 B
Smalltalk
" listFonts.st
|
|
|
|
Example that will create a 'rtf file containing smaples of all available
|
|
fonts.
|
|
|
|
"
|
|
|
|
[| :text
|
|
|
|
main
|
|
|
|
| fontManager |
|
|
|
|
Environment loadModule:'AppKit'.
|
|
|
|
text := NSTextView alloc initWithFrame:NSNullRect.
|
|
text setRichText:YES.
|
|
|
|
fontManager := NSFontManager sharedFontManager.
|
|
|
|
(fontManager availableFontFamilies)
|
|
do: [ :font |
|
|
self addFontSample:font
|
|
].
|
|
|
|
text writeRTFDToFile:'Fonts.rtf' atomically:YES.
|
|
|
|
^nil
|
|
!
|
|
|
|
addFontSample:fontName
|
|
|
|
| attr font |
|
|
|
|
Transcript showLine:fontName.
|
|
|
|
attr := NSMutableDictionary dictionary.
|
|
font := (NSFont fontWithName:fontName size:36).
|
|
|
|
(font isNil) ifFalse:
|
|
[
|
|
attr setObject:font
|
|
|
|
forKey:NSFontAttributeName.
|
|
|
|
text setTypingAttributes:attr.
|
|
text insertText:(fontName,'\n').
|
|
].
|
|
^self
|
|
|
|
|
|
]
|