Packages April 2010

packages@lists.squeakfoundation.org

1 participants
459 discussions

The Trunk: System-ar.308.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

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"!

1 0

The Trunk: System-ar.308.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: MorphicTests-bp.14.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Andreas Raab uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-bp.14.mcz ==================== Summary ==================== Name: MorphicTests-bp.14 Author: bp Time: 2 April 2010, 11:32:53.032 pm UUID: 3a037f09-63d5-4111-9f2c-cfdc5d5254f1 Ancestors: MorphicTests-ar.13 created LayoutFrameTest =============== Diff against MorphicTests-ar.13 =============== Item was changed: SystemOrganization addCategory: #'MorphicTests-Basic'! SystemOrganization addCategory: #'MorphicTests-Kernel'! + SystemOrganization addCategory: #'MorphicTests-Layouts'! + SystemOrganization addCategory: #'MorphicTests-Support'! SystemOrganization addCategory: #'MorphicTests-Text Support'! SystemOrganization addCategory: #'MorphicTests-Widgets'! - SystemOrganization addCategory: #'MorphicTests-Support'! SystemOrganization addCategory: #'MorphicTests-Worlds'! Item was added: + TestCase subclass: #LayoutFrameTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-Layouts'! Item was added: + ----- Method: LayoutFrameTest>>testRightBottomQuadrant (in category 'as yet unclassified') ----- + testRightBottomQuadrant + | lf rectangle | + lf := LayoutFrame new + leftFraction: 1/2 offset: 1; + topFraction: 1/2 offset: 1; + rightFraction: 1 offset: -2; + bottomFraction: 1 offset: -2; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (101@41 corner: 148@68) = rectangle! Item was added: + ----- Method: LayoutFrameTest>>testInset (in category 'as yet unclassified') ----- + testInset + | lf rectangle | + lf := LayoutFrame new + leftFraction: 0 offset: 10; + topFraction: 0 offset: 10; + rightFraction: 1 offset: -10; + bottomFraction: 1 offset: -10; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (60@20 corner: 140@60) = rectangle! Item was added: + ----- Method: LayoutFrameTest>>testSpaceFill (in category 'as yet unclassified') ----- + testSpaceFill + | lf rectangle | + lf := LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (50@10 corner: 150@70) = rectangle! Item was added: + ----- Method: LayoutFrameTest>>testLeftTopAligned (in category 'as yet unclassified') ----- + testLeftTopAligned + | lf rectangle | + lf := LayoutFrame new + leftFraction: 0 offset: 10; + topFraction: 0 offset: 10; + rightFraction: 0 offset: 60; + bottomFraction: 0 offset: 25; + yourself. + rectangle := lf layout: nil in: (50@10 corner: 150@70). + self assert: (60@20 corner: 110@35) = rectangle!

1 0

The Trunk: MorphicTests-bp.14.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: MorphicTests-bp.14.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: Monticello-bp.387.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Andreas Raab uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bp.387.mcz ==================== Summary ==================== Name: Monticello-bp.387 Author: bp Time: 2 April 2010, 11:40:29.553 pm UUID: 1807cd8e-3bdb-4b59-b97a-b6264af5b2ce Ancestors: Monticello-nice.386 fix height on button rows in Monticello tools =============== Diff against Monticello-nice.386 =============== Item was changed: ----- Method: MCTool>>buildWith: (in category 'morphic ui') ----- buildWith: builder | windowBuilder | windowBuilder := MCToolWindowBuilder builder: builder tool: self. self widgetSpecs do: + [:spec | | send fractions offsets | - [:spec | | send fractions offsets origin corner | send := spec first. fractions := spec at: 2 ifAbsent: [#(0 0 1 1)]. offsets := spec at: 3 ifAbsent: [#(0 0 0 0)]. + windowBuilder frame: (LayoutFrame + fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth) + offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth)). - origin := (offsets first @ offsets second) - / self defaultExtent asFloatPoint - + (fractions first @ fractions second). - corner := (offsets third @ offsets fourth) - / self defaultExtent asFloatPoint - + (fractions third @ fractions fourth). - windowBuilder frame: (origin corner: corner). windowBuilder perform: send first withArguments: send allButFirst]. ^ windowBuilder build !

1 0

The Trunk: Monticello-bp.387.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: Monticello-bp.387.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

The Trunk: Graphics-ar.131.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

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!

1 0

The Trunk: Graphics-ar.131.mcz
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2010