Packages March 2010

packages@lists.squeakfoundation.org

4 participants
904 discussions

The Trunk: Tests-ul.65.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.65.mcz ==================== Summary ==================== Name: Tests-ul.65 Author: ul Time: 29 March 2010, 4:45:31.294 am UUID: cbeb4146-2fac-7b49-93e3-120cb1cf46c5 Ancestors: Tests-ul.64 - fix StandardSystemFontsTest >> #testRestoreDefaultFonts =============== Diff against Tests-ul.64 =============== Item was changed: ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- testRestoreDefaultFonts self saveStandardSystemFontsDuring: [ 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: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 12. self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]!

1 0

The Trunk: Tests-ul.65.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

1 0

The Trunk: Graphics-ar.128.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

Andreas Raab uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ar.128.mcz ==================== Summary ==================== Name: Graphics-ar.128 Author: ar Time: 28 March 2010, 3:38:28.691 pm UUID: 1dbdb38d-01ac-ca44-b388-8f451290286e Ancestors: Graphics-laza.127 Generalize #lighter, #darker, #dimmed into #collectColors: and #collectPixels: which now also ensures that the form is unhibernated (this could cause problems during/after image same) and that we only do this for depth 32 as the other form depths are currently not implemented. =============== Diff against Graphics-laza.127 =============== Item was changed: ----- Method: Form>>lighter (in category 'converting') ----- lighter "Answer a lighter variant of this form" + ^self collectColors:[:color| color lighter lighter].! - - ^ Form - extent: self extent - depth: self depth - bits: (self bits collect: [:bit | - (Color colorFromPixelValue: bit depth: self depth) - lighter lighter - pixelValueForDepth: self depth])! Item was added: + ----- Method: Form>>collectColors: (in category 'converting') ----- + collectColors: aBlock + "Create a new copy of the receiver with all the colors transformed by aBlock" + ^self collectPixels:[:pv| + (aBlock value: (Color colorFromPixelValue: pv depth: self depth)) + pixelValueForDepth: self depth. + ].! Item was changed: ----- Method: Form>>dimmed (in category 'converting') ----- dimmed "Answer a dimmed variant of this form." + ^self collectColors:[:color| (color alpha: (color alpha min: 0.2)) ]! - - ^ Form - extent: self extent - depth: self depth - bits: (self bits collect: [:bit | | color | - color := Color colorFromPixelValue: bit depth: self depth. - (color alpha: (color alpha min: 0.2)) pixelValueForDepth: self depth])! Item was added: + ----- 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:[^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)! Item was changed: ----- Method: Form>>darker (in category 'converting') ----- darker "Answer a darker variant of this form." + ^self collectColors:[:color| color darker darker]! - - ^ Form - extent: self extent - depth: self depth - bits: (self bits collect: [:bit | - (Color colorFromPixelValue: bit depth: self depth) - darker darker - pixelValueForDepth: self depth])!

1 0

The Trunk: Graphics-ar.128.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

1 0

The Trunk: Graphics-ar.128.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

1 0

The Trunk: Tools-ar.218.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ar.218.mcz ==================== Summary ==================== Name: Tools-ar.218 Author: ar Time: 28 March 2010, 3:15:19.983 pm UUID: 34dd8be7-79b1-fb41-9589-56e10f2f6c7d Ancestors: Tools-cmm.217 Add a defaultBrowserTitle for MessageNames. =============== Diff against Tools-cmm.217 =============== Item was added: + ----- Method: MessageNames>>defaultBrowserTitle (in category 'initialization') ----- + defaultBrowserTitle + ^ 'Message Names'!

1 0

The Trunk: Tools-ar.218.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

1 0

The Trunk: Tools-ar.218.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

1 0

The Trunk: Morphic-ar.404.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.404.mcz ==================== Summary ==================== Name: Morphic-ar.404 Author: ar Time: 28 March 2010, 3:13:44.42 pm UUID: 5ef067a6-55f8-4f4e-8aa1-f5d73a6430fa Ancestors: Morphic-ar.403 MessageNames to the rescue! =============== Diff against Morphic-ar.403 =============== Item was changed: ----- Method: SearchBarMorph>>smartSearch (in category 'search') ----- smartSearch "Take the user input and perform an appropriate search" | input | input := self contents asString ifEmpty:[^self]. (Smalltalk bindingOf: input) ifNotNil:[:assoc| "It's a global or a class" ^ToolSet browse: assoc value class selector: nil. ]. (SystemNavigation new allImplementorsOf: input asSymbol) ifNotEmpty:[:list| ^SystemNavigation new browseMessageList: list name: 'Implementors of ' , input ]. input first isUppercase ifTrue:[ (Utilities classFromPattern: input withCaption: '') ifNotNil:[:aClass| ^ToolSet browse: aClass selector: nil. ]. ] ifFalse:[ + ^ToolSet default browseMessageNames: input - "Should offer a list of selectors or so" ]. "Not found" Beeper beepPrimitive.!

1 0

The Trunk: Morphic-ar.404.mcz
by commits＠source.squeak.org 29 Mar '10

29 Mar '10

1 0

← Newer
1
2
3
4
5
6
7
8
...
91
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2010