The Trunk: Morphic-topa.1155.mcz

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

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

Name: Morphic-topa.1155
Author: topa
Time: 1 June 2016, 12:07:52.187561 pm
UUID: 7b8792c9-7a3f-4c43-85a7-18d40734b624
Ancestors: Morphic-mt.1154

Let the fonts provide their sample

=============== Diff against Morphic-mt.1154 ===============

Item was changed:
  ----- Method: FontChooserTool>>contents (in category 'toolbuilder') -----
  contents
+
+ ^ self selectedFont
+ ifNil: [Text new]
+ ifNotNil: [:font | font sampleText]!
- | sample i c f |
- sample := WriteStream on: ''.
- f := self selectedFont ifNil:[^Text new].
- f isSymbolFont ifFalse:[
- sample
- nextPutAll: 'the quick brown fox jumps over the lazy dog' ;cr;
- nextPutAll:  'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' ;cr;cr;
- nextPutAll: '0123456789'; cr; cr;
- nextPutAll:
- 'Lorem ipsum dolor sit amet, consectetur adipisicing elit,
- sed do eiusmod tempor incididunt ut labore et dolore
- magna aliqua. Ut enim ad minim veniam, quis nostrud
- exercitation ullamco laboris nisi ut aliquip ex ea commodo
- consequat. Duis aute irure dolor in reprehenderit in voluptate
- velit esse cillum dolore eu fugiat nulla pariatur. Excepteur
- sint occaecat cupidatat non proident, sunt in culpa qui
- officia deserunt mollit anim id est laborum.'
- ] ifTrue:[
- i := 0.
- 33 to: 255 do:[:ci |
- sample nextPut: (c:=Character value: ci).
- i := i + 1.
- (('@Z`z' includes:c) or:[i = 30])
- ifTrue:[i :=0. sample cr]].
- ].
- sample := sample contents asText.
- sample addAttribute: (TextFontReference toFont: f).
- ^sample!

Item was changed:
  ----- Method: FontImporterTool>>previewText (in category 'model access') -----
  previewText
+
+ ^ self selectedFont
+ ifNil: [Text new]
+ ifNotNil: [:font | font sampleText]!
- | sample i c f |
- sample := WriteStream on: ''.
- f := self selectedFont ifNil:[^Text new].
- (f isSymbolFont or: [(self font: f hasGlyphOf: $a) not]) ifFalse:[
- sample
- nextPutAll: 'the quick brown fox jumps over the lazy dog' ;cr;
- nextPutAll:  'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' ;cr;cr;
- nextPutAll: '0123456789'; cr; cr;
- nextPutAll:
- 'Lorem ipsum dolor sit amet, consectetur adipisicing elit,
- sed do eiusmod tempor incididunt ut labore et dolore
- magna aliqua. Ut enim ad minim veniam, quis nostrud
- exercitation ullamco laboris nisi ut aliquip ex ea commodo
- consequat. Duis aute irure dolor in reprehenderit in voluptate
- velit esse cillum dolore eu fugiat nulla pariatur. Excepteur
- sint occaecat cupidatat non proident, sunt in culpa qui
- officia deserunt mollit anim id est laborum.'
- ] ifTrue:[
- i := 0.
- 33 to: 255 do:[:ci |
- sample nextPut: (c:=Character value: ci).
- i := i + 1.
- (('@Z`z' includes:c) or:[i = 30])
- ifTrue:[i :=0. sample cr]].
- ].
- sample := sample contents asText.
- sample addAttribute: (TextFontReference toFont: f).
- ^sample!