> On 01-Sep-02, Gregg Irwin wrote:
> > Fonts need to be installed under Windows. Not knowing how REBOL uses
> > them, maybe finding the files is enough.
From: "Carl Read"
> Just suck it and see...
>
> view layout [
> text "Hello" font [name: "name-of-a-font-on-your-system"]
> ]
Hi, Folks,
OK, I sucked, and saw .... disappointment. When I peeked at the
\windows\fonts directory earlier, I had forgotten that the folder view was
one of Windows fancy folders. Directory reading under DOS looks more
traditional, which means font-names for the files are frequently truncated.
To verify, I quickly hacked the following. Looking like either need a
mapping table or GDI access ... or ... someone needs to save me from myself.
Again!
:-(
--Scott Jones
font-files: read %//windows/fonts/.
font-blk: copy []
foreach font font-files [append font-blk first parse/all font "."]
lo-blk: copy []
foreach font font-blk [
append lo-blk copy [text "hello" font ]
append/only lo-blk append copy [name: ] copy font
]
while [not tail? lo-blk] [
lo-blk: skip lo-blk 60
insert lo-blk 'return
lo-blk: next lo-blk
]
lo-blk: head lo-blk
lo: layout lo-blk
view lo
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
