[code]Public Function getAppearanceFont(doSmall as Boolean) as String
dim FontSize as Double
if doSmall then
FontSize = NSFontMBS.smallSystemFontSize
FontSize = NSFontMBS.systemFontSize
dim theFont as NSFontMBS = NSFontMBS.systemFontOfSize(FontSize)
dim FontName as String = theFont.displayName
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.