Packages May 2011

packages@lists.squeakfoundation.org

1 participants
291 discussions

The Trunk: Graphics-cmm.183.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

Chris Muller uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-cmm.183.mcz ==================== Summary ==================== Name: Graphics-cmm.183 Author: cmm Time: 27 May 2011, 2:35:44.268 pm UUID: 08000000-1508-b80b-1508-b80b14000000 Ancestors: Graphics-nice.182 Added remaining Rectangle position accessors (besides just #center) to Form, for placement convenience. =============== Diff against Graphics-nice.182 =============== Item was added: + ----- Method: Form>>bottomCenter (in category 'display box access') ----- + bottomCenter + ^ self boundingBox bottomCenter! Item was changed: + ----- Method: Form>>center (in category 'display box access') ----- - ----- Method: Form>>center (in category 'accessing') ----- center + ^ self boundingBox center! - "Note that offset is ignored here. Are we really going to embrace offset? " - ^ (width @ height) // 2! Item was changed: + ----- Method: Form>>height (in category 'display box access') ----- - ----- Method: Form>>height (in category 'accessing') ----- height ^ height! Item was added: + ----- Method: Form>>leftCenter (in category 'display box access') ----- + leftCenter + ^ self boundingBox leftCenter! Item was added: + ----- Method: Form>>rightCenter (in category 'display box access') ----- + rightCenter + ^ self boundingBox rightCenter! Item was added: + ----- Method: Form>>topCenter (in category 'display box access') ----- + topCenter + ^ self boundingBox topCenter! Item was changed: + ----- Method: Form>>width (in category 'display box access') ----- - ----- Method: Form>>width (in category 'accessing') ----- width ^ width!

1 0

The Trunk: Graphics-cmm.183.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

1 0

The Trunk: Graphics-cmm.183.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

1 0

The Trunk: CollectionsTests-topa.185.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.185.mcz ==================== Summary ==================== Name: CollectionsTests-topa.185 Author: topa Time: 23 May 2011, 1:50:29.396 pm UUID: 8e536e32-1fb9-4bdd-8d4b-3088b46e41a9 Ancestors: CollectionsTests-nice.184 Mall testcase for RWBinaryOrTextStream on exisiting collections. =============== Diff against CollectionsTests-nice.184 =============== Item was added: + ----- Method: RWBinaryOrTextStreamTest>>testExisiting (in category 'tests') ----- + testExisiting + + | string stream | + + string := 'hello'. + + stream := RWBinaryOrTextStream on: string. + self assert: stream contents = string. + + stream := RWBinaryOrTextStream on: string. + stream setToEnd. + self assert: stream position = string size. + !

1 0

The Trunk: CollectionsTests-topa.185.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

1 0

The Trunk: CollectionsTests-topa.185.mcz
by commits＠source.squeak.org 27 May '11

27 May '11

1 0

The Trunk: System-eem.438.mcz
by commits＠source.squeak.org 24 May '11

24 May '11

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.438.mcz ==================== Summary ==================== Name: System-eem.438 Author: eem Time: 23 May 2011, 6:14:14.008 pm UUID: c038f616-9da6-4abd-94be-1b5d43c9ed03 Ancestors: System-ul.437 Use literalsDo: in place of literals do: in some SystemNavigation trawling code. =============== Diff against System-ul.437 =============== Item was changed: ----- Method: SystemNavigation>>allGlobalRefsWithout: (in category 'query') ----- allGlobalRefsWithout: classesAndMessagesPair "Answer a set of symbols that may be refs to Global names. In some sense we should only need the associations, but this will also catch, eg, HTML tag types. This method computes its result in the absence of specified classes and messages." "may be a problem if namespaces are introduced as for the moment only Smalltalk is queried. sd 29/4/03" | globalRefs absentClasses absentSelectors | globalRefs := IdentitySet new: CompiledMethod instanceCount. absentClasses := classesAndMessagesPair first. absentSelectors := classesAndMessagesPair second. self flag: #shouldBeRewrittenUsingSmalltalkAllClassesDo:. "sd 29/04/03" Cursor execute showWhile: [Smalltalk classNames do: [:cName | ((absentClasses includes: cName) ifTrue: [{}] ifFalse: [{Smalltalk at: cName. (Smalltalk at: cName) class}]) do: [:cl | (absentSelectors isEmpty ifTrue: [cl selectors] ifFalse: [cl selectors copyWithoutAll: absentSelectors]) do: [:sel | "Include all capitalized symbols for good measure" + (cl compiledMethodAt: sel) literalsDo: [:m | + ((m isSymbol) + and: [m size > 0 + and: [m first canBeGlobalVarInitial]]) + ifTrue: [globalRefs add: m]. + (m isMemberOf: Array) + ifTrue: [m + do: [:x | ((x isSymbol) + and: [x size > 0 + and: [x first canBeGlobalVarInitial]]) + ifTrue: [globalRefs add: x]]]. + m isVariableBinding + ifTrue: [m key + ifNotNil: [globalRefs add: m key]]]]]]]. - (cl compiledMethodAt: sel) literals - do: [:m | - ((m isSymbol) - and: [m size > 0 - and: [m first canBeGlobalVarInitial]]) - ifTrue: [globalRefs add: m]. - (m isMemberOf: Array) - ifTrue: [m - do: [:x | ((x isSymbol) - and: [x size > 0 - and: [x first canBeGlobalVarInitial]]) - ifTrue: [globalRefs add: x]]]. - m isVariableBinding - ifTrue: [m key - ifNotNil: [globalRefs add: m key]]]]]]]. ^ globalRefs! Item was changed: ----- Method: SystemNavigation>>allReferencesToPool:from: (in category 'query') ----- allReferencesToPool: aPool from: aClass "Answer all the references to variables from aPool" | list | list := OrderedCollection new. aClass withAllSubclassesDo:[:cls| + cls selectorsAndMethodsDo:[:sel :meth| + (meth hasLiteralSuchThat: [:lit| lit isVariableBinding and:[(aPool bindingOf: lit key) notNil]]) ifTrue: + [list add:(MethodReference new setStandardClass: cls methodSymbol: sel)]]]. - cls selectorsAndMethodsDo:[:sel :meth| | ref | - ref := meth literals detect:[:lit| - lit isVariableBinding and:[(aPool bindingOf: lit key) notNil] - ] ifNone:[nil]. - ref ifNotNil:[ - list add:(MethodReference new setStandardClass: cls methodSymbol: sel) - ]. - ]. - ]. ^list! Item was changed: ----- Method: SystemNavigation>>allSentMessagesWithout: (in category 'query') ----- allSentMessagesWithout: classesAndMessagesPair "Answer the set of selectors which are sent somewhere in the system, computed in the absence of the supplied classes and messages." | sent absentClasses absentSelectors | sent := IdentitySet new: CompiledMethod instanceCount. absentClasses := classesAndMessagesPair first. absentSelectors := classesAndMessagesPair second. self flag: #shouldBeRewrittenUsingSmalltalkAllClassesDo:. "sd 29/04/03" Cursor execute showWhile: [ Smalltalk classNames , Smalltalk traitNames do: [:name | ((absentClasses includes: name) ifTrue: [{}] ifFalse: [{Smalltalk at: name. (Smalltalk at: name) classSide}]) do: [:each | (absentSelectors isEmpty ifTrue: [each selectors] ifFalse: [each selectors copyWithoutAll: absentSelectors]) do: [:sel | "Include all sels, but not if sent by self" + (each compiledMethodAt: sel) literalsDo: [:m | - (each compiledMethodAt: sel) literals - do: [:m | (m isSymbol) ifTrue: ["might be sent" m == sel ifFalse: [sent add: m]]. (m isMemberOf: Array) ifTrue: ["might be performed" m do: [:x | (x isSymbol) ifTrue: [x == sel ifFalse: [sent add: x]]]]]]]]. "The following may be sent without being in any literal frame" 1 to: Smalltalk specialSelectorSize do: [:index | sent add: (Smalltalk specialSelectorAt: index)]]. Smalltalk presumedSentMessages do: [:sel | sent add: sel]. ^ sent!

1 0

The Trunk: System-eem.438.mcz
by commits＠source.squeak.org 24 May '11

24 May '11

1 0

The Trunk: System-eem.438.mcz
by commits＠source.squeak.org 24 May '11

24 May '11

1 0

The Trunk: ToolsTests-eem.47.mcz
by commits＠source.squeak.org 24 May '11

24 May '11

Eliot Miranda uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-eem.47.mcz ==================== Summary ==================== Name: ToolsTests-eem.47 Author: eem Time: 23 May 2011, 6:12:10.584 pm UUID: b9c22a05-2c13-4351-8540-d49384b0916e Ancestors: ToolsTests-ul.46 Add test for allCallsOn: et al discovering references to Float bindingOf: #NaN. =============== Diff against ToolsTests-ul.46 =============== Item was added: + ----- Method: BrowseTest>>testFindReferencesToFloatNaN (in category 'testing') ----- + testFindReferencesToFloatNaN + self assert: (SystemNavigation new allCallsOn: (Float bindingOf: #NaN)) notEmpty!

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 May 2011