Last updated at 4:37 am UTC on 11 May 2017
TextConstants is a global variable. It contains among other constants the references to fonts installed in the image.
To obtain a dictionary with just the TextStyles copy the code below into a Workspace and evaluate it
styles := TextConstants select: [:value | value isKindOf: TextStyle].
This is implemented in TextStyle knownTextStyles.
To print out a list of the installed fonts:
styles do: [ :ts | Transcript show: ts fontNamesAndSizes printString, ' '. Transcript cr]