use hott vista fonts on windows 6.x

db4
Joe Groff 2009-09-20 23:34:53 -05:00
parent 3eeaca8631
commit 6645b41fac
1 changed files with 13 additions and 3 deletions

View File

@ -1,13 +1,23 @@
USING: assocs memoize locals kernel accessors init fonts math
combinators windows.errors windows.types windows.gdi32 ;
combinators system-info.windows windows.errors windows.types
windows.gdi32 ;
IN: windows.fonts
: windows-font-name ( string -- string' )
MEMO: windows-fonts ( -- fonts )
windows-major 6 >=
H{
{ "sans-serif" "Calibri" }
{ "serif" "Cambria" }
{ "monospace" "Consolas" }
}
H{
{ "sans-serif" "Tahoma" }
{ "serif" "Times New Roman" }
{ "monospace" "Courier New" }
} ?at drop ;
} ? ;
: windows-font-name ( string -- string' )
windows-fonts ?at drop ;
MEMO:: (cache-font) ( font -- HFONT )
font size>> neg ! nHeight