Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

The Trunk: Kernel-nice.797.mcz
by commits＠source.squeak.org 28 Jul '13

28 Jul '13

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.797.mcz ==================== Summary ==================== Name: Kernel-nice.797 Author: nice Time: 28 July 2013, 4:48:53.354 pm UUID: c2ee61a3-86aa-4a39-ae2a-93ac3e8c81c6 Ancestors: Kernel-fbs.796 Workaround to fix http://bugs.squeak.org/view.php?id=1554 A class variable defined in a superclass should take precedence over a global variable. Note that current implementation will import the bindings of every superclass environment which is questionable. Fix a doubled statement terminator in Month class>>readFrom:. =============== Diff against Kernel-fbs.796 =============== Item was changed: ----- Method: Class>>bindingOf:environment: (in category 'compiling') ----- bindingOf: varName environment: anEnvironment "Answer the binding of some variable resolved in the scope of the receiver" | aSymbol binding | aSymbol := varName asSymbol. "First look in classVar dictionary." + (self classThatDefinesClassVariable: aSymbol) ifNotNil: + [:x | ^x classPool bindingOf: aSymbol]. - binding := self classPool bindingOf: aSymbol. - binding ifNotNil:[^binding]. "Next look in shared pools." self sharedPools do:[:pool | binding := pool bindingOf: aSymbol. binding ifNotNil:[^binding]. ]. "Next look in declared environment." binding := anEnvironment bindingOf: aSymbol. binding ifNotNil:[^binding]. "Finally look higher up the superclass chain and fail at the end." superclass == nil ifTrue: [^ nil] ifFalse: [^ superclass bindingOf: aSymbol]. ! Item was changed: ----- Method: Month class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream | m y | aStream skipSeparators. + m := aStream upToAnyOf: CharacterSet separators. - m := aStream upToAnyOf: CharacterSet separators.. aStream skipSeparators. y := aStream upToEnd. ^ self month: m year: y asInteger "Month readFrom: 'July 1998' readStream"!

1 0

The Trunk: Kernel-nice.797.mcz
by commits＠source.squeak.org 28 Jul '13

28 Jul '13

1 0

The Trunk: KernelTests-nice.253.mcz
by commits＠source.squeak.org 28 Jul '13

28 Jul '13

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.253.mcz ==================== Summary ==================== Name: KernelTests-nice.253 Author: nice Time: 28 July 2013, 4:14:45.361 pm UUID: ea192381-eb68-4388-96a8-36b50701e57c Ancestors: KernelTests-fbs.252 Add tests for superclass class variable vs global variable scope precedence See http://bugs.squeak.org/view.php?id=1554 =============== Diff against KernelTests-fbs.252 =============== Item was added: + TestCase subclass: #ClassVarScopeTest + instanceVariableNames: 'parent child grandchild foo' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Classes'! + + !ClassVarScopeTest commentStamp: 'nice 7/28/2013 16:05' prior: 0! + Test that a class variable defined in a superclass takes precedence over a global variable of same name. + + In #setUp: + + Three classes are defined: parent, child and grandchild. + A class variable is defined in child. + A global with the same name is defined in Smalltalk globals. + Methods are defined in all classes getting and setting this class or global variable. + + Test whether methods referencing the variable with that name + access the correct variable.! Item was added: + ----- Method: ClassVarScopeTest>>setUp (in category 'command') ----- + setUp + + parent := Object + subclass: #ClassVarScopeParent + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Dummy-Tests-Class'. + child := parent + subclass: #ClassVarScopeChild + instanceVariableNames: '' + classVariableNames: 'ClassVarScopeFoo' + poolDictionaries: '' + category: 'Dummy-Tests-Class'. + grandchild := child + subclass: #ClassVarScopeGrandchild + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Dummy-Tests-Class'. + foo := Smalltalk globals at: #ClassVarScopeFoo put: Object basicNew. + + parent compile: self sourceOfParentGetFoo. + parent compile: self sourceOfParentSetFoo. + + parent class compile: self sourceOfParentGetFoo. + parent class compile: self sourceOfParentSetFoo. + + child compile: self sourceOfChildGetFoo. + child compile: self sourceOfChildSetFoo. + + child class compile: self sourceOfChildGetFoo. + child class compile: self sourceOfChildSetFoo. + + grandchild compile: self sourceOfGrandchildGetFoo. + grandchild compile: self sourceOfGrandchildSetFoo. + + grandchild class compile: self sourceOfGrandchildGetFoo. + grandchild class compile: self sourceOfGrandchildSetFoo. + ! Item was added: + ----- Method: ClassVarScopeTest>>sourceOfChildGetFoo (in category 'query') ----- + sourceOfChildGetFoo + ^'childGetFoo + ^ClassVarScopeFoo'! Item was added: + ----- Method: ClassVarScopeTest>>sourceOfChildSetFoo (in category 'query') ----- + sourceOfChildSetFoo + ^'childSetFoo: anObject + ClassVarScopeFoo := anObject'! Item was added: + ----- Method: ClassVarScopeTest>>sourceOfGrandchildGetFoo (in category 'query') ----- + sourceOfGrandchildGetFoo + ^'grandchildGetFoo + ^ClassVarScopeFoo'! Item was added: + ----- Method: ClassVarScopeTest>>sourceOfGrandchildSetFoo (in category 'query') ----- + sourceOfGrandchildSetFoo + ^'grandchildSetFoo: anObject + ClassVarScopeFoo := anObject'! Item was added: + ----- Method: ClassVarScopeTest>>sourceOfParentGetFoo (in category 'query') ----- + sourceOfParentGetFoo + ^'parentGetFoo + ^ClassVarScopeFoo'! Item was added: + ----- Method: ClassVarScopeTest>>sourceOfParentSetFoo (in category 'query') ----- + sourceOfParentSetFoo + ^'parentSetFoo: anObject + ClassVarScopeFoo := anObject'! Item was added: + ----- Method: ClassVarScopeTest>>tearDown (in category 'command') ----- + tearDown + grandchild removeFromChanges; removeFromSystemUnlogged . + child removeFromChanges; removeFromSystemUnlogged . + parent removeFromChanges; removeFromSystemUnlogged . + Smalltalk globals removeKey: #ClassVarScopeFoo! Item was added: + ----- Method: ClassVarScopeTest>>testDefinedClassMethodInChild (in category 'test') ----- + testDefinedClassMethodInChild + self assert: child childGetFoo == nil. + child childSetFoo: #bar. + self assert: child childGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testDefinedClassMethodInGrandchild (in category 'test') ----- + testDefinedClassMethodInGrandchild + self assert: grandchild grandchildGetFoo == nil. + grandchild grandchildSetFoo: #bar. + self assert: grandchild grandchildGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testDefinedClassMethodInParent (in category 'test') ----- + testDefinedClassMethodInParent + self assert: parent parentGetFoo == foo. + parent parentSetFoo: #bar. + self assert: parent parentGetFoo = #bar! Item was added: + ----- Method: ClassVarScopeTest>>testDefinedInstanceMethodInChild (in category 'test') ----- + testDefinedInstanceMethodInChild + self assert: child basicNew childGetFoo == nil. + child basicNew childSetFoo: #bar. + self assert: child basicNew childGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testDefinedInstanceMethodInGrandchild (in category 'test') ----- + testDefinedInstanceMethodInGrandchild + self assert: grandchild basicNew grandchildGetFoo == nil. + grandchild basicNew grandchildSetFoo: #bar. + self assert: grandchild basicNew grandchildGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testDefinedInstanceMethodInParent (in category 'test') ----- + testDefinedInstanceMethodInParent + self assert: parent basicNew parentGetFoo == foo. + parent basicNew parentSetFoo: #bar. + self assert: parent basicNew parentGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testInheritedClassMethodInChild (in category 'test') ----- + testInheritedClassMethodInChild + self assert: child parentGetFoo == foo. + child parentSetFoo: #bar. + self assert: child parentGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testInheritedClassMethodInGrandchild (in category 'test') ----- + testInheritedClassMethodInGrandchild + self assert: grandchild childGetFoo == nil. + grandchild childSetFoo: #bar. + self assert: grandchild childGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testInheritedInstanceMethodInChild (in category 'test') ----- + testInheritedInstanceMethodInChild + self assert: child basicNew parentGetFoo == foo. + child basicNew parentSetFoo: #bar. + self assert: child basicNew parentGetFoo == #bar! Item was added: + ----- Method: ClassVarScopeTest>>testInheritedInstanceMethodInGrandchild (in category 'test') ----- + testInheritedInstanceMethodInGrandchild + self assert: grandchild basicNew childGetFoo == nil. + grandchild basicNew childSetFoo: #bar. + self assert: grandchild basicNew childGetFoo == #bar!

1 0

The Trunk: KernelTests-nice.253.mcz
by commits＠source.squeak.org 28 Jul '13

28 Jul '13

1 0

The Trunk: KernelTests-nice.253.mcz
by commits＠source.squeak.org 28 Jul '13

28 Jul '13

1 0

The Trunk: System-fbs.578.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.578.mcz ==================== Summary ==================== Name: System-fbs.578 Author: fbs Time: 25 July 2013, 9:05:20.523 pm UUID: ead81047-ea15-3b4c-a4f2-166832410419 Ancestors: System-fbs.577 Move ProgressNotification to Collections. Even though it's not hugely Collection-y, it's used by low level packages, and it's usually used to signal processing a collection of things. =============== Diff against System-fbs.577 =============== Item was removed: - Notification subclass: #ProgressNotification - instanceVariableNames: 'amount done extra' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Exceptions'! - - !ProgressNotification commentStamp: '<historical>' prior: 0! - Used to signal progress without requiring a specific receiver to notify. Caller/callee convention could be to simply count the number of signals caught or to pass more substantive information with #signal:.! Item was removed: - ----- Method: ProgressNotification class>>signal:extra: (in category 'exceptionInstantiator') ----- - signal: signalerText extra: extraParam - "TFEI - Signal the occurrence of an exceptional condition with a specified textual description." - - | ex | - ex := self new. - ex extraParam: extraParam. - ^ex signal: signalerText! Item was removed: - ----- Method: ProgressNotification>>amount (in category 'accessing') ----- - amount - ^amount! Item was removed: - ----- Method: ProgressNotification>>amount: (in category 'accessing') ----- - amount: aNumber - amount := aNumber! Item was removed: - ----- Method: ProgressNotification>>done (in category 'accessing') ----- - done - ^done! Item was removed: - ----- Method: ProgressNotification>>done: (in category 'accessing') ----- - done: aNumber - done := aNumber! Item was removed: - ----- Method: ProgressNotification>>extraParam (in category 'accessing') ----- - extraParam - ^extra! Item was removed: - ----- Method: ProgressNotification>>extraParam: (in category 'accessing') ----- - extraParam: anObject - extra := anObject!

1 0

The Trunk: System-fbs.578.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: System-fbs.578.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

1 0

The Trunk: Collections-fbs.526.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.526.mcz ==================== Summary ==================== Name: Collections-fbs.526 Author: fbs Time: 25 July 2013, 9:04:17.03 pm UUID: fe601e66-7f75-ac42-ae7e-d1362c4b9369 Ancestors: Collections-fbs.525 Move ProgressNotification to Collections. Even though it's not hugely Collection-y, it's used by low level packages, and it's usually used to signal processing a collection of things. =============== Diff against Collections-fbs.525 =============== Item was added: + Notification subclass: #ProgressNotification + instanceVariableNames: 'amount done extra' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Exceptions'! + + !ProgressNotification commentStamp: '<historical>' prior: 0! + Used to signal progress without requiring a specific receiver to notify. Caller/callee convention could be to simply count the number of signals caught or to pass more substantive information with #signal:.! Item was added: + ----- Method: ProgressNotification class>>signal:extra: (in category 'exceptionInstantiator') ----- + signal: signalerText extra: extraParam + "TFEI - Signal the occurrence of an exceptional condition with a specified textual description." + + | ex | + ex := self new. + ex extraParam: extraParam. + ^ex signal: signalerText! Item was added: + ----- Method: ProgressNotification>>amount (in category 'accessing') ----- + amount + ^amount! Item was added: + ----- Method: ProgressNotification>>amount: (in category 'accessing') ----- + amount: aNumber + amount := aNumber! Item was added: + ----- Method: ProgressNotification>>done (in category 'accessing') ----- + done + ^done! Item was added: + ----- Method: ProgressNotification>>done: (in category 'accessing') ----- + done: aNumber + done := aNumber! Item was added: + ----- Method: ProgressNotification>>extraParam (in category 'accessing') ----- + extraParam + ^extra! Item was added: + ----- Method: ProgressNotification>>extraParam: (in category 'accessing') ----- + extraParam: anObject + extra := anObject!

1 0

The Trunk: Collections-fbs.526.mcz
by commits＠source.squeak.org 25 Jul '13

25 Jul '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 July 2013