diff options
| -rw-r--r-- | osfont.icl | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -29,11 +29,11 @@ instance == OSFont where (==) f1 f2 = f1.osfontsize==f2.osfontsize && f1.osfontstyles==f2.osfontstyles && f1.osfontname==f2.osfontname
// Font constants:
-osSerifFontDef :: OSFontDef; osSerifFontDef = ("Times New Roman",[],10)
-osSansSerifFontDef :: OSFontDef; osSansSerifFontDef = ("Arial", [],10)
-osSmallFontDef :: OSFontDef; osSmallFontDef = ("Small Fonts", [],7 )
-osNonProportionalFontDef :: OSFontDef; osNonProportionalFontDef= ("Courier New", [],10)
-osSymbolFontDef :: OSFontDef; osSymbolFontDef = ("Symbol", [],10)
+osSerifFontDef :: OSFontDef; osSerifFontDef = ("Serif", [],10)
+osSansSerifFontDef :: OSFontDef; osSansSerifFontDef = ("Sans", [],10)
+osSmallFontDef :: OSFontDef; osSmallFontDef = ("Sans", [],7 )
+osNonProportionalFontDef :: OSFontDef; osNonProportionalFontDef= ("Monospace", [],10)
+osSymbolFontDef :: OSFontDef; osSymbolFontDef = ("Symbol", [],10)
osSelectfont :: !OSFontDef !*OSToolbox -> (!Bool,!Font,!*OSToolbox)
@@ -48,7 +48,7 @@ osDefaultfont tb where
def = (name,styles,size)
imp = {osfontname=name,osfontstyles=sStyle2IStyle styles,osfontsize=size}
- name = "Times New Roman"
+ name = "Sans"
styles = []
size = 10
@@ -58,7 +58,7 @@ osDialogfont tb where
def = (name,styles,size)
imp = {osfontname=name,osfontstyles=sStyle2IStyle styles,osfontsize=size}
- name = "MS Sans Serif"
+ name = "Sans"
styles = []
size = 8
|