"
	AbstractFont fromUser
	FontPicker
		FontPicker promptUser
"

dict _ (FontFamily bindingOf: 'AvailableFamilies') value.
#('DejaVu Sans Mono' 'DejaVu') do: [ :familyName |
	family _ FontFamily familyNamed: familyName.
	family class = StrikeFontFamily ifTrue: [
		newName _ familyName, ' Bitmap'.
		family instVarNamed: 'familyName' put: newName.
		dict at: newName put: family.
		dict removeKey: familyName.
		FontFamily defaultFamilyName = familyName ifTrue: [
			FontFamily defaultFamilyName: newName defaultPointSize: nil ].
		StrikeFont allInstancesDo: [ :sf |
			((sf name beginsWith: familyName) and: [ (sf name beginsWith: newName) not])
				ifTrue: [ sf name: (newName, (sf name copyFrom: familyName size+1 to: sf name size)) ]]
	].
].
