[Pkg] The Trunk: Morphic-topa.1155.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jun 1 10:08:33 UTC 2016


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!



More information about the Packages mailing list