Packages October 2012

packages@lists.squeakfoundation.org

1 participants
48 discussions

The Trunk: Morphic-bf.627.mcz
by commits＠source.squeak.org 10 Oct '12

10 Oct '12

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.627.mcz ==================== Summary ==================== Name: Morphic-bf.627 Author: bf Time: 9 October 2012, 3:00:33.903 pm UUID: 2d7d0432-9723-4629-a850-3371eb3aca8b Ancestors: Morphic-bf.626 For drawing rotated forms less than 32 bits deep, use Form paint rule. =============== Diff against Morphic-bf.626 =============== Item was changed: ----- Method: FormCanvas>>transformBy:clippingTo:during:smoothing: (in category 'drawing-support') ----- transformBy: aDisplayTransform clippingTo: aClipRect during: aBlock smoothing: cellSize "Note: This method has been originally copied from TransformationMorph." | innerRect patchRect sourceQuad warp start subCanvas | (aDisplayTransform isPureTranslation) ifTrue:[ ^aBlock value: (self copyOffset: aDisplayTransform offset negated truncated clipRect: aClipRect) ]. "Prepare an appropriate warp from patch to innerRect" innerRect := aClipRect. patchRect := (aDisplayTransform globalBoundsToLocal: innerRect) truncated. sourceQuad := (aDisplayTransform sourceQuadFor: innerRect) collect: [:p | p - patchRect topLeft]. warp := self warpFrom: sourceQuad toRect: innerRect. "Render the submorphs visible in the clipping rectangle, as patchForm" start := (self depth = 1 and: [self isShadowDrawing not]) "If this is true B&W, then we need a first pass for erasure." ifTrue: [1] ifFalse: [2]. start to: 2 do: [:i | "If i=1 we first make a shadow and erase it for opaque whites in B&W" subCanvas := self class extent: patchRect extent depth: self depth. i=1 ifTrue: [subCanvas shadowColor: Color black. warp combinationRule: Form erase] ifFalse: [self isShadowDrawing ifTrue: [subCanvas shadowColor: self shadowColor]. + warp combinationRule: (self depth = 32 + ifTrue: [Form blendAlphaScaled] + ifFalse: [Form paint])]. - warp combinationRule: (self depth = 32 ifTrue: [Form blendAlphaScaled] ifFalse: [Form blend])]. subCanvas translateBy: patchRect topLeft negated during: aBlock. warp sourceForm: subCanvas form; cellSize: cellSize; warpBits. warp sourceForm: nil. subCanvas := nil "release space for next loop"] !

1 0

The Trunk: Morphic-bf.627.mcz
by commits＠source.squeak.org 10 Oct '12

10 Oct '12

1 0

The Trunk: Morphic-bf.627.mcz
by commits＠source.squeak.org 10 Oct '12

10 Oct '12

1 0

The Trunk: Morphic-bf.626.mcz
by commits＠source.squeak.org 09 Oct '12

09 Oct '12

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.626.mcz ==================== Summary ==================== Name: Morphic-bf.626 Author: bf Time: 9 October 2012, 2:41:25.246 pm UUID: 358e353f-679b-4fa3-80d3-ac01ce47b766 Ancestors: Morphic-ul.625 Fix rotated drawing of translucent morphs. =============== Diff against Morphic-ul.625 =============== Item was changed: ----- Method: FormCanvas>>transformBy:clippingTo:during:smoothing: (in category 'drawing-support') ----- transformBy: aDisplayTransform clippingTo: aClipRect during: aBlock smoothing: cellSize "Note: This method has been originally copied from TransformationMorph." | innerRect patchRect sourceQuad warp start subCanvas | (aDisplayTransform isPureTranslation) ifTrue:[ ^aBlock value: (self copyOffset: aDisplayTransform offset negated truncated clipRect: aClipRect) ]. "Prepare an appropriate warp from patch to innerRect" innerRect := aClipRect. patchRect := (aDisplayTransform globalBoundsToLocal: innerRect) truncated. sourceQuad := (aDisplayTransform sourceQuadFor: innerRect) collect: [:p | p - patchRect topLeft]. warp := self warpFrom: sourceQuad toRect: innerRect. "Render the submorphs visible in the clipping rectangle, as patchForm" start := (self depth = 1 and: [self isShadowDrawing not]) "If this is true B&W, then we need a first pass for erasure." ifTrue: [1] ifFalse: [2]. start to: 2 do: [:i | "If i=1 we first make a shadow and erase it for opaque whites in B&W" subCanvas := self class extent: patchRect extent depth: self depth. i=1 ifTrue: [subCanvas shadowColor: Color black. warp combinationRule: Form erase] ifFalse: [self isShadowDrawing ifTrue: [subCanvas shadowColor: self shadowColor]. + warp combinationRule: (self depth = 32 ifTrue: [Form blendAlphaScaled] ifFalse: [Form blend])]. - warp combinationRule: Form paint]. subCanvas translateBy: patchRect topLeft negated during: aBlock. warp sourceForm: subCanvas form; cellSize: cellSize; warpBits. warp sourceForm: nil. subCanvas := nil "release space for next loop"] !

1 0

The Trunk: Morphic-bf.626.mcz
by commits＠source.squeak.org 09 Oct '12

09 Oct '12

1 0

The Trunk: Morphic-bf.626.mcz
by commits＠source.squeak.org 09 Oct '12

09 Oct '12

1 0

The Trunk: Tests-eem.172.mcz
by commits＠source.squeak.org 08 Oct '12

08 Oct '12

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.172.mcz ==================== Summary ==================== Name: Tests-eem.172 Author: eem Time: 8 October 2012, 1:45:45.552 pm UUID: e455c2ad-cdd0-4324-9c32-5827517176db Ancestors: Tests-ul.171 Test more accurate error reporting for incomplete brace expressions (Compiler-eem.234). =============== Diff against Tests-ul.171 =============== Item was changed: ----- Method: CompilerNotifyingTest>>testAlltogether (in category 'testing') ----- testAlltogether "Initialize for all known error conditions. Note that the chunk to be evaluated are separated by %, and expected errors enclosed in back quotes." self setUpForErrorsIn: ' "First, the senders of #offEnd:" #` Unmatched bracket ->`[ 1 2 % #[ 1 2 ` 8-bit integer or right bracket expected ->`256 4]% $` A Character was expected ->`% 1+2 ` Unmatched comment quote ->`"unfinished comment% #` Unmatched parenthesis ->`( 1 2% #` Unmatched parenthesis ->`( 1 2 % ^nil printString , ` Unmatched string quote ->`''unfinished string% "Then, the senders of #expected:" 2r` a digit between 0 and 1 expected ->`3% | x | x := ` Expression expected ->`% [ :x : ` Argument name expected ->`1]% [ :x ` Vertical bar expected ->`x + 1 ]% [:x | 1 ` Period or right bracket expected ->`( 1 ) ]% { 1. 2` Period or right brace expected ->`% { 1. 2 ` Period or right brace expected ->`% { 1. 2 ` Period or right brace expected ->`3 % + { 1. 2. ` Variable or expression or right brace expected ->`| x | % - { 1. 2. ` Variable or expression expected ->`| x | % super yourself` Cascading not expected ->`; yourself% nil yourself; ` Cascade expected ->`^ 2% "#externalFunctionDeclaration is skipped, this cannot be evaluated" 1 to: ` Argument expected ->`:=% 1 +` Argument expected ->`% 1 + ` Argument expected ->`* 2 + 3% 1+(2 ` right parenthesis expected ->`. % 1 + 2 ` Nothing more expected ->`^nil% "#pattern:inContext: skipped, cannot be evaluated" "#pragmaLiteral: #pragmaSequence #pragmaStatement skipped, cannot be evaluated" ( ` expression expected ->`. 2 . )% ( 1 ` right parenthesis expected ->`. 2 . )% "#primitive:error: #primitive:module:error: skipped, cannot be evaluated" ^ ` Expression to return expected ->`. 1 + 2% [ ^1 ` End of block expected ->`2]% | x y ` Vertical bar expected ->`% [:z | | x y ` Vertical bar expected ->`]% 1` an integer greater than 1 as valid radix expected ->`r0'. self enumerateAllSelections! Item was changed: ----- Method: CompilerNotifyingTest>>testExpectedExpressionInBraceArray (in category 'testing') ----- testExpectedExpressionInBraceArray self setUpForErrorsIn: '{ 1. 2 ` Period or right brace expected ->`3 }'. self enumerateAllSelections. + self setUpForErrorsIn: '{ 1. 2. ` Variable or expression or right brace expected ->`| x | x}'. - self setUpForErrorsIn: '{ 1. 2. ` Variable or expression expected ->`| x | x}'. self enumerateAllSelections!

1 0

The Trunk: Tests-eem.172.mcz
by commits＠source.squeak.org 08 Oct '12

08 Oct '12

1 0

The Trunk: Tests-eem.172.mcz
by commits＠source.squeak.org 08 Oct '12

08 Oct '12

1 0

The Trunk: Compiler-eem.234.mcz
by commits＠source.squeak.org 08 Oct '12

08 Oct '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.234.mcz ==================== Summary ==================== Name: Compiler-eem.234 Author: eem Time: 8 October 2012, 1:44:27.162 pm UUID: 1e69e4f6-4808-439b-b63d-2fc309ee87d0 Ancestors: Compiler-eem.233 More accurate error reporting for incomplete brace expressions =============== Diff against Compiler-eem.233 =============== Item was changed: ----- Method: Parser>>braceExpression (in category 'expression types') ----- braceExpression " { elements } => BraceNode." | elements locations loc more | elements := OrderedCollection new. locations := OrderedCollection new. self advance. more := hereType ~~ #rightBrace. [more] whileTrue: [loc := hereMark + requestorOffset. self expression ifTrue: [elements addLast: parseNode. locations addLast: loc] ifFalse: + [^self expected: 'Variable or expression or right brace']. - [^self expected: 'Variable or expression']. (self match: #period) ifTrue: [more := hereType ~~ #rightBrace] ifFalse: [more := false]]. parseNode := BraceNode new elements: elements sourceLocations: locations. (self match: #rightBrace) ifFalse: [^self expected: 'Period or right brace']. ^true!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2012