The Trunk: Graphics-topa.340.mcz

Tobias Pape uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-topa.340.mcz

==================== Summary ====================

Name: Graphics-topa.340
Author: topa
Time: 1 June 2016, 12:06:46.38159 pm
UUID: 31a4dc33-1d42-4817-bdeb-08b727a63d52
Ancestors: Graphics-bf.339

All fonts should know whether they have a glyph.

Also, provide a sample text styled with a font.

=============== Diff against Graphics-bf.339 ===============

Item was added:
+ ----- Method: AbstractFont>>basicHasGlyphOf: (in category 'testing') -----
+ basicHasGlyphOf: aCharacter
+
+ self subclassResponsibility!

Item was added:
+ ----- Method: AbstractFont>>hasGlyphOf: (in category 'testing') -----
+ hasGlyphOf: aCharacter
+
+ ^ self basicHasGlyphOf: aCharacter!

Item was added:
+ ----- Method: AbstractFont>>sampleText (in category 'example') -----
+ sampleText
+
+ | text |
+ text := (self isSymbolFont or: [(self basicHasGlyphOf: $a) not])
+ ifTrue: [Text symbolSample]
+ ifFalse: [Text textSample].
+ text addAttribute: (TextFontReference toFont: self).
+ ^ text!

Item was added:
+ ----- Method: FixedFaceFont>>basicHasGlyphOf: (in category 'private') -----
+ basicHasGlyphOf: aCharacter
+
+ " We present the same for any character, so, yes"
+ ^ true!

Item was added:
+ ----- Method: StrikeFont>>basicHasGlyphOf: (in category 'multibyte character methods') -----
+ basicHasGlyphOf: aCharacter
+
+ ^ self hasGlyphForCode: (self codeForCharacter: aCharacter)
+ !

Item was removed:
- ----- Method: StrikeFont>>hasGlyphOf: (in category 'multibyte character methods') -----
- hasGlyphOf: aCharacter
-
- ^self hasGlyphForCode: (self codeForCharacter: aCharacter)
- !