Packages April 2013

packages@lists.squeakfoundation.org

1 participants
195 discussions

The Trunk: Tests-cwp.201.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.201.mcz ==================== Summary ==================== Name: Tests-cwp.201 Author: cwp Time: 28 April 2013, 1:05:18.1 pm UUID: 04c1e394-6df1-4dd6-8eec-c7c9ef7b597a Ancestors: Tests-ul.200 Updated binding tests to ensure that binding identity is preserved whenever possible. =============== Diff against Tests-ul.200 =============== Item was added: + ----- Method: AliasTest>>testAsBindingOriginal (in category 'tests') ----- + testAsBindingOriginal + | alias imported original | + original := #Griffle => value. + alias := original asBinding: #Plonk. + imported := alias asBinding: #Griffle. + self assert: imported == original! Item was added: + ----- Method: ClassBindingTest>>testAsBindingOriginal (in category 'as yet unclassified') ----- + testAsBindingOriginal + | binding imported | + binding := ClassBinding key: #Griffle value: value. + imported := binding asBinding: #Griffle. + self assert: binding == imported! Item was changed: + ----- Method: GlobalTest>>testArrowBinding (in category 'tests') ----- - ----- Method: GlobalTest>>testArrowBinding (in category 'as yet unclassified') ----- testArrowBinding | binding | binding := #Griffle => value. self assert: binding class = Global. self assert: binding key = #Griffle. self assert: binding value == value! Item was added: + ----- Method: GlobalTest>>testAsBindingOriginal (in category 'tests') ----- + testAsBindingOriginal + | global imported | + global := Global key: #Griffle value: Object new. + imported := global asBinding: #Griffle. + self assert: imported == global! Item was changed: ----- Method: GlobalTest>>testAsBindingWrite (in category 'tests') ----- testAsBindingWrite | global imported | global := Global key: key value: Object new. imported := global asBinding: #Griffle. imported value: value. + self assert: global value == value. - self assert: imported value == value. ! Item was changed: + ----- Method: GlobalTest>>testLiteralEqual (in category 'tests') ----- - ----- Method: GlobalTest>>testLiteralEqual (in category 'as yet unclassified') ----- testLiteralEqual | global | global := #Griffle => value. self assert: (global literalEqual: global)! Item was changed: + ----- Method: GlobalTest>>testLiteralUnequal (in category 'tests') ----- - ----- Method: GlobalTest>>testLiteralUnequal (in category 'as yet unclassified') ----- testLiteralUnequal | g1 g2 | g1 := #Griffle => value. g2 := #Griffle => value. self deny: (g1 literalEqual: g2)!

1 0

The Trunk: Environments-cwp.25.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.25.mcz ==================== Summary ==================== Name: Environments-cwp.25 Author: cwp Time: 28 April 2013, 11:56:36.28 pm UUID: 0117c0ea-d81e-4eff-a6d6-afd791496d6d Ancestors: Environments-cwp.24 Use aliases for classes imported with a different name, rather than copying the class binding. =============== Diff against Environments-cwp.24 =============== Item was changed: ----- Method: ClassBinding>>asBinding: (in category 'as yet unclassified') ----- asBinding: aSymbol ^ aSymbol == key ifTrue: [self] + ifFalse: [Alias key: aSymbol source: self]! - ifFalse: [self class key: aSymbol value: value]! Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. + + undeclared declare: aClass name from: contents. + imports forgetName: aClass name. exports forgetName: aClass name. contents removeKey: aClass name ifAbsent: []. + bindings removeKey: aClass name ifAbsent: []. + + [undeclared at: aClass name put: nil] + on: AttemptToWriteReadOnlyGlobal + do: [:n | n resume: true]. + ! - bindings removeKey: aClass name ifAbsent: [].! Item was added: + ----- Method: Environment>>recompileAll (in category 'operations') ----- + recompileAll + bindings removeAll. + self allClassesAndTraits + do: [:classOrTrait | classOrTrait compileAll] + displayingProgress:[:classOrTrait| 'Recompiling ', classOrTrait] + + + ! Item was changed: + ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- - ----- Method: Environment>>removeKey:ifAbsent: (in category 'accessing') ----- removeKey: key ifAbsent: aBlock self flag: #review. ^ contents removeKey: key ifAbsent: aBlock! Item was added: + ----- Method: EnvironmentInfo>>packages (in category 'as yet unclassified') ----- + packages + ^ packages!

1 0

The Trunk: Environments-cwp.25.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

1 0

The Trunk: Environments-cwp.25.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

1 0

The Trunk: Environments-cwp.24.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.24.mcz ==================== Summary ==================== Name: Environments-cwp.24 Author: cwp Time: 28 April 2013, 1:09:35.097 pm UUID: e8a1166a-a372-4122-a495-75b489b33fcb Ancestors: Environments-bf.23 Make #asBinding: preserve binding identity whenever possible. =============== Diff against Environments-bf.23 =============== Item was changed: ----- Method: Alias>>asBinding: (in category 'converting') ----- asBinding: aSymbol + ^ aSymbol = source key + ifTrue: [source] + ifFalse: [Alias key: aSymbol source: source]! - ^ Alias key: aSymbol source: source! Item was changed: ----- Method: Association>>asBinding: (in category '*environments') ----- asBinding: aSymbol + ^ aSymbol == key + ifTrue: [self] + ifFalse: [Alias key: aSymbol source: self]! - ^ Alias key: aSymbol source: self! Item was changed: ----- Method: ClassBinding>>asBinding: (in category 'as yet unclassified') ----- asBinding: aSymbol + ^ aSymbol == key + ifTrue: [self] + ifFalse: [self class key: aSymbol value: value]! - ^ self class key: aSymbol value: value! Item was changed: ----- Method: Global>>asBinding: (in category 'as yet unclassified') ----- asBinding: aSymbol + ^ aSymbol == key + ifTrue: [self] + ifFalse: [Alias key: aSymbol source: self]! - ^ Alias key: aSymbol source: self!

1 0

The Trunk: Environments-cwp.24.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

1 0

The Trunk: Environments-cwp.24.mcz
by commits＠source.squeak.org 29 Apr '13

29 Apr '13

1 0

The Trunk: System-cwp.526.mcz
by commits＠source.squeak.org 28 Apr '13

28 Apr '13

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.526.mcz ==================== Summary ==================== Name: System-cwp.526 Author: cwp Time: 28 April 2013, 10:43:06.298 am UUID: d0a7abd6-1556-4900-b5ca-640d1aed4d7c Ancestors: System-ul.525 Update Behavior>>allCallsOn to search for references using #bindingOf: rather than #associationAt:. This matches the binding created by the compiler. =============== Diff against System-ul.525 =============== Item was changed: ----- Method: Behavior>>allCallsOn (in category '*System-Support') ----- allCallsOn "Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict." | theClass | theClass := self theNonMetaClass. + ^(self systemNavigation allCallsOn: (self environment bindingOf: theClass name)), - ^(self systemNavigation allCallsOn: (self environment associationAt: theClass name)), (Preferences thoroughSenders ifTrue: [OrderedCollection new] ifFalse: [self systemNavigation allCallsOn: theClass name]), (self systemNavigation allClasses select: [:c| c sharedPools includes: theClass] thenCollect: [:c| ClassReference new setClassSymbol: c name classIsMeta: false stringVersion: c name])!

1 0

The Trunk: System-cwp.526.mcz
by commits＠source.squeak.org 28 Apr '13

28 Apr '13

1 0

The Trunk: System-cwp.526.mcz
by commits＠source.squeak.org 28 Apr '13

28 Apr '13

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 2013