'From Cuis 5.0 of 7 November 2016 [latest update: #3740] on 9 May 2019 at 2:19:12 pm'!

!AbstractFont class methodsFor: '*proposed' stamp: 'KenD 5/9/2019 14:05:30'!
availableFonts

	"Only dictionary values wanted"
	^ FontFamily availableFamilies values! !


!FontFamily methodsFor: '*proposed' stamp: 'KenD 5/9/2019 14:07:49'!
baseFontBySizes

	^ baseFontBySizes! !


!FontFamily class methodsFor: '*proposed' stamp: 'KenD 5/9/2019 13:56:18'!
availableFamilies
	"Answer font families available"
	
	^AvailableFamilies! !


!Morph methodsFor: 'meta-actions' stamp: 'KenD 5/8/2019 20:51:33'!
potentialEmbeddingTargets
	"Return the potential targets for embedding the receiver"
	| myRect myWorld |
	owner ifNil:[^#()].
	myWorld := owner world ifNil:[^#()].
	myRect := self morphBoundsInWorld.
	^myWorld submorphs select: [ :m |
		m isReallyVisible
		and: [ m isLocked not
			and: [(m morphBoundsInWorld intersects: myRect)
				and: [(m ~= self)
					and: [(m isKindOf: HaloMorph) not]]]]
		]! !


!AbstractFont class reorganize!
('instance accessing' default familyName:aroundPointSize: familyName:pointSize: familyNames fromUser fromUser: pointSizesFor:)
('class initialization')
('constants' boldCode italicCode normalCode struckThroughCode subscriptCode superscriptCode underlinedCode withST80GlyphsCode)
('*sf2-import')
('*proposed' availableFonts)
!


!FontFamily reorganize!
('initialization' familyName:)
('accessing' aroundPointSize: atPointSize: familyName pointSizes)
('*proposed' baseFontBySizes)
!


!FontFamily class reorganize!
('accessing' defaultFamilyName defaultPointSize familyNames)
('initialization' addFamily: defaultFamilyName: defaultPointSize:)
('accessing fonts' defaultFamilyAndPointSize defaultFamilyPointSize: familyName:aroundPointSize: familyName:pointSize: pointSizesFor:)
('*proposed' availableFamilies)
!

