Squeak-dev November 2010

squeak-dev@lists.squeakfoundation.org

77 participants
254 discussions

The Inbox: SUnitGUI-bp.50.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

A new version of SUnitGUI was added to project The Inbox: http://source.squeak.org/inbox/SUnitGUI-bp.50.mcz ==================== Summary ==================== Name: SUnitGUI-bp.50 Author: bp Time: 22 November 2010, 8:53:09.668 pm UUID: eb072196-893d-4822-8e86-09a113589786 Ancestors: SUnitGUI-ar.49 - fixed button height when resizing Test Runner =============== Diff against SUnitGUI-ar.49 =============== Item was changed: ----- Method: TestRunner>>buildWith: (in category 'building') ----- buildWith: aBuilder | window | window := aBuilder pluggableWindowSpec new model: self; label: self label; extent: self extent; children: (OrderedCollection new add: ((self buildCategoriesWith: aBuilder) + frame: self categoriesFrame; - frame: (0.00 @ 0.00 corner: 0.25 @ 0.92 ); yourself); add: ((self buildClassesWith: aBuilder) + frame: self classesFrame; - frame: (0.25 @ 0.00 corner: 0.50 @ 0.92 ); yourself); add: ((self buildStatusWith: aBuilder) + frame: self statusFrame; - frame: (0.50 @ 0.00 corner: 1.00 @ 0.08); yourself); add: ((self buildFailureListWith: aBuilder) + frame: self failureListFrame; - frame: (0.50 @ 0.08 corner: 1.00 @ 0.50); yourself); add: ((self buildErrorListWith: aBuilder) + frame: self errorListFrame; - frame: (0.50 @ 0.50 corner: 1.00 @ 0.92); yourself); add: ((self buildButtonsWith: aBuilder) + frame: self buttonsFrame; - frame: (0.00 @ 0.92 corner: 1.00 @ 1.00); yourself); yourself); yourself. ^ aBuilder build: window.! Item was added: + ----- Method: TestRunner>>buttonHeight (in category 'building') ----- + buttonHeight + ^Preferences standardButtonFont height + 25! Item was added: + ----- Method: TestRunner>>buttonsFrame (in category 'building') ----- + buttonsFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 1 offset: self buttonHeight negated; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0! Item was added: + ----- Method: TestRunner>>categoriesFrame (in category 'building') ----- + categoriesFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 0.25 offset: 0; + bottomFraction: 1 offset: self buttonHeight negated + 4! Item was added: + ----- Method: TestRunner>>classesFrame (in category 'building') ----- + classesFrame + ^LayoutFrame new + leftFraction: 0.25 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 0.5 offset: 0; + bottomFraction: 1 offset: self buttonHeight negated + 4! Item was added: + ----- Method: TestRunner>>errorListFrame (in category 'building') ----- + errorListFrame + ^LayoutFrame new + leftFraction: 0.5 offset: 0; + topFraction: 0.5 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: self buttonHeight negated + 4! Item was added: + ----- Method: TestRunner>>failureListFrame (in category 'building') ----- + failureListFrame + ^LayoutFrame new + leftFraction: 0.5 offset: 0; + topFraction: 0 offset: self statusHeight; + rightFraction: 1 offset: 0; + bottomFraction: 0.5 offset: 0! Item was added: + ----- Method: TestRunner>>statusFrame (in category 'building') ----- + statusFrame + ^LayoutFrame new + leftFraction: 0.5 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self statusHeight! Item was added: + ----- Method: TestRunner>>statusHeight (in category 'building') ----- + statusHeight + ^Preferences standardCodeFont height * 2 + 5!

1 0

The Trunk: Monticello-bp.412.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bp.412.mcz ==================== Summary ==================== Name: Monticello-bp.412 Author: bp Time: 21 November 2010, 7:28:32.444 pm UUID: 6cd35cbd-3caa-4830-8af4-3b9a94f73249 Ancestors: Monticello-bp.411 - use beginsWith: instead of the deprecated startsWith: =============== Diff against Monticello-bp.411 =============== Item was changed: ----- Method: MCVersionInfo>>nameWithout: (in category 'accessing') ----- nameWithout: packageName | result | result := self name. + (result beginsWith: packageName , '-') ifTrue: [ - (result startsWith: packageName , '-') ifTrue: [ result := result copyFrom: packageName size + 2 to: result size]. ^result!

1 0

The Trunk: Monticello-bp.411.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bp.411.mcz ==================== Summary ==================== Name: Monticello-bp.411 Author: bp Time: 21 November 2010, 6:38:42.624 pm UUID: cb55688c-2329-45c5-9d98-8df274e13a43 Ancestors: Monticello-bp.410 - Changed MCWorkingCopy description so that the package name is not duplicated when, e.g. Kernel (dtl.517) instead of Kernel (Kernel-dtl.517). This makes the Monticello Browser easier to use. =============== Diff against Monticello-bp.410 =============== Item was added: + ----- Method: MCAncestry>>ancestorStringWithout: (in category 'ancestry') ----- + ancestorStringWithout: packageName + ^ String streamContents: + [:s | self ancestors do: [:ea | s nextPutAll: (ea nameWithout: packageName)] separatedBy: [s nextPutAll: ', ']]! Item was added: + ----- Method: MCVersionInfo>>nameWithout: (in category 'accessing') ----- + nameWithout: packageName + | result | + result := self name. + (result startsWith: packageName , '-') ifTrue: [ + result := result copyFrom: packageName size + 2 to: result size]. + ^result! Item was changed: ----- Method: MCWorkingCopy>>description (in category 'accessing') ----- description + ^ self packageNameWithStar, ' (', (ancestry ancestorStringWithout: self packageName), ')'! - ^ self packageNameWithStar, ' (', ancestry ancestorString, ')'!

1 0

The Trunk: Monticello-bp.410.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bp.410.mcz ==================== Summary ==================== Name: Monticello-bp.410 Author: bp Time: 21 November 2010, 5:14:50.468 pm UUID: d1fd1b50-24dc-4eb1-8938-ea167b731a79 Ancestors: Monticello-ul.409 - printOn: for MCWorkingCopy prints the package name =============== Diff against Monticello-ul.409 =============== Item was added: + ----- Method: MCWorkingCopy>>printOn: (in category 'accessing') ----- + printOn: stream + super printOn: stream. + stream + nextPut: $(; + nextPutAll: self packageName; + nextPut: $)!

1 0

The Trunk: Graphics-mt.158.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.158.mcz ==================== Summary ==================== Name: Graphics-mt.158 Author: mt Time: 16 November 2010, 8:35:03.184 pm UUID: 347b600f-3afe-ac4c-acc6-4703d7a3c0bc Ancestors: Graphics-mt.157 - nicer version of fix for font rendering with translucent colors (thanks to Juan Vuletich) -> subpixel rendering will be disabled in that case - minor code clean-up (using Form-constants instead of magic numbers) =============== Diff against Graphics-mt.157 =============== Item was changed: ----- Method: BitBlt>>installStrikeFont:foregroundColor:backgroundColor: (in category 'private') ----- installStrikeFont: aStrikeFont foregroundColor: foregroundColor backgroundColor: backgroundColor | lastSourceDepth targetColor | sourceForm ifNotNil:[lastSourceDepth := sourceForm depth]. sourceForm := aStrikeFont glyphs. "Ignore any halftone pattern since we use a color map approach here" halftoneForm := nil. sourceY := 0. height := aStrikeFont height. sourceForm depth = 1 ifTrue: [ self combinationRule: Form paint. (colorMap notNil and:[lastSourceDepth = sourceForm depth]) ifFalse: [ "Set up color map for a different source depth (color font)" "Uses caching for reasonable efficiency" colorMap := self cachedFontColormapFrom: sourceForm depth to: destForm depth. colorMap at: 1 put: (destForm pixelValueFor: backgroundColor)]. colorMap at: 2 put: (destForm pixelValueFor: foregroundColor). ] ifFalse: [ + (Preferences subPixelRenderFonts and: [ foregroundColor = Color black + "Only use rgbMul with opaque colors as alpha values get lost for translucent colors." + or: [ Preferences subPixelRenderColorFonts and: [foregroundColor isOpaque] ]]) ifTrue: [ - (Preferences subPixelRenderFonts and: [ foregroundColor = Color black or: [ Preferences subPixelRenderColorFonts ]]) ifTrue: [ destForm depth > 8 ifTrue: [ + "rgbMul is equivalent to component alpha blend if text is black (only faster, hehe)" + self combinationRule: Form rgbMul. - "Only choose #rgbMul if color is not translucent for better result quality. Alpha values are ignored with #rgbMul." - foregroundColor isTranslucent - ifTrue: [self combinationRule: Form blend] - ifFalse: [self combinationRule: Form rgbMul]. colorMap := (destForm depth = 32 or: [ (foregroundColor = Color black) not ]) ifTrue: [ "rgbMul / rgbAdd IS component alpha blend for any color of text (neat trick, eh!!)" "This colorMap is to be used on the second pass with rule 20 (rgbAdd) See #displayString:from:to:at:strikeFont:kern:" "Note: In 32bpp we always need the second pass, as the source could have transparent pixels, and we need to add to the alpha channel" self colorConvertingMap: foregroundColor from: sourceForm depth to: destForm depth keepSubPixelAA: true]] ifFalse: [ + self combinationRule: Form paint. - self combinationRule: 25. "Paint" targetColor := foregroundColor = Color black ifFalse: [ foregroundColor ]. colorMap := self colorConvertingMap: targetColor from: sourceForm depth to: destForm depth keepSubPixelAA: true] ] ifFalse: [ "Do not use rule 34 for 16bpp display. TTCFont uses it, but it builds a glyphs cache for each color used!!" + self combinationRule: (destForm depth = 32 ifTrue: [Form blendAlphaScaled] ifFalse: [Form paint]). - self combinationRule: (destForm depth = 32 ifTrue: [34 "alphaBlendScaled"] ifFalse: [25 "Paint"]). colorMap := self colorConvertingMap: foregroundColor from: sourceForm depth to: destForm depth keepSubPixelAA: false ] ].! Item was added: + ----- Method: Form class>>blendAlphaScaled (in category 'mode constants') ----- + blendAlphaScaled + "Answer the integer denoting BitBlt's blend-with-alpha-scaled rule." + + ^ 34!

1 0

The Trunk: Graphics-mt.157.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.157.mcz ==================== Summary ==================== Name: Graphics-mt.157 Author: mt Time: 16 November 2010, 2:25:04.901 pm UUID: 4dce7252-8823-224f-af97-fe4c37ce7bbc Ancestors: Graphics-ul.156 - fonts with translucent color used the wrong combination rule for rendering by default - use "Form blend" explicitly as combination rule for fonts with translucent color =============== Diff against Graphics-ul.156 =============== Item was changed: ----- Method: BitBlt>>installStrikeFont:foregroundColor:backgroundColor: (in category 'private') ----- installStrikeFont: aStrikeFont foregroundColor: foregroundColor backgroundColor: backgroundColor | lastSourceDepth targetColor | sourceForm ifNotNil:[lastSourceDepth := sourceForm depth]. sourceForm := aStrikeFont glyphs. "Ignore any halftone pattern since we use a color map approach here" halftoneForm := nil. sourceY := 0. height := aStrikeFont height. sourceForm depth = 1 ifTrue: [ self combinationRule: Form paint. (colorMap notNil and:[lastSourceDepth = sourceForm depth]) ifFalse: [ "Set up color map for a different source depth (color font)" "Uses caching for reasonable efficiency" colorMap := self cachedFontColormapFrom: sourceForm depth to: destForm depth. colorMap at: 1 put: (destForm pixelValueFor: backgroundColor)]. colorMap at: 2 put: (destForm pixelValueFor: foregroundColor). ] ifFalse: [ (Preferences subPixelRenderFonts and: [ foregroundColor = Color black or: [ Preferences subPixelRenderColorFonts ]]) ifTrue: [ destForm depth > 8 ifTrue: [ + "Only choose #rgbMul if color is not translucent for better result quality. Alpha values are ignored with #rgbMul." - "Only force #rgbMul if color is not translucent for better result quality. Alpha values are ignored with #rgbMul." foregroundColor isTranslucent + ifTrue: [self combinationRule: Form blend] ifFalse: [self combinationRule: Form rgbMul]. colorMap := (destForm depth = 32 or: [ (foregroundColor = Color black) not ]) ifTrue: [ "rgbMul / rgbAdd IS component alpha blend for any color of text (neat trick, eh!!)" "This colorMap is to be used on the second pass with rule 20 (rgbAdd) See #displayString:from:to:at:strikeFont:kern:" "Note: In 32bpp we always need the second pass, as the source could have transparent pixels, and we need to add to the alpha channel" self colorConvertingMap: foregroundColor from: sourceForm depth to: destForm depth keepSubPixelAA: true]] ifFalse: [ self combinationRule: 25. "Paint" targetColor := foregroundColor = Color black ifFalse: [ foregroundColor ]. colorMap := self colorConvertingMap: targetColor from: sourceForm depth to: destForm depth keepSubPixelAA: true] ] ifFalse: [ "Do not use rule 34 for 16bpp display. TTCFont uses it, but it builds a glyphs cache for each color used!!" self combinationRule: (destForm depth = 32 ifTrue: [34 "alphaBlendScaled"] ifFalse: [25 "Paint"]). colorMap := self colorConvertingMap: foregroundColor from: sourceForm depth to: destForm depth keepSubPixelAA: false ] ].!

1 0

The Trunk: Tests-ul.101.mcz
by commits＠source.squeak.org 22 Nov '10

22 Nov '10

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.101.mcz ==================== Summary ==================== Name: Tests-ul.101 Author: ul Time: 22 November 2010, 1:59:08.159 pm UUID: 0359a01b-1b0d-9546-80e1-e336ecd896c2 Ancestors: Tests-ul.100 - updated the tests to reflect the font changes =============== Diff against Tests-ul.100 =============== Item was changed: ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- testRestoreDefaultFonts Preferences restoreFontsAfter: [ Preferences restoreDefaultFonts. self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12. self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9. self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. + self assert: #standardButtonFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]! - self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]!

1 0

Etoys developer chat today
by Bert Freudenberg 22 Nov '10

22 Nov '10

Please join our weekly Etoys developer chat today, as every Monday at 12 noon Squeakland Time. For local time and how to participate, look here: http://etoys.squeak.org/chat/ Logs are also linked from that page. Here's one conversation we had last week: http://meeting.sugarlabs.org/etoys/2010-11-15#i_2591670 - Bert -

1 0

TestMock: a full featured mock testing framework now avaiable in SqueakSource
by Anindya Haldar 22 Nov '10

22 Nov '10

Dear Squeakers, I am glad to announce availability of the TestMock mock testing framework to the community. Please feel free to give it a try. It is listed under project name TestMock in squeaksource. The wiki has a how-to guide with code examples. I will appreciate any feedback. I have been trying to subscribe to the squeak dev list; but for some reason I never got the confirmation after filling out the web form. Having the subscription enabled would certainly help in the communication. I have also announced this on the phare dev list; subscription setup worked fine for that list. Regards, Anindya

1 0

The Inbox: Monticello-bp.412.mcz
by commits＠source.squeak.org 21 Nov '10

21 Nov '10

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-bp.412.mcz ==================== Summary ==================== Name: Monticello-bp.412 Author: bp Time: 21 November 2010, 7:28:32.444 pm UUID: 6cd35cbd-3caa-4830-8af4-3b9a94f73249 Ancestors: Monticello-bp.411 - use beginsWith: instead of the deprecated startsWith: =============== Diff against Monticello-bp.411 =============== Item was changed: ----- Method: MCVersionInfo>>nameWithout: (in category 'accessing') ----- nameWithout: packageName | result | result := self name. + (result beginsWith: packageName , '-') ifTrue: [ - (result startsWith: packageName , '-') ifTrue: [ result := result copyFrom: packageName size + 2 to: result size]. ^result!

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
26
Older →

Jump to page: