[squeak-dev] The Trunk: Kernel-fbs.791.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jul 12 19:57:17 UTC 2013
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.791.mcz
==================== Summary ====================
Name: Kernel-fbs.791
Author: fbs
Time: 12 July 2013, 8:56:28.228 pm
UUID: ddb19741-b706-bd47-8258-57af0fd104b1
Ancestors: Kernel-fbs.790
Use UIManager default inform: '' during: [], not Utilities.
=============== Diff against Kernel-fbs.790 ===============
Item was changed:
SystemOrganization addCategory: #'Kernel-Chronology'!
SystemOrganization addCategory: #'Kernel-Classes'!
SystemOrganization addCategory: #'Kernel-Exceptions'!
SystemOrganization addCategory: #'Kernel-Exceptions-Kernel'!
SystemOrganization addCategory: #'Kernel-Methods'!
+ SystemOrganization addCategory: #'Kernel-Methods-Proxies'!
SystemOrganization addCategory: #'Kernel-Models'!
SystemOrganization addCategory: #'Kernel-Numbers'!
SystemOrganization addCategory: #'Kernel-Numbers-Exceptions'!
SystemOrganization addCategory: #'Kernel-Objects'!
SystemOrganization addCategory: #'Kernel-Processes'!
SystemOrganization addCategory: #'Kernel-Processes-Variables'!
- SystemOrganization addCategory: #'Kernel-Methods-Proxies'!
Item was changed:
----- Method: Class>>declare: (in category 'initialize-release') -----
declare: varString
"Declare class variables common to all instances. Answer whether
recompilation is advisable."
| newVars conflicts |
newVars :=
(Scanner new scanFieldNames: varString)
collect: [:x | x asSymbol].
newVars do:
[:var | var first canBeGlobalVarInitial
ifFalse: [self error: var, ' class variable name should be capitalized; proceed to include anyway.']].
conflicts := false.
classPool == nil
ifFalse: [(classPool keys reject: [:x | newVars includes: x]) do:
[:var | self removeClassVarName: var]].
(newVars reject: [:var | self classPool includesKey: var])
do: [:var | "adding"
"check if new vars defined elsewhere"
(self canFindWithoutEnvironment: var) ifTrue: [
(DuplicateVariableError new)
superclass: superclass; "fake!!!!!!"
variable: var;
signal: var, ' is already defined'.
conflicts := true]].
newVars size > 0
ifTrue:
[classPool := self classPool.
"in case it was nil"
+ newVars do: [:var | classPool declare: var from: self environment undeclared]].
- newVars do: [:var | classPool declare: var from: environment undeclared]].
^conflicts!
More information about the Squeak-dev
mailing list
|