Squeak-dev April 2010

squeak-dev@lists.squeakfoundation.org

122 participants
595 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: 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: 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: 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.130.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.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)!

1 0

Daily Commit Log
by commits＠source.squeak.org 03 Apr '10

03 Apr '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-April/003188.html Name: Tests-ar.67 Ancestors: Tests-ar.66 Add test for FileStream>>atEnd when file is positioned past end. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-April/003189.html Name: Compiler-nice.138 Ancestors: Compiler-ar.137 Fix http://bugs.squeak.org/view.php?id=7491 Scanner new scanTokens: '1 at -1'. => Scanner doesNotUnderstand: #ambiguousSelector:inRange: =============================================

1 0

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

02 Apr '10

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/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 Inbox: Tools-bp.220.mcz
by commits＠source.squeak.org 02 Apr '10

02 Apr '10

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-bp.220.mcz ==================== Summary ==================== Name: Tools-bp.220 Author: bp Time: 2 April 2010, 11:39:31.81 pm UUID: e5e40b2c-99fc-45a1-9310-9c82bf1705f4 Ancestors: Tools-nice.219 fix height for button rows in browsers =============== Diff against Tools-nice.219 =============== Item was added: + ----- Method: Browser>>switchesFrame: (in category 'initialize-release') ----- + switchesFrame: bottomFraction + ^LayoutFrame new + leftFraction: 0.25 offset: 0; + topFraction: bottomFraction offset: self buttonHeight negated - 4; + rightFraction: 0.5 offset: 0; + bottomFraction: bottomFraction offset: 0! Item was added: + ----- Method: CodeHolder>>buttonHeight (in category 'toolbuilder') ----- + buttonHeight + ^Preferences standardButtonFont height + 12! Item was added: + ----- Method: CodeHolder>>optionalButtonsFrame (in category 'toolbuilder') ----- + optionalButtonsFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self buttonHeight! Item was changed: SystemOrganization addCategory: #'Tools-ArchiveViewer'! SystemOrganization addCategory: #'Tools-Base'! SystemOrganization addCategory: #'Tools-Browser'! SystemOrganization addCategory: #'Tools-Changes'! SystemOrganization addCategory: #'Tools-Debugger'! SystemOrganization addCategory: #'Tools-Explorer'! SystemOrganization addCategory: #'Tools-File Contents Browser'! SystemOrganization addCategory: #'Tools-FileList'! SystemOrganization addCategory: #'Tools-Inspector'! - SystemOrganization addCategory: #'Tools-Process Browser'! SystemOrganization addCategory: #'Tools-Menus'! + SystemOrganization addCategory: #'Tools-Process Browser'! Item was added: + ----- Method: Browser>>classListFrame: (in category 'initialize-release') ----- + classListFrame: bottomFraction + ^LayoutFrame new + leftFraction: 0.25 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 0.5 offset: 0; + bottomFraction: bottomFraction offset: self buttonHeight negated - 3! Item was added: + ----- Method: CodeHolder>>annotationFrame (in category 'toolbuilder') ----- + annotationFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 1 offset: self annotationPaneHeight negated - 1; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0! Item was added: + ----- Method: CodeHolder>>textFrame (in category 'toolbuilder') ----- + textFrame + | spacing topOffset bottomOffset | + spacing := 3. + topOffset := self wantsOptionalButtons + ifTrue: [self buttonHeight + spacing] + ifFalse: [spacing]. + bottomOffset := self wantsAnnotationPane + ifTrue: [self annotationPaneHeight negated] + ifFalse: [0]. + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: topOffset; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: bottomOffset! Item was changed: ----- Method: Browser>>openEditString: (in category 'initialize-release') ----- openEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers." "Example: Browser fullOnClass: Browser. " | builder max | builder := ToolBuilder default. max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. ^self buildWindowWith: builder specs: { (0@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder]. + (self classListFrame: max) -> [self buildClassListWith: builder]. + (self switchesFrame: max) -> [self buildSwitchesWith: builder]. - (0.25@0 corner: 0.5(a)(max-0.08)) -> [self buildClassListWith: builder]. - (0.25(a)(max-0.08) corner: 0.5@max) -> [self buildSwitchesWith: builder]. (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. "(0@max corner: 1(a)0.5) -> [self buildOptionalButtonsWith: builder]." (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. }! Item was added: + ----- Method: CodeHolder>>annotationPaneHeight (in category 'toolbuilder') ----- + annotationPaneHeight + ^Preferences standardCodeFont height * 2 + 5! Item was changed: ----- Method: CodeHolder>>buildCodePaneWith: (in category 'toolbuilder') ----- buildCodePaneWith: builder | textSpec top buttonSpec annoSpec | + self wantsOptionalButtons ifTrue: [ - self wantsOptionalButtons ifTrue:[ top := builder pluggablePanelSpec new. top children: OrderedCollection new. buttonSpec := self buildOptionalButtonsWith: builder. + buttonSpec frame: self optionalButtonsFrame. + top children add: buttonSpec]. - buttonSpec frame: (0@0 corner: 1(a)0.11). - top children add: buttonSpec. - ]. textSpec := builder pluggableCodePaneSpec new. textSpec model: self; getText: #contents; setText: #contents:notifying:; selection: #contentsSelection; menu: #codePaneMenu:shifted:. + self wantsAnnotationPane ifTrue: [ + top ifNil: [ - self wantsAnnotationPane ifTrue:[ - top ifNil:[ top := builder pluggablePanelSpec new. + top children: OrderedCollection new]. - top children: OrderedCollection new. - ]. annoSpec := builder pluggableInputFieldSpec new. annoSpec model: self; getText: #annotation. + annoSpec frame: self annotationFrame. + top children add: annoSpec]. + top ifNotNil: [ + textSpec frame: self textFrame. + top children add: textSpec]. + ^top ifNil: [textSpec]! - annoSpec frame: (0(a)0.88 corner: 1@1). - top children add: annoSpec. - ]. - top ifNotNil:[ - textSpec frame: (0 @ (buttonSpec ifNil:[0] ifNotNil:[0.12]) - corner: 1 @ (annoSpec ifNil:[1] ifNotNil:[0.88])). - top children add: textSpec. - ]. - ^top ifNil:[textSpec]! Item was removed: - ----- Method: Browser>>addClassAndSwitchesTo:at:with: (in category 'toolbuilder') ----- - addClassAndSwitchesTo: windowSpec at: frame with: builder - | listSpec panelSpec | - - listSpec := self buildClassListWith: builder. - listSpec frame: (frame origin corner: frame right @ (frame bottom - 0.08)). - windowSpec children add: listSpec. - - panelSpec := self buildSwitchesWith: builder. - panelSpec frame: (frame left@(frame bottom - 0.08) corner: frame corner). - windowSpec children addLast: panelSpec.!

1 0

The Inbox: ToolBuilder-MVC-bp.19.mcz
by commits＠source.squeak.org 02 Apr '10

02 Apr '10

A new version of ToolBuilder-MVC was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-MVC-bp.19.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-bp.19 Author: bp Time: 2 April 2010, 11:37:19.607 pm UUID: ee4164eb-fca3-4d5f-af5c-3155f9d7ea6b Ancestors: ToolBuilder-MVC-dtl.18 add support for LayoutFrames in addition to Rectangle frames =============== Diff against ToolBuilder-MVC-dtl.18 =============== Item was changed: ----- Method: MVCToolBuilder>>setFrame:in: (in category 'private') ----- + setFrame: fractionsRectangleOrLayoutFrame in: widget - setFrame: aRectangle in: widget | win | + fractionsRectangleOrLayoutFrame ifNil: [^nil]. + win := fractionsRectangleOrLayoutFrame isRectangle + ifTrue: [self asWindow: fractionsRectangleOrLayoutFrame] + ifFalse: [fractionsRectangleOrLayoutFrame layout: nil in: topSize]. "assume LayoutFrame" - aRectangle ifNil:[^nil]. - win := self asWindow: aRectangle. widget window: win.!

1 0

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

02 Apr '10

A new version of MorphicTests was added to project The Inbox: http://source.squeak.org/inbox/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

Jump to page: