[squeak-dev] The Trunk: Graphics-nice.257.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 8 23:31:59 UTC 2013


Nicolas Cellier uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-nice.257.mcz

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

Name: Graphics-nice.257
Author: nice
Time: 9 October 2013, 1:30:52.037 am
UUID: 20505844-b570-4fa6-a08e-8140b5cf77e0
Ancestors: Graphics-tpr.256

Give some StrikeFont extensions back to *Multilingual

=============== Diff against Graphics-tpr.256 ===============

Item was removed:
- ----- Method: StrikeFont class>>fixForISO8859From: (in category 'instance creation') -----
- fixForISO8859From: aStrikeFont
- 
- 	^aStrikeFont copy fixForISO8859From: aStrikeFont.
- !

Item was removed:
- ----- Method: StrikeFont class>>newForKoreanFromEFontBDFFile:name:overrideWith: (in category 'instance creation') -----
- newForKoreanFromEFontBDFFile: fileName name: aString overrideWith: otherFileName
- 
- 	| n |
- 	n := self new.
- 	n readEFontBDFForKoreanFromFile: fileName name: aString overrideWith: otherFileName.
- 	^ n.
- !

Item was removed:
- ----- Method: StrikeFont class>>newFromEFontBDFFile:name:ranges: (in category 'instance creation') -----
- newFromEFontBDFFile: fileName name: aString ranges: ranges
- 
- 	| n |
- 	n := self new.
- 	n readEFontBDFFromFile: fileName name: aString ranges: ranges.
- 	^ n.
- !

Item was removed:
- ----- Method: StrikeFont class>>newFromEFontBDFFile:name:startRange:endRange: (in category 'instance creation') -----
- newFromEFontBDFFile: aFileName name: aString startRange: start endRange: end
- 
- 	| n |
- 	n := self new.
- 	n readEFontBDFFromFile: aFileName name: aString rangeFrom: start to: end.
- 	^n.
- 
- 	"TextConstants at: #Helvetica put: (TextStyle fontArray: {StrikeFont newFromBDFFile: 'helvR12.bdf' name: 'Helvetica12'})"
- 	"TextConstants at: #Lucida put: (TextStyle fontArray: {StrikeFont newFromBDFFile: 'luRS12.bdf' name: 'Lucida'})"
- 	"TextStyle default fontAt: 5 put: (StrikeFont new readFromStrike2: 'helv12.sf2')."
- 
- !

Item was removed:
- ----- Method: StrikeFont class>>newFromF12File: (in category 'instance creation') -----
- newFromF12File: aFileName
- 	"StrikeFont newFromF12File: 'kaname.f12'"
- 
- 	| file n |
- 	('*.F12' match: aFileName) ifFalse: ["self halt. " "likely incompatible"].
- 	file := FileStream readOnlyFileNamed: aFileName.
- 	file binary.
- 	n := self new.
- 	n name: (FileDirectory baseNameFor: (FileDirectory localNameFor: aFileName)).
- 	n readF12FromStream: file.
- 	^ n.
- !

Item was removed:
- ----- Method: StrikeFont>>fixForISO8859From: (in category 'multibyte character methods') -----
- fixForISO8859From: aStrikeFont
- 
- 	| fixer m mappingTable |
- 	fixer := StrikeFontFixer newOn: aStrikeFont.
- 	self reset.
- 	xTable := aStrikeFont xTable copy.
- 	glyphs := Form extent: aStrikeFont glyphs extent.
- 	maxAscii := 255.
- 	minAscii := 0.
- 	mappingTable := fixer mappingTable.
- 	"stopConditions := nil."
- 
- 	0 to: 255 do: [:i |
- 		(m := mappingTable at: i+1) ~= nil ifTrue: [
- 			self characterFormAt: (Character value: i)
- 				put: (aStrikeFont characterFormAt: (Character value: m)).
- 		] ifFalse: [
- 			self characterFormAt: (Character value: i)
- 				put: (aStrikeFont characterFormAt: (Character space)).
- 		]
- 	].
- 	^self.	
- !

Item was removed:
- ----- Method: StrikeFont>>readEFontBDFForJapaneseFromFile:name:overrideWith: (in category 'file in/out') -----
- readEFontBDFForJapaneseFromFile: fileName name: aString overrideWith: otherFileName
- 
- 	| fontReader stream |
- 	fontReader := EFontBDFFontReaderForRanges readOnlyFileNamed: fileName.
- 	stream := ReadStream on: (fontReader readRanges: fontReader rangesForJapanese overrideWith: otherFileName otherRanges: {Array with: 8481 with: 12320} additionalOverrideRange: fontReader additionalRangesForJapanese).
- 	xTable := stream next.
- 	glyphs := stream next.
- 	minAscii := stream next.
- 	maxAscii := stream next.
- 	maxWidth := stream next.
- 	ascent := stream next.
- 	descent := stream next.
- 	pointSize := stream next.
- 	name := aString.
- 	type := 0. "no one see this"
- 	superscript := ascent - descent // 3.	
- 	subscript := descent - ascent // 3.	
- 	emphasis := 0.
- 	self reset.
- !

Item was removed:
- ----- Method: StrikeFont>>readEFontBDFForKoreanFromFile:name:overrideWith: (in category 'file in/out') -----
- readEFontBDFForKoreanFromFile: fileName name: aString overrideWith: otherFileName
- 
- 	| fontReader stream |
- 	fontReader := EFontBDFFontReaderForRanges readOnlyFileNamed: fileName.
- 	stream := ReadStream on: (fontReader readRanges: fontReader rangesForKorean overrideWith: otherFileName otherRanges: {Array with: 8481 with: 12320} additionalOverrideRange: fontReader additionalRangesForKorean).
- 	xTable := stream next.
- 	glyphs := stream next.
- 	minAscii := stream next.
- 	maxAscii := stream next.
- 	maxWidth := stream next.
- 	ascent := stream next.
- 	descent := stream next.
- 	pointSize := stream next.
- 	name := aString.
- 	type := 0. "no one see this"
- 	superscript := ascent - descent // 3.	
- 	subscript := descent - ascent // 3.	
- 	emphasis := 0.
- 	self reset.
- !

Item was removed:
- ----- Method: StrikeFont>>readEFontBDFFromFile:name:rangeFrom:to: (in category 'file in/out') -----
- readEFontBDFFromFile: fileName name: aString rangeFrom: startRange to: endRange
- 
- 	| fontReader stream |
- 	fontReader := EFontBDFFontReader readOnlyFileNamed: fileName.
- 	stream := ReadStream on: (fontReader readFrom: startRange to: endRange).
- 	xTable := stream next.
- 	glyphs := stream next.
- 	minAscii := stream next.
- 	maxAscii := stream next.
- 	maxWidth := stream next.
- 	ascent := stream next.
- 	descent := stream next.
- 	pointSize := stream next.
- 	name := aString.
- 	type := 0. "no one see this"
- 	superscript := ascent - descent // 3.	
- 	subscript := descent - ascent // 3.	
- 	emphasis := 0.
- 	self reset.
- !

Item was removed:
- ----- Method: StrikeFont>>readEFontBDFFromFile:name:ranges: (in category 'file in/out') -----
- readEFontBDFFromFile: fileName name: aString ranges: ranges
- 
- 	| fontReader stream |
- 	fontReader := EFontBDFFontReaderForRanges readOnlyFileNamed: fileName.
- 	stream := ReadStream on: (fontReader readRanges: ranges).
- 	xTable := stream next.
- 	glyphs := stream next.
- 	minAscii := stream next.
- 	maxAscii := stream next.
- 	maxWidth := stream next.
- 	ascent := stream next.
- 	descent := stream next.
- 	pointSize := stream next.
- 	name := aString.
- 	type := 0. "no one see this"
- 	superscript := ascent - descent // 3.	
- 	subscript := descent - ascent // 3.	
- 	emphasis := 0.
- 	self reset.
- !

Item was removed:
- ----- Method: StrikeFont>>readF12FromStream: (in category 'file in/out') -----
- readF12FromStream: aStream
- 
- 	| box blt |
- 	minAscii := 0.
- 	maxAscii := 94*94.
- 	ascent := 12.
- 	descent := 0.
- 	pointSize := 12.
- 	superscript := 0.
- 	subscript := 0.
- 	emphasis := 0.
- 	maxWidth := 12.
- 	
- 	box := Form extent: 12 at 12.
- 	glyphs  := Form extent: (94*94*12)@12.
- 	blt := BitBlt toForm: glyphs. 
- 	xTable := XTableForFixedFont new.
- 	xTable maxAscii: maxAscii + 3.
- 	xTable width: 12.
- 	1 to: 256 do:  [:index | 
- 		1 to: 12 do: [:i |
- 			aStream next.
- 		].
- 	].
- 	(minAscii + 1 to: 94*94) do:  [:index | 
- 		self readCharacter: (box bits) from: aStream.
- 		blt copy: ((12*(index-1))@0 extent: 12 at 12) from: 0 at 0 in: box.
- 	].
- !



More information about the Squeak-dev mailing list