Packages July 2010

packages@lists.squeakfoundation.org

1 participants
240 discussions

The Trunk: KernelTests-nice.156.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.156.mcz ==================== Summary ==================== Name: KernelTests-nice.156 Author: nice Time: 24 July 2010, 7:07:59.415 pm UUID: 0ac92d18-cfbc-4c5e-b95e-9b8694f43844 Ancestors: KernelTests-ar.155 Remove potential sends of /- Now that $- is allowed in binary messages at any place, this potentially is ambiguous. =============== Diff against KernelTests-ar.155 =============== Item was changed: ----- Method: FractionTest>>testFractionPrinting (in category 'tests - printing') ----- testFractionPrinting self assert: (353/359) printString = '(353/359)'. self assert: ((2/3) printStringBase: 2) = '(10/11)'. self assert: ((2/3) storeStringBase: 2) = '(2r10/2r11)'. self assert: ((5/7) printStringBase: 3) = '(12/21)'. self assert: ((5/7) storeStringBase: 3) = '(3r12/3r21)'. self assert: ((11/13) printStringBase: 4) = '(23/31)'. self assert: ((11/13) storeStringBase: 4) = '(4r23/4r31)'. self assert: ((17/19) printStringBase: 5) = '(32/34)'. self assert: ((17/19) storeStringBase: 5) = '(5r32/5r34)'. self assert: ((23/29) printStringBase: 6) = '(35/45)'. self assert: ((23/29) storeStringBase: 6) = '(6r35/6r45)'. self assert: ((31/37) printStringBase: 7) = '(43/52)'. self assert: ((31/37) storeStringBase: 7) = '(7r43/7r52)'. self assert: ((41/43) printStringBase: 8) = '(51/53)'. self assert: ((41/43) storeStringBase: 8) = '(8r51/8r53)'. self assert: ((47/53) printStringBase: 9) = '(52/58)'. self assert: ((47/53) storeStringBase: 9) = '(9r52/9r58)'. self assert: ((59/61) printStringBase: 10) = '(59/61)'. self assert: ((59/61) storeStringBase: 10) = '(59/61)'. self assert: ((67/71) printStringBase: 11) = '(61/65)'. self assert: ((67/71) storeStringBase: 11) = '(11r61/11r65)'. self assert: ((73/79) printStringBase: 12) = '(61/67)'. self assert: ((73/79) storeStringBase: 12) = '(12r61/12r67)'. self assert: ((83/89) printStringBase: 13) = '(65/6B)'. self assert: ((83/89) storeStringBase: 13) = '(13r65/13r6B)'. self assert: ((97/101) printStringBase: 14) = '(6D/73)'. self assert: ((97/101) storeStringBase: 14) = '(14r6D/14r73)'. self assert: ((103/107) printStringBase: 15) = '(6D/72)'. self assert: ((103/107) storeStringBase: 15) = '(15r6D/15r72)'. self assert: ((109/113) printStringBase: 16) = '(6D/71)'. self assert: ((109/113) storeStringBase: 16) = '(16r6D/16r71)'. self assert: ((127/131) printStringBase: 17) = '(78/7C)'. self assert: ((127/131) storeStringBase: 17) = '(17r78/17r7C)'. self assert: ((137/139) printStringBase: 18) = '(7B/7D)'. self assert: ((137/139) storeStringBase: 18) = '(18r7B/18r7D)'. self assert: ((149/151) printStringBase: 19) = '(7G/7I)'. self assert: ((149/151) storeStringBase: 19) = '(19r7G/19r7I)'. self assert: ((157/163) printStringBase: 20) = '(7H/83)'. self assert: ((157/163) storeStringBase: 20) = '(20r7H/20r83)'. self assert: ((167/173) printStringBase: 21) = '(7K/85)'. self assert: ((167/173) storeStringBase: 21) = '(21r7K/21r85)'. self assert: ((179/181) printStringBase: 22) = '(83/85)'. self assert: ((179/181) storeStringBase: 22) = '(22r83/22r85)'. self assert: ((191/193) printStringBase: 23) = '(87/89)'. self assert: ((191/193) storeStringBase: 23) = '(23r87/23r89)'. self assert: ((197/199) printStringBase: 24) = '(85/87)'. self assert: ((197/199) storeStringBase: 24) = '(24r85/24r87)'. self assert: ((211/223) printStringBase: 25) = '(8B/8N)'. self assert: ((211/223) storeStringBase: 25) = '(25r8B/25r8N)'. self assert: ((227/229) printStringBase: 26) = '(8J/8L)'. self assert: ((227/229) storeStringBase: 26) = '(26r8J/26r8L)'. self assert: ((233/239) printStringBase: 27) = '(8H/8N)'. self assert: ((233/239) storeStringBase: 27) = '(27r8H/27r8N)'. self assert: ((241/251) printStringBase: 28) = '(8H/8R)'. self assert: ((241/251) storeStringBase: 28) = '(28r8H/28r8R)'. self assert: ((257/263) printStringBase: 29) = '(8P/92)'. self assert: ((257/263) storeStringBase: 29) = '(29r8P/29r92)'. self assert: ((269/271) printStringBase: 30) = '(8T/91)'. self assert: ((269/271) storeStringBase: 30) = '(30r8T/30r91)'. self assert: ((277/281) printStringBase: 31) = '(8T/92)'. self assert: ((277/281) storeStringBase: 31) = '(31r8T/31r92)'. self assert: ((283/293) printStringBase: 32) = '(8R/95)'. self assert: ((283/293) storeStringBase: 32) = '(32r8R/32r95)'. self assert: ((307/311) printStringBase: 33) = '(9A/9E)'. self assert: ((307/311) storeStringBase: 33) = '(33r9A/33r9E)'. self assert: ((313/317) printStringBase: 34) = '(97/9B)'. self assert: ((313/317) storeStringBase: 34) = '(34r97/34r9B)'. self assert: ((331/337) printStringBase: 35) = '(9G/9M)'. self assert: ((331/337) storeStringBase: 35) = '(35r9G/35r9M)'. self assert: ((347/349) printStringBase: 36) = '(9N/9P)'. self assert: ((347/349) storeStringBase: 36) = '(36r9N/36r9P)'. self assert: ((-2/3) printStringBase: 2) = '(-10/11)'. self assert: ((-2/3) storeStringBase: 2) = '(-2r10/2r11)'. + self assert: ((5 / -7) printStringBase: 3) = '(-12/21)'. + self assert: ((5 / -7) storeStringBase: 3) = '(-3r12/3r21)'. - self assert: ((5/-7) printStringBase: 3) = '(-12/21)'. - self assert: ((5/-7) storeStringBase: 3) = '(-3r12/3r21)'. !

1 0

The Trunk: KernelTests-nice.156.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

1 0

The Trunk: KernelTests-nice.156.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

1 0

The Trunk: GraphicsTests-nice.26.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-nice.26.mcz ==================== Summary ==================== Name: GraphicsTests-nice.26 Author: nice Time: 24 July 2010, 6:58:29.781 pm UUID: 8fa06e93-af69-4f78-b92b-86ca77fe39bf Ancestors: GraphicsTests-wiz.25 Remove potential sends of @- Now that $- is allowed in binary messages at any place, this potentially is ambiguous. =============== Diff against GraphicsTests-wiz.25 =============== Item was changed: ----- Method: PointTest>>testNormal (in category 'testing - testing') ----- testNormal + "quick check of results for #normal." + | samples rejects results | + samples := 0 asPoint eightNeighbors , (Array with: 0 asPoint) . - " quick check of results for #normal." + results := + { 0.0 @ 1.0 . + -0.707106781186547 @ 0.707106781186547 . + -1.0 @ 0.0 . + -0.707106781186547 @ -0.707106781186547 . + 0.0 @ -1.0 . + 0.707106781186547 @ -0.707106781186547 . + 1.0 @ 0.0 . + 0.707106781186547 @ 0.707106781186547 . + -1 @ 0} . - | samples rejects results | + rejects := (1 to: samples size ) reject: + [ :each | ((samples at: each) normal - (results at: each)) abs < 1e-15 asPoint ] . - samples := - 0 asPoint eightNeighbors - , (Array with: 0 asPoint) . + self assert: rejects isEmpty! - results := - { 0.0(a)1.0 - . -0.707106781186547(a)0.707106781186547 - . -1.0(a)0.0 - . -0.707106781186547(a)-0.707106781186547 - . 0.0(a)-1.0 - . 0.707106781186547(a)-0.707106781186547 - . 1.0(a)0.0 - . 0.707106781186547(a)0.707106781186547 - . -1@0} . - - - rejects := - (1 to: samples size ) reject: [ :each | ((samples at: each) normal - (results at: each)) abs < 1e-15 asPoint ] . - - self assert: ( rejects isEmpty ) . - - - - ! Item was changed: ----- Method: PNGReadWriterTest>>drawTransparentStuffOn: (in category 'helpers') ----- drawTransparentStuffOn: aForm "Draw stuff on aForm. Avoid any symmetry." | canvas | canvas := FormCanvas on: aForm. + canvas frameAndFillRectangle: (1 @ 1 corner: aForm extent - 15) fillColor: (Color red alpha: 0.25) borderWidth: 3 borderColor: (Color green alpha: 0.5). + canvas fillOval: (aForm boundingBox topRight - (15 @ -5) extent: 20 @ 20) color: (Color white alpha: 0.75) borderWidth: 1 borderColor: Color blue. - canvas frameAndFillRectangle: (1@1 corner: aForm extent - 15) fillColor: (Color red alpha: 0.25) borderWidth: 3 borderColor: (Color green alpha: 0.5). - canvas fillOval: (aForm boundingBox topRight - (15@-5) extent: 20@20) color: (Color white alpha: 0.75) borderWidth: 1 borderColor: Color blue. ^aForm + "(PNGReadWriterTest new drawStuffOn: (Form extent: 32 @ 32 depth: 16)) display"! - "(PNGReadWriterTest new drawStuffOn: (Form extent: 32@32 depth: 16)) display"! Item was changed: ----- Method: PointTest>>testNormal2 (in category 'testing - testing') ----- testNormal2 + "quick check of results for #normal. + differs from the other testNormal in the way that the difference is measured." - " quick check of results for #normal. - differs from the other testNormal in the way that the difference is measured." + | samples rejects results differences | + samples := 0 asPoint eightNeighbors , (Array with: 0 asPoint) . - | samples rejects results differences | + results := + { 0.0 @ 1.0 . + -0.707106781186547 @ 0.707106781186547 . + -1.0 @ 0.0 . + -0.707106781186547 @ -0.707106781186547 . + 0.0 @ -1.0 . + 0.707106781186547 @ -0.707106781186547 . + 1.0 @ 0.0 . + 0.707106781186547 @ 0.707106781186547 . + -1 @ 0} . + differences := samples with: results collect: [ :each :eachResult | + each normal - eachResult ] . - samples := - 0 asPoint eightNeighbors - , (Array with: 0 asPoint) . + rejects := differences reject: [ :each | + (each x closeTo: 0.0) and: [each y closeTo: 0.0] ] . - results := - { 0.0(a)1.0 - . -0.707106781186547(a)0.707106781186547 - . -1.0(a)0.0 - . -0.707106781186547(a)-0.707106781186547 - . 0.0(a)-1.0 - . 0.707106781186547(a)-0.707106781186547 - . 1.0(a)0.0 - . 0.707106781186547(a)0.707106781186547 - . -1@0} . + self assert: rejects isEmpty! - differences := - samples with: results collect: [ :each :eachResult | - each normal - eachResult ] . - - rejects := - differences reject: [ :each | - (each x closeTo: 0.0) and: [each y closeTo: 0.0] ] . - - self assert: ( rejects isEmpty ) . - - - - ! Item was changed: ----- Method: PointTest>>testBasicFourDirections (in category 'testing - testing') ----- testBasicFourDirections + "fourDirections returns the four rotation of the receiver in counter clockwise order with the receiver appearing last. " - " fourDirections returns the four rotation of the reciever in counter clockwise order with the reciever appearing last. " + | samples results rejects | + self assert: (0 asPoint fourDirections) = (Array new: 4 withAll: 0 asPoint) . + samples := 0 asPoint eightNeighbors . + results := { + { 0 @ -1 . -1 @ 0 . 0 @ 1 . 1 @ 0}. + { 1 @ -1 . -1 @ -1 . -1 @ 1 . 1 @ 1}. + { 1 @ 0 . 0 @ -1 . -1 @ 0 . 0 @ 1}. + { 1 @ 1 . 1 @ -1 . -1 @ -1 . -1 @ 1}. + { 0 @ 1 . 1 @ 0 . 0 @ -1 . -1 @ 0}. + {-1 @ 1 . 1 @ 1 . 1 @ -1 . -1 @ -1}. + {-1 @ 0 . 0 @ 1 . 1 @ 0 . 0 @ -1}. + {-1 @ -1 . -1 @ 1 . 1 @ 1 . 1 @ -1} } . - | samples results rejects | + rejects := (1 to: samples size ) reject: [ :each | - self assert: (0 asPoint fourDirections) = (Array new: 4 withAll: 0 asPoint) . - - - samples := - 0 asPoint eightNeighbors . - - results := - { {0@-1 . -1@0 . 0@1 . 1@0} - . {1@-1 . -1@-1 . -1@1 . 1@1} - . {1@0 . 0@-1 . -1@0 . 0@1} - . {1@1 . 1@-1 . -1@-1 . -1@1} - . {0@1 . 1@0 . 0@-1 . -1@0} - . {-1@1 . 1@1 . 1@-1 . -1@-1} - . {-1@0 . 0@1 . 1@0 . 0@-1} - . {-1@-1 . -1@1 . 1@1 . 1@-1} } . - - rejects := - (1 to: samples size ) reject: [ :each | (samples at: each) fourDirections = (results at: each) ] . + self assert: rejects isEmpty! - self assert: ( rejects isEmpty) . - - - ! Item was changed: ----- Method: PointTest>>testTheta (in category 'testing - testing') ----- testTheta | result dir tan x y | + self assert: ((0 @ 1) theta - 90.0 degreesToRadians) abs < 1e-15. + self assert: ((0 @ -1) theta - 270.0 degreesToRadians) abs < 1e-15. - self assert: ((0@1) theta - 90.0 degreesToRadians) abs < 1e-15. - self assert: ((0@-1) theta - 270.0 degreesToRadians) abs < 1e-15. " See code of old and new theta" x := 1.0 . y := -1.0. tan := y / x . dir := tan arcTan. result := 360.0 degreesToRadians + dir. + self assert: ((x @ y) theta - result) abs < 1e-15. + x := -1.0. "Don't reuse old results when you want numeric precision!!" - self assert: ((x@y) theta - result) abs < 1e-15. - x := -1.0. "Don't reuse old results whenyou want numeric precision!!" tan := y / x . dir := tan arcTan. result := 180.0 degreesToRadians + dir. + self assert: ((x @ y) theta - result) abs < 1e-15. - self assert: ((x@y) theta - result) abs < 1e-15. ! Item was changed: ----- Method: PointTest>>testBearingToPoint (in category 'tests - testing') ----- testBearingToPoint + self assert: (0 @ 0 bearingToPoint: 0 @ 0) = 0. + self assert: (0 @ 0 bearingToPoint: 0 @ -1) = 0. + self assert: (0 @ 0 bearingToPoint: 1 @ 0) = 90. + self assert: (0 @ 0 bearingToPoint: 0 @ 1) = 180. + self assert: (0 @ 0 bearingToPoint: -1 @ 0) = 270. + self assert: (0 @ 0 bearingToPoint: 1 @ 1) = 135. + self assert: (0 @ 0 bearingToPoint: 0.01 @ 0) = 90. + self assert: (0 @ 0 bearingToPoint: -2 @ -3) = 326. + self assert: (0 @ 0 bearingToPoint: -0 @ 0) = 0. - self assert: (0@0 bearingToPoint: 0@0) = 0. - self assert: (0@0 bearingToPoint: 0@-1) = 0. - self assert: (0@0 bearingToPoint: 1@0) = 90. - self assert: (0@0 bearingToPoint: 0@1) = 180. - self assert: (0@0 bearingToPoint: -1@0) = 270. - self assert: (0@0 bearingToPoint: 1@1) = 135. - self assert: (0@0 bearingToPoint: 0.01@0) = 90. - self assert: (0@0 bearingToPoint: -2@-3) = 326. - self assert: (0@0 bearingToPoint: -0@0) = 0. + self assert: (-2 @ -3 bearingToPoint: 0 @ 0) = 146.! - self assert: (-2@-3 bearingToPoint: 0@0) = 146.! Item was changed: ----- Method: PNGReadWriterTest>>drawStuffOn: (in category 'helpers') ----- drawStuffOn: aForm "Draw stuff on aForm. Avoid any symmetry." | canvas | canvas := FormCanvas on: aForm. + canvas frameAndFillRectangle: (1 @ 1 corner: aForm extent - 15) fillColor: Color red borderWidth: 3 borderColor: Color green. + canvas fillOval: (aForm boundingBox topRight - (15 @ -5) extent: 20 @ 20) color: Color blue borderWidth: 1 borderColor: Color white. - canvas frameAndFillRectangle: (1@1 corner: aForm extent - 15) fillColor: Color red borderWidth: 3 borderColor: Color green. - canvas fillOval: (aForm boundingBox topRight - (15@-5) extent: 20@20) color: Color blue borderWidth: 1 borderColor: Color white. ^aForm + "(PNGReadWriterTest new drawStuffOn: (Form extent: 32 @ 32 depth: 16)) display"! - "(PNGReadWriterTest new drawStuffOn: (Form extent: 32@32 depth: 16)) display"!

1 0

The Trunk: GraphicsTests-nice.26.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

1 0

The Trunk: GraphicsTests-nice.26.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

1 0

The Trunk: Compiler-nice.152.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.152.mcz ==================== Summary ==================== Name: Compiler-nice.152 Author: nice Time: 24 July 2010, 6:38:46.043 pm UUID: 11850e30-a071-425e-a01a-a52faffbddcd Ancestors: Compiler-jcg.147 Add the possibility in new code generation scheme to access shared variables by sending message #value to the variable binding instead of fetching second instance variable. This did already exist in old code generation scheme and is controlled by #isSpecialReadBinding. =============== Diff against Compiler-jcg.147 =============== Item was changed: ----- Method: LiteralVariableNode>>sizeCodeForValue: (in category 'code generation (new scheme)') ----- sizeCodeForValue: encoder self reserve: encoder. + (key isVariableBinding and: [key isSpecialReadBinding]) + ifFalse: + [^encoder sizePushLiteralVar: index]. + readNode := MessageNode new + receiver: (encoder encodeLiteral: key) + selector: (encoder encodeSelector: #value) + arguments: #() + precedence: #value precedence. + ^readNode sizeCodeForValue: encoder! - ^encoder sizePushLiteralVar: index! Item was changed: ----- Method: LiteralVariableNode>>emitCodeForValue:encoder: (in category 'code generation (new scheme)') ----- emitCodeForValue: stack encoder: encoder + ^readNode + ifNil: [stack push: 1. + encoder genPushLiteralVar: index] + ifNotNil: [readNode emitCodeForValue: stack encoder: encoder]! - stack push: 1. - ^encoder genPushLiteralVar: index!

1 0

The Trunk: Compiler-nice.152.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

1 0

The Trunk: Compiler-nice.152.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

1 0

The Trunk: ToolBuilder-Morphic-ar.66.mcz
by commits＠source.squeak.org 23 Jul '10

23 Jul '10

Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.66.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ar.66 Author: ar Time: 22 July 2010, 8:00:14.791 pm UUID: d8c9f589-e7d0-5349-9e38-b4c06f023b3f Ancestors: ToolBuilder-Morphic-eem.65 Fix UIManager>>edit:label:accept: to not evaluate the accept block initially. =============== Diff against ToolBuilder-Morphic-eem.65 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" | window | window := Workspace open. labelString ifNotNil: [ window setLabel: labelString ]. "By default, don't style in UIManager edit: requests" window model shouldStyle: false; + acceptContents: aText; + acceptAction: anAction. - acceptAction: anAction; - acceptContents: aText. ^window.!

1 0

← Newer
1
2
3
4
5
6
7
...
24
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 July 2010