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"!
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"!
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!
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!
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!
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!
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!