Merge branch 'master' of git://factorcode.org/git/factor

db4
Joe Groff 2009-09-20 23:59:57 -05:00
commit 6b9954ffad
21 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