Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.308.mcz
==================== Summary ====================
Name: System-ar.308
Author: ar
Time: 2 April 2010, 10:45:40.986 pm
UUID: 4bebe387-cc68-0c4e-ad67-cd3dbc4dd692
Ancestors: System-ar.307, System-cbr.306
Merging System-cbr.306:
Fixed weirdness in RealEstateAgent>>standardWindowExtent which was causing browsers/etc to appear too small to use on devices with small screens. I did the most unobtrusive thing possible, as 4.1 is in code lockdown. In order to figure out what was going wrong, I refactored the whole thing, but I will save those changes for 4.2, opting to do what it takes to make the system browser usable on your 2010 interrim Dynabook. It should be noted that this method was guilty of shenanigans before I touched it :-)
=============== Diff against System-ar.307 ===============
Item was changed:
----- Method: RealEstateAgent class>>standardWindowExtent (in category 'settings') -----
standardWindowExtent
"Answer the standard default extent for new windows. "
+ | effectiveExtent width strips height grid allowedArea maxLevel extent |
- | effectiveExtent width strips height grid allowedArea maxLevel |
effectiveExtent := self maximumUsableArea extent
- (self scrollBarSetback @ self screenTopSetback).
Preferences reverseWindowStagger ifTrue:
["NOTE: following copied from strictlyStaggeredInitialFrameFor:"
allowedArea := self maximumUsableArea insetBy: (
self scrollBarSetback @ self screenTopSetback extent: 0@0
).
"Number to be staggered at each corner (less on small screens)"
maxLevel := allowedArea area > 300000 ifTrue: [3] ifFalse: [2].
"Amount by which to stagger (less on small screens)"
grid := allowedArea area > 500000 ifTrue: [40] ifFalse: [20].
+ extent := (allowedArea extent - (grid*(maxLevel+1*2) + (grid//2))) min: StandardSize "600@400".
+ (extent y < 300) ifTrue: [^ (extent x)@300 ].
+ ^ extent].
- ^ (allowedArea extent - (grid*(maxLevel+1*2) + (grid//2))) min: StandardSize "600@400"].
width := (strips := self windowColumnsDesired) > 1
ifTrue:
[effectiveExtent x // strips]
ifFalse:
[(3 * effectiveExtent x) // 4].
height := (strips := self windowRowsDesired) > 1
ifTrue:
[effectiveExtent y // strips]
ifFalse:
[(3 * effectiveExtent y) //4].
^ width @ height
"RealEstateAgent standardWindowExtent"!
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)!