Packages February 2014

packages@lists.squeakfoundation.org

1 participants
48 discussions

The Trunk: Tests-cmm.290.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.290.mcz ==================== Summary ==================== Name: Tests-cmm.290 Author: cmm Time: 17 February 2014, 4:35:24.565 pm UUID: f3fccfae-6baf-4093-ba62-e15ef110a687 Ancestors: Tests-cwp.289 Minor factoring. =============== Diff against Tests-cwp.289 =============== Item was changed: ----- Method: BlockLocalTemporariesRemovalTest>>assert:isChangedDuringParsingTo:withRemovalOfTemporariesNamed: (in category 'test helper') ----- + assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames - assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames - | failBlock | self sourceCode: someCode. + failBlock := [ self fail ]. + [ self class + compile: self sourceCode + notifying: self + trailer: self class defaultMethodTrailer + ifFail: failBlock ] - failBlock := [self fail]. - [self class - compile: self sourceCode - notifying: self - trailer: self class defaultMethodTrailer - ifFail: failBlock] on: UnusedVariable + do: + [ : aNotification | aNotification openMenuIn: + [ : options : emptyCollection : someText | aNotification resume: + (someTempNames anySatisfy: + [ : tempName | someText beginsWith: tempName ]) ] ]. - do: [:aNotification | aNotification - openMenuIn: [:options :emptyCollection :someText | - (someTempNames anySatisfy: [:tempName | someText startsWith: tempName]) - ifTrue: [aNotification resume: true] - ifFalse: [aNotification resume: false]]]. self assert: self sourceCode = someOtherCode!

1 0

The Trunk: Graphics-nice.289.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.289.mcz ==================== Summary ==================== Name: Graphics-nice.289 Author: nice Time: 17 February 2014, 11:29:40.779 pm UUID: e809bcbf-53e1-420b-846a-9e86e0dd1f06 Ancestors: Graphics-nice.288 Fix incorrect display of underscore and caret in case of WideString displayed in DejaVu sans Strike fonts. Those fonts map caret Character (ascii 94) and underscore Character (ascii 95) to xTable at: 128 and 129 to avoid display of up and left arrow (thanks to characterToGlypMap ivar) But some StrikeFont methods did access directly the xTable, ignoring the indirection characterToGlypMap. This is incorrect, and lead to various layout problems because widthOf: correctly takes the indirection into account. Among those problems we can cite: - incorrect measurement of strings, - unconsistent placement of cursor, - weird text selection This fix is a serious candidate for inclusion in 4.5 release, but I let the maintainer decide... =============== Diff against Graphics-nice.288 =============== Item was changed: ----- Method: StrikeFont>>characterFormAt: (in category 'character shapes') ----- characterFormAt: character "Answer a Form copied out of the glyphs for the argument, character." | ascii leftX rightX | + ascii := self codeForCharacter: character. - ascii := character charCode. (ascii between: minAscii and: maxAscii) ifFalse: [ascii := maxAscii + 1]. leftX := xTable at: ascii + 1. rightX := xTable at: ascii + 2. leftX < 0 ifTrue: [^ glyphs copy: (0@0 corner: 0@self height)]. ^ glyphs copy: (leftX @ 0 corner: rightX @ self height)! Item was removed: - ----- Method: StrikeFont>>characterFormAtMulti: (in category 'character shapes') ----- - characterFormAtMulti: character - "Answer a Form copied out of the glyphs for the argument, character." - | ascii leftX rightX | - ascii := character charCode. - (ascii between: minAscii and: maxAscii) ifFalse: [ascii := maxAscii + 1]. - leftX := xTable at: ascii + 1. - rightX := xTable at: ascii + 2. - ^ glyphs copy: (leftX @ 0 corner: rightX @ self height)! Item was changed: ----- Method: StrikeFont>>characters:in:displayAt:clippedBy:rule:fillColor:kernDelta:on: (in category 'displaying') ----- characters: anInterval in: sourceString displayAt: aPoint clippedBy: clippingRectangle rule: ruleInteger fillColor: aForm kernDelta: kernDelta on: aBitBlt "Simple, slow, primitive method for displaying a line of characters. No wrap-around is provided." | destPoint | destPoint := aPoint. anInterval do: [:i | | sourceRect leftX ascii rightX | self flag: #yoDisplay. "if the char is not supported, fall back to the specified fontset." + ascii := self codeForCharacter: (sourceString at: i). - ascii := (sourceString at: i) charCode. (ascii < minAscii or: [ascii > maxAscii]) ifTrue: [ascii := maxAscii]. leftX := xTable at: ascii + 1. rightX := xTable at: ascii + 2. sourceRect := leftX@0 extent: (rightX-leftX) @ self height. aBitBlt copyFrom: sourceRect in: glyphs to: destPoint. destPoint := destPoint + ((rightX-leftX+kernDelta)@0). "destPoint printString displayAt: 0@(i*20)"]. ^ destPoint! Item was added: + ----- Method: StrikeFont>>codeForCharacter: (in category 'private') ----- + codeForCharacter: aCharacter + | code | + code := aCharacter charCode. + (self characterToGlyphMap isNil + or: [ characterToGlyphMap size <= code ]) + ifTrue: [^code]. + ^characterToGlyphMap at: code + 1! Item was changed: ----- Method: StrikeFont>>glyphInfoOf:into: (in category 'accessing') ----- glyphInfoOf: aCharacter into: glyphInfoArray "return the glyph info for aCharacter; if I don't have such a character, try my fallback font, if I have one of those. Unlike some other implementors, the returned info for a missing character is not given for the question-mark but rather the zero-ascii char." | code | (self hasGlyphOf: aCharacter) + ifTrue: [code := self codeForCharacter: aCharacter] - ifTrue: [code := aCharacter charCode] ifFalse: [fallbackFont ifNotNil: [^ fallbackFont glyphInfoOf: aCharacter into: glyphInfoArray]. code := 0]. glyphInfoArray at: 1 put: glyphs; at: 2 put: (xTable at: code + 1); at: 3 put: (xTable at: code + 2); at: 4 put: (self ascentOf: aCharacter); at: 5 put: self. ^ glyphInfoArray! Item was changed: ----- Method: StrikeFont>>glyphOf: (in category 'accessing') ----- glyphOf: aCharacter "Answer the width of the argument as a character in the receiver." | code | (self hasGlyphOf: aCharacter) ifFalse: [ fallbackFont ifNotNil: [ ^ fallbackFont glyphOf: aCharacter. ]. ^ (Form extent: 1@self height) fillColor: Color white ]. + code := self codeForCharacter: aCharacter. - code := aCharacter charCode. ^ glyphs copy: (((xTable at: code + 1)@0) corner: (xTable at: code +2)@self height). ! Item was added: + ----- Method: StrikeFont>>hasGlyphForCode: (in category 'multibyte character methods') ----- + hasGlyphForCode: aCharacterCode + + ((aCharacterCode between: self minAscii and: self maxAscii) not) ifTrue: [ + ^ false. + ]. + (xTable at: aCharacterCode + 1) < 0 ifTrue: [ + ^ false. + ]. + ^ true. + ! Item was changed: ----- Method: StrikeFont>>hasGlyphOf: (in category 'multibyte character methods') ----- hasGlyphOf: aCharacter + ^self hasGlyphForCode: (self codeForCharacter: aCharacter) - | code | - code := aCharacter charCode. - ((code between: self minAscii and: self maxAscii) not) ifTrue: [ - ^ false. - ]. - (xTable at: code + 1) < 0 ifTrue: [ - ^ false. - ]. - ^ true. ! Item was removed: - ----- Method: StrikeFont>>leftAndRighOrNilFor: (in category 'private') ----- - leftAndRighOrNilFor: char - - | code leftX | - code := char charCode. - ((code between: self minAscii and: self maxAscii) not) ifTrue: [ - code := $? charCode. - ]. - leftX := xTable at: code + 1. - leftX < 0 ifTrue: [ - code := $? charCode. - leftX := xTable at: code + 1. - ]. - ^ Array with: leftX with: (xTable at: code + 2). - !

1 0

The Trunk: Graphics-nice.289.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

1 0

The Trunk: Graphics-nice.289.mcz
by commits＠source.squeak.org 17 Feb '14

17 Feb '14

1 0

The Trunk: Kernel-dtl.836.mcz
by commits＠source.squeak.org 16 Feb '14

16 Feb '14

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.836.mcz ==================== Summary ==================== Name: Kernel-dtl.836 Author: dtl Time: 16 February 2014, 2:19:44.092 pm UUID: 410e695f-7f23-43e4-9dc2-d292b9954f0d Ancestors: Kernel-cmm.835 Do not allow either basicNew: or basicNew for CompiledMethods because CompiledMethods may only be created with newMethod:header: (otherwise a VM crash may result). =============== Diff against Kernel-cmm.835 =============== Item was added: + ----- Method: CompiledMethod class>>basicNew (in category 'instance creation') ----- + basicNew + + self error: 'CompiledMethods may only be created with newMethod:header:' !

1 0

The Trunk: Kernel-dtl.836.mcz
by commits＠source.squeak.org 16 Feb '14

16 Feb '14

1 0

The Trunk: Kernel-dtl.836.mcz
by commits＠source.squeak.org 16 Feb '14

16 Feb '14

1 0

The Trunk: System-dtl.666.mcz
by commits＠source.squeak.org 16 Feb '14

16 Feb '14

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.666.mcz ==================== Summary ==================== Name: System-dtl.666 Author: dtl Time: 15 February 2014, 9:53:14.979 pm UUID: 098b856a-ecc5-498a-bceb-ef3457d3511e Ancestors: System-dtl.665 Sending basicNew to CompiledMethod may crash the VM, so don't do that. =============== Diff against System-dtl.665 =============== Item was changed: ----- Method: SpaceTally>>spaceForInstancesOf: (in category 'instance size') ----- spaceForInstancesOf: aClass "Answer the number of bytes consumed by all instances of the given class, including their object headers and the number of instances." | smallHeaderSize instVarBytes isVariable bytesPerElement total lastInstance instance instanceCount | instance := aClass someInstance ifNil: [ ^#(0 0) ]. smallHeaderSize := aClass isCompact ifTrue: [ 4 ] ifFalse: [ 8 ]. instVarBytes := aClass instSize * 4. isVariable := aClass isVariable. bytesPerElement := isVariable ifFalse: [ 0 ] ifTrue: [ aClass isBytes ifTrue: [ 1 ] ifFalse: [ 4 ] ]. total := 0. instanceCount := 0. "A modified version of #allInstancesDo: is inlined here. It avoids an infinite loop when another process is creating new instances of aClass." self flag: #allInstancesDo:. + lastInstance := + aClass == CompiledMethod "CompiledMethod has special format, see its class comment" + ifTrue: [aClass new] + ifFalse: [aClass basicNew]. - lastInstance := aClass basicNew. [ instance == lastInstance ] whileFalse: [ | contentBytes headerBytes | contentBytes := instVarBytes + (isVariable ifFalse: [ 0 ] ifTrue: [ instance basicSize * bytesPerElement ]). headerBytes := contentBytes > 255 ifTrue: [ 12 ] ifFalse: [ smallHeaderSize ]. total := total + headerBytes + (contentBytes roundUpTo: 4). instanceCount := instanceCount + 1. instance := instance nextInstance ]. ^{ total. instanceCount }!

1 0

The Trunk: System-dtl.666.mcz
by commits＠source.squeak.org 16 Feb '14

16 Feb '14

1 0

The Trunk: System-dtl.666.mcz
by commits＠source.squeak.org 16 Feb '14

16 Feb '14

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2014