With
[code]Public Function getAppearanceFont(doSmall as Boolean) as String
dim FontSize as Double
if doSmall then
FontSize = NSFontMBS.smallSystemFontSize
else
FontSize = NSFontMBS.systemFontSize
end if
dim theFont as NSFontMBS = NSFontMBS.systemFontOfSize(FontSize)
dim FontName as String = theFont.displayName
Return FontName
End Function[/code]
I get the “systemfont normal” as result. How do I now get the actual name out of this? I need to change fonts in CSS/Html, which doesn’t know anything about a systemfont but needs a concrete name.