Packages November 2010

packages@lists.squeakfoundation.org

1 participants
285 discussions

The Trunk: Graphics-tbn.157.mcz
by commits＠source.squeak.org 19 Nov '10

19 Nov '10

Torsten Bergmann uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tbn.157.mcz ==================== Summary ==================== Name: Graphics-tbn.157 Author: tbn Time: 19 November 2010, 9:24:53.858 pm UUID: 0e6ea246-6d40-ce4c-a609-ae1e5b4a82c4 Ancestors: Graphics-ul.156 Fix http://code.google.com/p/pharo/issues/detail?id=3225 also in Squeak Thx to jbaptiste.arnaud: =============== Diff against Graphics-ul.156 =============== Item was changed: ----- Method: Form>>fadeImage:at:indexAndMaskDo: (in category 'transitions') ----- fadeImage: otherImage at: topLeft indexAndMaskDo: indexAndMaskBlock + "This fade uses halftones as a blending hack. Zeros in the halftone produce the original image (self), and ones in the halftone produce the 'otherImage'. IndexAndMaskBlock gets evaluated prior to each cycle, and the resulting boolean determines whether to continue cycling." + | index imageRect maskForm resultForm pix returnPix| - | index imageRect maskForm resultForm | imageRect := otherImage boundingBox. resultForm := self copy: (topLeft extent: imageRect extent). maskForm := Form extent: 32@32. index := 0. + [indexAndMaskBlock value: (index := index+1) value: maskForm] whileTrue: [maskForm reverse. resultForm copyBits: imageRect from: resultForm at: 0@0 clippingBox: imageRect rule: Form over fillColor: maskForm. maskForm reverse. resultForm copyBits: imageRect from: otherImage at: 0@0 clippingBox: imageRect rule: Form under fillColor: maskForm. self copyBits: imageRect from: resultForm at: topLeft clippingBox: self boundingBox rule: Form over fillColor: nil. Display forceDisplayUpdate]! Item was changed: ----- Method: Form>>fadeImageCoarse:at: (in category 'transitions') ----- fadeImageCoarse: otherImage at: topLeft "Display fadeImageCoarse: (Form fromDisplay: (40@40 extent: 300@300)) reverse at: 40@40" + | d pix| - | d | d := self depth. ^ self fadeImage: otherImage at: topLeft indexAndMaskDo: + [:i :mask | | j | - [:i :mask | - | pix j | i=1 ifTrue: [pix := (1 bitShift: d) - 1. + 1 to: 8//d-1 do: [:q | pix := pix bitOr: (pix bitShift: d*4)]] . + i <= 16 ifTrue:[ + j := i-1//4+1. - 1 to: 8//d-1 do: [:q | pix := pix bitOr: (pix bitShift: d*4)]]. - i <= 16 ifTrue: - [j := i-1//4+1. (0 to: 28 by: 4) do: [:k | mask bits at: j+k + put: (pix bitOr: (mask bits at: j+k))]. + true] - put: ((mask bits at: j+k) bitOr: (pix bitShift: i-1\\4*d))]. - "mask display." true] ifFalse: [false]]! Item was changed: ----- Method: Form>>fadeImageFine:at: (in category 'transitions') ----- fadeImageFine: otherImage at: topLeft "Display fadeImageFine: (Form fromDisplay: (40@40 extent: 300@300)) reverse at: 40@40" + | d pix| - | d | d := self depth. ^ self fadeImage: otherImage at: topLeft indexAndMaskDo: + [:i :mask | | j ii | - [:i :mask | - | pix j ii | i=1 ifTrue: [pix := (1 bitShift: d) - 1. 1 to: 8//d-1 do: [:q | pix := pix bitOr: (pix bitShift: d*4)]]. i <= 16 ifTrue: [ii := #(0 10 2 8 7 13 5 15 1 11 3 9 6 12 4 14) at: i. j := ii//4+1. (0 to: 28 by: 4) do: [:k | mask bits at: j+k put: + ((mask bits at: j+k) bitOr: (pix))]. - ((mask bits at: j+k) bitOr: (pix bitShift: ii\\4*d))]. true] ifFalse: [false]]! Item was changed: ----- Method: Form>>fadeImageSquares:at: (in category 'transitions') ----- fadeImageSquares: otherImage at: topLeft "Display fadeImageSquares: (Form fromDisplay: (40@40 extent: 300@300)) reverse at: 40@40" ^ self fadeImage: otherImage at: topLeft indexAndMaskDo: [:i :mask | mask fill: ((16-i) asPoint extent: (i*2) asPoint) fillColor: Color black. i <= 16]! Item was changed: ----- Method: Form>>fadeImageVert:at: (in category 'transitions') ----- fadeImageVert: otherImage at: topLeft "Display fadeImageVert: (Form fromDisplay: (10@10 extent: 300@300)) reverse at: 10@10" | d | d := self depth. ^ self fadeImage: otherImage at: topLeft indexAndMaskDo: [:i :mask | mask fill: ((mask width//2//d-i*d)@0 extent: i*2*d@mask height) fillColor: Color black. i <= (mask width//d)]!

1 0

The Trunk: Compiler-nice.181.mcz
by commits＠source.squeak.org 19 Nov '10

19 Nov '10

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.181.mcz ==================== Summary ==================== Name: Compiler-nice.181 Author: nice Time: 19 November 2010, 5:32:20.688 pm UUID: 86d69779-755f-0548-8a95-11173c3b8370 Ancestors: Compiler-eem.180 Let (Scanner isLiteralSymbol: #<) be true =============== Diff against Compiler-eem.180 =============== Item was changed: ----- Method: Scanner class>>isLiteralSymbol: (in category 'testing') ----- isLiteralSymbol: aSymbol "Test whether a symbol can be stored as # followed by its characters. Symbols created internally with asSymbol may not have this property, e.g. '3' asSymbol." | i ascii type next last | i := aSymbol size. i = 0 ifTrue: [^ false]. "TypeTable should have been origined at 0 rather than 1 ..." ascii := (aSymbol at: 1) asciiValue. type := TypeTable at: ascii ifAbsent: [^false]. type == #xLetter ifTrue: [ next := last := nil. [i > 1] whileTrue: [ascii := (aSymbol at: i) asciiValue. type := TypeTable at: ascii ifAbsent: [^false]. (type == #xLetter or: [type == #xDigit or: [type == #xColon and: [ next == nil ifTrue: [last := #xColon. true] ifFalse: [last == #xColon and: [next ~~ #xDigit and: [next ~~ #xColon]]]]]]) ifFalse: [^ false]. next := type. i := i - 1]. + ^ true]. + type == #xBinary ifTrue: + [^(2 to: i) allSatisfy: [:j | - ^ true]. - type == #xBinary ifTrue: [^i = 1]. "Here we could extend to - ^(2 to: i) allSatisfy: [:j | ascii := (aSymbol at: j) asciiValue. + (TypeTable at: ascii ifAbsent: []) == #xBinary]]. - (TypeTable at: ascii ifAbsent: []) == #xBinary]" type == #verticalBar ifTrue: [^i = 1]. ^false!

1 0

The Trunk: Compiler-nice.181.mcz
by commits＠source.squeak.org 19 Nov '10

19 Nov '10

1 0

The Trunk: Compiler-nice.181.mcz
by commits＠source.squeak.org 19 Nov '10

19 Nov '10

1 0

The Trunk: Collections-ul.408.mcz
by commits＠source.squeak.org 17 Nov '10

17 Nov '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.408.mcz ==================== Summary ==================== Name: Collections-ul.408 Author: ul Time: 17 November 2010, 12:25:59.364 pm UUID: 1520a654-9c34-734d-ae16-a600d1a2b948 Ancestors: Collections-ul.407 - findBinary* enhancements from Cuis. =============== Diff against Collections-ul.407 =============== Item was changed: ----- Method: SequenceableCollection>>findBinary: (in category 'enumerating') ----- findBinary: aBlock "Search for an element in the receiver using binary search. The argument aBlock is a one-element block returning 0 - if the element is the one searched for <0 - if the search should continue in the first half >0 - if the search should continue in the second half If no matching element is found, raise an error. Examples: + #(1 3 5 7 11 15 23) findBinary: [ :arg | 11 - arg ] - #(1 3 5 7 11 15 23) findBinary:[:arg| 11 - arg] " + ^self findBinary: aBlock do: [ :found | found ] ifNone: [ self errorNotFound: aBlock ]! - ^self findBinary: aBlock ifNone: [self errorNotFound: aBlock]! Item was added: + ----- Method: SequenceableCollection>>findBinary:do:ifNone: (in category 'enumerating') ----- + findBinary: aBlock do: actionBlock ifNone: exceptionBlock + "Search for an element in the receiver using binary search. + The argument aBlock is a one-element block returning + 0 - if the element is the one searched for + <0 - if the search should continue in the first half + >0 - if the search should continue in the second half + If found, evaluate actionBlock with the found element as argument + If no matching element is found, evaluate exceptionBlock, + with the 'bounding' elements (or nil) as optional arguments. + Examples: + #(1 3 5 7 11 15 23) + findBinary: [ :arg | 11 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ', {a. b} printString) ] + #(1 3 5 7 11 15 23) + findBinary: [ :arg | 12 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ', {a. b} printString) ] + #(1 3 5 7 11 15 23) + findBinary: [ :arg | 0.5 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ', {a. b} printString) ] + #(1 3 5 7 11 15 23) + findBinary: [ :arg | 25 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ',{a. b} printString) ] + " + ^self + findBinaryIndex: aBlock + do: [ :foundIndex | actionBlock value: (self at: foundIndex) ] + ifNone: [ :prevIndex :nextIndex | + exceptionBlock + cull: (prevIndex > 0 ifTrue: [ self at: prevIndex ]) + cull: (nextIndex <= self size ifTrue: [ self at: nextIndex ]) ]! Item was changed: ----- Method: SequenceableCollection>>findBinary:ifNone: (in category 'enumerating') ----- findBinary: aBlock ifNone: exceptionBlock "Search for an element in the receiver using binary search. The argument aBlock is a one-element block returning 0 - if the element is the one searched for <0 - if the search should continue in the first half >0 - if the search should continue in the second half + If no matching element is found, evaluate exceptionBlock, + with the 'bounding' elements (or nil) as optional arguments." + + ^self findBinary: aBlock do: [ :found | found ] ifNone: exceptionBlock! - If no matching element is found, evaluate exceptionBlock." - | index low high test item | - low := 1. - high := self size. - [index := high + low // 2. - low > high] whileFalse:[ - test := aBlock value: (item := self at: index). - test = 0 - ifTrue:[^item] - ifFalse:[test > 0 - ifTrue: [low := index + 1] - ifFalse: [high := index - 1]]]. - ^exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>findBinaryIndex: (in category 'enumerating') ----- findBinaryIndex: aBlock "Search for an element in the receiver using binary search. The argument aBlock is a one-element block returning 0 - if the element is the one searched for <0 - if the search should continue in the first half >0 - if the search should continue in the second half If no matching element is found, raise an error. Examples: + #(1 3 5 7 11 15 23) findBinaryIndex: [ :arg | 11 - arg ] - #(1 3 5 7 11 15 23) findBinaryIndex:[:arg| 11 - arg] " + ^self findBinaryIndex: aBlock do: [ :found | found ] ifNone: [ self errorNotFound: aBlock]! - ^self findBinaryIndex: aBlock ifNone: [self errorNotFound: aBlock]! Item was added: + ----- Method: SequenceableCollection>>findBinaryIndex:do:ifNone: (in category 'enumerating') ----- + findBinaryIndex: aBlock do: actionBlock ifNone: exceptionBlock + "Search for an element in the receiver using binary search. + The argument aBlock is a one-element block returning + 0 - if the element is the one searched for + <0 - if the search should continue in the first half + >0 - if the search should continue in the second half + If found, evaluate actionBlock with the index as argument + If no matching element is found, evaluate exceptionBlock, + with the indexes of the 'bounding' elements as optional + arguments. Warning: Might give invalid indexes, see + examples below. + Examples: + #(1 3 5 7 11 15 23) + findBinaryIndex: [ :arg | 11 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ', {a. b} printString)] + #(1 3 5 7 11 15 23) + findBinaryIndex: [ :arg | 12 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ', {a. b} printString) ] + #(1 3 5 7 11 15 23) d + findBinaryIndex: [ :arg | 0.5 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ', {a. b} printString) ] + #(1 3 5 7 11 15 23) + findBinaryIndex: [ :arg | 25 - arg ] + do: [ :found | found ] + ifNone: [ :a :b | ('between: ',{a. b} printString) ] + " + | index low high | + low := 1. + high := self size. + [ + index := high + low // 2. + low > high ] whileFalse: [ + | test | + test := aBlock value: (self at: index). + test = 0 + ifTrue: [ ^actionBlock value: index ] + ifFalse: [ test > 0 + ifTrue: [ low := index + 1 ] + ifFalse: [ high := index - 1 ] ] ]. + ^exceptionBlock cull: high cull: low! Item was changed: ----- Method: SequenceableCollection>>findBinaryIndex:ifNone: (in category 'enumerating') ----- findBinaryIndex: aBlock ifNone: exceptionBlock "Search for an element in the receiver using binary search. The argument aBlock is a one-element block returning 0 - if the element is the one searched for <0 - if the search should continue in the first half >0 - if the search should continue in the second half + If no matching element is found, evaluate exceptionBlock, + with the indexes of the 'bounding' elements as optional + arguments. Warning: Might give invalid indexes." + + ^self findBinaryIndex: aBlock do: [ :found | found ] ifNone: exceptionBlock! - If no matching element is found, evaluate exceptionBlock." - | index low high test | - low := 1. - high := self size. - [index := high + low // 2. - low > high] whileFalse:[ - test := aBlock value: (self at: index). - test = 0 - ifTrue:[^index] - ifFalse:[test > 0 - ifTrue: [low := index + 1] - ifFalse: [high := index - 1]]]. - ^exceptionBlock value!

1 0

The Trunk: Collections-ul.408.mcz
by commits＠source.squeak.org 17 Nov '10

17 Nov '10

1 0

The Trunk: Collections-ul.408.mcz
by commits＠source.squeak.org 17 Nov '10

17 Nov '10

1 0

The Trunk: ShoutCore-ul.27.mcz
by commits＠source.squeak.org 17 Nov '10

17 Nov '10

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.27.mcz ==================== Summary ==================== Name: ShoutCore-ul.27 Author: ul Time: 17 November 2010, 12:03:24.046 pm UUID: c8ad7979-85ad-b844-9256-a0826a4ff417 Ancestors: ShoutCore-ul.26 - use block arguments with #findBinary:ifNone: =============== Diff against ShoutCore-ul.26 =============== Item was changed: ----- Method: SystemDictionary>>hasBindingThatBeginsWith: (in category '*ShoutCore') ----- hasBindingThatBeginsWith: aString "Use the cached class and non-class names for better performance." | name searchBlock | searchBlock := [ :element | (element beginsWith: aString) ifTrue: [ 0 ] ifFalse: [ aString < element ifTrue: [ -1 ] ifFalse: [ 1 ] ] ]. name := self classNames findBinary: searchBlock + ifNone: [ nil ]. - ifNone: nil. name ifNotNil: [ ^true ]. name := self nonClassNames findBinary: searchBlock + ifNone: [ nil ]. - ifNone: nil. ^name notNil!

1 0

The Trunk: ShoutCore-ul.27.mcz
by commits＠source.squeak.org 17 Nov '10

17 Nov '10

1 0

The Trunk: ShoutCore-ul.27.mcz
by commits＠source.squeak.org 17 Nov '10

17 Nov '10

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
29
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2010