Andreas Raab uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-ar.131.mcz
==================== Summary ====================
Name: Graphics-ar.131
Author: ar
Time: 2 April 2010, 10:43:17.22 pm
UUID: 7fb080f4-d61b-6e47-91cd-1801c6af772b
Ancestors: Graphics-ar.130, Graphics-bp.130
Merging Graphics-bp.130:
fix comment in Rectangle>>extent
=============== Diff against Graphics-ar.130 ===============
Item was changed:
----- Method: Rectangle>>extent (in category 'accessing') -----
extent
+ "Answer a point with the receiver's
- "Answer with a rectangle with origin 0@0 and corner the receiver's
width @ the receiver's height."
^corner - origin!
Andreas Raab uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-ar.130.mcz
==================== Summary ====================
Name: Graphics-ar.130
Author: ar
Time: 2 April 2010, 10:36:24.417 pm
UUID: d1d8720e-3f9c-6f46-a104-3a2fcaa671b6
Ancestors: Graphics-nice.129
Fix http://bugs.squeak.org/view.php?id=7492
=============== Diff against Graphics-nice.129 ===============
Item was changed:
----- Method: Form>>collectPixels: (in category 'converting') -----
collectPixels: aBlock
"Create a new copy of the receiver with all the pixels transformed by aBlock"
+ self depth = 32 ifFalse:[
+ "Perform the operation in 32bpp"
+ ^((self asFormOfDepth: 32) collectPixels: aBlock) asFormOfDepth: self depth].
- self depth = 32 ifFalse:[^self error: 'Not implemented for depth ', self depth].
self unhibernate. "ensure unhibernated before touching bits"
^Form
extent: self extent
depth: self depth
bits: (self bits collect: aBlock)!
Andreas Raab uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-ar.130.mcz
==================== Summary ====================
Name: Graphics-ar.130
Author: ar
Time: 2 April 2010, 10:36:24.417 pm
UUID: d1d8720e-3f9c-6f46-a104-3a2fcaa671b6
Ancestors: Graphics-nice.129
Fix http://bugs.squeak.org/view.php?id=7492
=============== Diff against Graphics-nice.129 ===============
Item was changed:
----- Method: Form>>collectPixels: (in category 'converting') -----
collectPixels: aBlock
"Create a new copy of the receiver with all the pixels transformed by aBlock"
+ self depth = 32 ifFalse:[
+ "Perform the operation in 32bpp"
+ ^((self asFormOfDepth: 32) collectPixels: aBlock) asFormOfDepth: self depth].
- self depth = 32 ifFalse:[^self error: 'Not implemented for depth ', self depth].
self unhibernate. "ensure unhibernated before touching bits"
^Form
extent: self extent
depth: self depth
bits: (self bits collect: aBlock)!
Andreas Raab uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-ar.130.mcz
==================== Summary ====================
Name: Graphics-ar.130
Author: ar
Time: 2 April 2010, 10:36:24.417 pm
UUID: d1d8720e-3f9c-6f46-a104-3a2fcaa671b6
Ancestors: Graphics-nice.129
Fix http://bugs.squeak.org/view.php?id=7492
=============== Diff against Graphics-nice.129 ===============
Item was changed:
----- Method: Form>>collectPixels: (in category 'converting') -----
collectPixels: aBlock
"Create a new copy of the receiver with all the pixels transformed by aBlock"
+ self depth = 32 ifFalse:[
+ "Perform the operation in 32bpp"
+ ^((self asFormOfDepth: 32) collectPixels: aBlock) asFormOfDepth: self depth].
- self depth = 32 ifFalse:[^self error: 'Not implemented for depth ', self depth].
self unhibernate. "ensure unhibernated before touching bits"
^Form
extent: self extent
depth: self depth
bits: (self bits collect: aBlock)!
Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.67.mcz
==================== Summary ====================
Name: Tests-ar.67
Author: ar
Time: 2 April 2010, 12:45:17.743 am
UUID: c3b6aa2e-ca57-7d4f-9bc9-2a987d17eedd
Ancestors: Tests-ar.66
Add test for FileStream>>atEnd when file is positioned past end.
=============== Diff against Tests-ar.66 ===============
Item was added:
+ ----- Method: FileStreamTest>>testPositionPastEndIsAtEnd (in category 'as yet unclassified') -----
+ testPositionPastEndIsAtEnd
+ "Tests that a file positioned after its end responds true to #atEnd"
+
+ | filename file |
+ filename := 'filestream.tst'.
+ file := StandardFileStream forceNewFileNamed: filename.
+ [
+ file position: 1000.
+ self assert: file atEnd.
+ ] ensure:[
+ file close.
+ FileDirectory default deleteFileNamed: filename ifAbsent:[].
+ ].!
Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.67.mcz
==================== Summary ====================
Name: Tests-ar.67
Author: ar
Time: 2 April 2010, 12:45:17.743 am
UUID: c3b6aa2e-ca57-7d4f-9bc9-2a987d17eedd
Ancestors: Tests-ar.66
Add test for FileStream>>atEnd when file is positioned past end.
=============== Diff against Tests-ar.66 ===============
Item was added:
+ ----- Method: FileStreamTest>>testPositionPastEndIsAtEnd (in category 'as yet unclassified') -----
+ testPositionPastEndIsAtEnd
+ "Tests that a file positioned after its end responds true to #atEnd"
+
+ | filename file |
+ filename := 'filestream.tst'.
+ file := StandardFileStream forceNewFileNamed: filename.
+ [
+ file position: 1000.
+ self assert: file atEnd.
+ ] ensure:[
+ file close.
+ FileDirectory default deleteFileNamed: filename ifAbsent:[].
+ ].!
Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.67.mcz
==================== Summary ====================
Name: Tests-ar.67
Author: ar
Time: 2 April 2010, 12:45:17.743 am
UUID: c3b6aa2e-ca57-7d4f-9bc9-2a987d17eedd
Ancestors: Tests-ar.66
Add test for FileStream>>atEnd when file is positioned past end.
=============== Diff against Tests-ar.66 ===============
Item was added:
+ ----- Method: FileStreamTest>>testPositionPastEndIsAtEnd (in category 'as yet unclassified') -----
+ testPositionPastEndIsAtEnd
+ "Tests that a file positioned after its end responds true to #atEnd"
+
+ | filename file |
+ filename := 'filestream.tst'.
+ file := StandardFileStream forceNewFileNamed: filename.
+ [
+ file position: 1000.
+ self assert: file atEnd.
+ ] ensure:[
+ file close.
+ FileDirectory default deleteFileNamed: filename ifAbsent:[].
+ ].!