Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.183.mcz
==================== Summary ====================
Name: Tests-fbs.183
Author: fbs
Time: 15 January 2013, 2:02:11.056 pm
UUID: 97c3817d-8a4c-4c95-96f0-be7c20937b46
Ancestors: Tests-fbs.182
Fail with a more meaningful description of the problem.
=============== Diff against Tests-fbs.182 ===============
Item was changed:
----- Method: ReleaseTest>>testMethodsWithUnboundGlobals (in category 'testing') -----
testMethodsWithUnboundGlobals
Smalltalk cleanOutUndeclared.
+ self assert: OrderedCollection new equals: SystemNavigation default methodsWithUnboundGlobals.
- self assert: SystemNavigation default methodsWithUnboundGlobals isEmpty
!
Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.183.mcz
==================== Summary ====================
Name: Tests-fbs.183
Author: fbs
Time: 15 January 2013, 2:02:11.056 pm
UUID: 97c3817d-8a4c-4c95-96f0-be7c20937b46
Ancestors: Tests-fbs.182
Fail with a more meaningful description of the problem.
=============== Diff against Tests-fbs.182 ===============
Item was changed:
----- Method: ReleaseTest>>testMethodsWithUnboundGlobals (in category 'testing') -----
testMethodsWithUnboundGlobals
Smalltalk cleanOutUndeclared.
+ self assert: OrderedCollection new equals: SystemNavigation default methodsWithUnboundGlobals.
- self assert: SystemNavigation default methodsWithUnboundGlobals isEmpty
!
Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.183.mcz
==================== Summary ====================
Name: Tests-fbs.183
Author: fbs
Time: 15 January 2013, 2:02:11.056 pm
UUID: 97c3817d-8a4c-4c95-96f0-be7c20937b46
Ancestors: Tests-fbs.182
Fail with a more meaningful description of the problem.
=============== Diff against Tests-fbs.182 ===============
Item was changed:
----- Method: ReleaseTest>>testMethodsWithUnboundGlobals (in category 'testing') -----
testMethodsWithUnboundGlobals
Smalltalk cleanOutUndeclared.
+ self assert: OrderedCollection new equals: SystemNavigation default methodsWithUnboundGlobals.
- self assert: SystemNavigation default methodsWithUnboundGlobals isEmpty
!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.634.mcz
==================== Summary ====================
Name: Morphic-dtl.634
Author: dtl
Time: 13 January 2013, 1:48:33.942 pm
UUID: 02716c40-7437-458c-80ff-22679fcd3c04
Ancestors: Morphic-dtl.633
Fix for Morphic layout bug reported by Bob Arning in http://lists.squeakfoundation.org/pipermail/squeak-dev/2013-January/167757.…
Invalidate changed regions in Morph>>layoutBounds: in the same manner as in Morph>>doLayoutIn:
=============== Diff against Morphic-dtl.633 ===============
Item was changed:
----- Method: Morph>>layoutBounds: (in category 'layout') -----
layoutBounds: aRectangle
"Set the bounds for laying out children of the receiver.
Note: written so that #layoutBounds can be changed without touching this method"
+ | priorBounds outer inner box |
+ priorBounds := self outerBounds.
- | outer inner |
outer := self bounds.
inner := self layoutBounds.
bounds := aRectangle origin + (outer origin - inner origin) corner:
+ aRectangle corner + (outer corner - inner corner).
+ box := self outerBounds.
+ box = priorBounds
+ ifFalse: [self invalidRect: (priorBounds quickMerge: box)]!
- aRectangle corner + (outer corner - inner corner).!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.634.mcz
==================== Summary ====================
Name: Morphic-dtl.634
Author: dtl
Time: 13 January 2013, 1:48:33.942 pm
UUID: 02716c40-7437-458c-80ff-22679fcd3c04
Ancestors: Morphic-dtl.633
Fix for Morphic layout bug reported by Bob Arning in http://lists.squeakfoundation.org/pipermail/squeak-dev/2013-January/167757.…
Invalidate changed regions in Morph>>layoutBounds: in the same manner as in Morph>>doLayoutIn:
=============== Diff against Morphic-dtl.633 ===============
Item was changed:
----- Method: Morph>>layoutBounds: (in category 'layout') -----
layoutBounds: aRectangle
"Set the bounds for laying out children of the receiver.
Note: written so that #layoutBounds can be changed without touching this method"
+ | priorBounds outer inner box |
+ priorBounds := self outerBounds.
- | outer inner |
outer := self bounds.
inner := self layoutBounds.
bounds := aRectangle origin + (outer origin - inner origin) corner:
+ aRectangle corner + (outer corner - inner corner).
+ box := self outerBounds.
+ box = priorBounds
+ ifFalse: [self invalidRect: (priorBounds quickMerge: box)]!
- aRectangle corner + (outer corner - inner corner).!
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.634.mcz
==================== Summary ====================
Name: Morphic-dtl.634
Author: dtl
Time: 13 January 2013, 1:48:33.942 pm
UUID: 02716c40-7437-458c-80ff-22679fcd3c04
Ancestors: Morphic-dtl.633
Fix for Morphic layout bug reported by Bob Arning in http://lists.squeakfoundation.org/pipermail/squeak-dev/2013-January/167757.…
Invalidate changed regions in Morph>>layoutBounds: in the same manner as in Morph>>doLayoutIn:
=============== Diff against Morphic-dtl.633 ===============
Item was changed:
----- Method: Morph>>layoutBounds: (in category 'layout') -----
layoutBounds: aRectangle
"Set the bounds for laying out children of the receiver.
Note: written so that #layoutBounds can be changed without touching this method"
+ | priorBounds outer inner box |
+ priorBounds := self outerBounds.
- | outer inner |
outer := self bounds.
inner := self layoutBounds.
bounds := aRectangle origin + (outer origin - inner origin) corner:
+ aRectangle corner + (outer corner - inner corner).
+ box := self outerBounds.
+ box = priorBounds
+ ifFalse: [self invalidRect: (priorBounds quickMerge: box)]!
- aRectangle corner + (outer corner - inner corner).!
Nicolas Cellier uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-nice.196.mcz
==================== Summary ====================
Name: Graphics-nice.196
Author: nice
Time: 15 January 2013, 2:15:42.347 am
UUID: bb016276-f7e3-44ac-af5a-f6dba9b98940
Ancestors: Graphics-bf.195
Some degenerated rectangles (lines) can intersects: even though they have a null area.
=============== Diff against Graphics-bf.195 ===============
Item was changed:
----- Method: Rectangle>>intersects: (in category 'testing') -----
intersects: aRectangle
"Answer whether aRectangle intersects the receiver anywhere."
"Optimized; old code answered:
(origin max: aRectangle origin) < (corner min: aRectangle corner)"
| rOrigin rCorner |
rOrigin := aRectangle origin.
rCorner := aRectangle corner.
rCorner x <= origin x ifTrue: [^ false].
rCorner y <= origin y ifTrue: [^ false].
rOrigin x >= corner x ifTrue: [^ false].
rOrigin y >= corner y ifTrue: [^ false].
"None of the two rectangle shall be empty"
+ corner x < origin x ifTrue: [^ false].
+ corner y < origin y ifTrue: [^ false].
+ rCorner x < rOrigin x ifTrue: [^ false].
+ rCorner y < rOrigin y ifTrue: [^ false].
- corner x <= origin x ifTrue: [^ false].
- corner y <= origin y ifTrue: [^ false].
- rCorner x <= rOrigin x ifTrue: [^ false].
- rCorner y <= rOrigin y ifTrue: [^ false].
^ true
!
Nicolas Cellier uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-nice.196.mcz
==================== Summary ====================
Name: Graphics-nice.196
Author: nice
Time: 15 January 2013, 2:15:42.347 am
UUID: bb016276-f7e3-44ac-af5a-f6dba9b98940
Ancestors: Graphics-bf.195
Some degenerated rectangles (lines) can intersects: even though they have a null area.
=============== Diff against Graphics-bf.195 ===============
Item was changed:
----- Method: Rectangle>>intersects: (in category 'testing') -----
intersects: aRectangle
"Answer whether aRectangle intersects the receiver anywhere."
"Optimized; old code answered:
(origin max: aRectangle origin) < (corner min: aRectangle corner)"
| rOrigin rCorner |
rOrigin := aRectangle origin.
rCorner := aRectangle corner.
rCorner x <= origin x ifTrue: [^ false].
rCorner y <= origin y ifTrue: [^ false].
rOrigin x >= corner x ifTrue: [^ false].
rOrigin y >= corner y ifTrue: [^ false].
"None of the two rectangle shall be empty"
+ corner x < origin x ifTrue: [^ false].
+ corner y < origin y ifTrue: [^ false].
+ rCorner x < rOrigin x ifTrue: [^ false].
+ rCorner y < rOrigin y ifTrue: [^ false].
- corner x <= origin x ifTrue: [^ false].
- corner y <= origin y ifTrue: [^ false].
- rCorner x <= rOrigin x ifTrue: [^ false].
- rCorner y <= rOrigin y ifTrue: [^ false].
^ true
!