Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.776.mcz
==================== Summary ====================
Name: Kernel-fbs.776
Author: fbs
Time: 29 June 2013, 11:08:04.333 pm
UUID: 0bfe45d6-0d61-7d4d-90ba-b18b3421d315
Ancestors: Kernel-fbs.775
System-Support isn't the most natural place for this method, but it's a vast improvement over Kernel.
=============== Diff against Kernel-fbs.775 ===============
Item was removed:
- ----- Method: Object>>initialExtent (in category 'user interface') -----
- initialExtent
- "Answer the desired extent for the receiver when a view on it is first opened on the screen.
- 5/22/96 sw: in the absence of any override, obtain from RealEstateAgent"
-
- ^ RealEstateAgent standardWindowExtent!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.776.mcz
==================== Summary ====================
Name: Kernel-fbs.776
Author: fbs
Time: 29 June 2013, 11:08:04.333 pm
UUID: 0bfe45d6-0d61-7d4d-90ba-b18b3421d315
Ancestors: Kernel-fbs.775
System-Support isn't the most natural place for this method, but it's a vast improvement over Kernel.
=============== Diff against Kernel-fbs.775 ===============
Item was removed:
- ----- Method: Object>>initialExtent (in category 'user interface') -----
- initialExtent
- "Answer the desired extent for the receiver when a view on it is first opened on the screen.
- 5/22/96 sw: in the absence of any override, obtain from RealEstateAgent"
-
- ^ RealEstateAgent standardWindowExtent!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.776.mcz
==================== Summary ====================
Name: Kernel-fbs.776
Author: fbs
Time: 29 June 2013, 11:08:04.333 pm
UUID: 0bfe45d6-0d61-7d4d-90ba-b18b3421d315
Ancestors: Kernel-fbs.775
System-Support isn't the most natural place for this method, but it's a vast improvement over Kernel.
=============== Diff against Kernel-fbs.775 ===============
Item was removed:
- ----- Method: Object>>initialExtent (in category 'user interface') -----
- initialExtent
- "Answer the desired extent for the receiver when a view on it is first opened on the screen.
- 5/22/96 sw: in the absence of any override, obtain from RealEstateAgent"
-
- ^ RealEstateAgent standardWindowExtent!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.775.mcz
==================== Summary ====================
Name: Kernel-fbs.775
Author: fbs
Time: 29 June 2013, 11:02:47.13 pm
UUID: 1185b53c-5a7c-6442-bb20-2177e05ace9e
Ancestors: Kernel-fbs.774
Don't use Utilities. It needs to go.
=============== Diff against Kernel-fbs.774 ===============
Item was changed:
----- Method: ObjectOut>>xxxFixup (in category 'fetch from disk') -----
xxxFixup
"There is already an object in memory for my url. All pointers to me need to be pointers to him. Can't use become, because other pointers to him must stay valid."
| real temp list |
real := page contentsMorph.
real == self ifTrue: [page error: 'should be converted by now'].
temp := self.
+ list := (PointerFinder pointersTo: temp) asOrderedCollection.
- list := (Utilities pointersTo: temp) asOrderedCollection.
list add: thisContext. list add: thisContext sender.
list do: [:holder |
1 to: holder class instSize do:
[:i | (holder instVarAt: i) == temp ifTrue: [holder instVarAt: i put: real]].
1 to: holder basicSize do:
[:i | (holder basicAt: i) == temp ifTrue: [holder basicAt: i put: real]].
].
^ real!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.775.mcz
==================== Summary ====================
Name: Kernel-fbs.775
Author: fbs
Time: 29 June 2013, 11:02:47.13 pm
UUID: 1185b53c-5a7c-6442-bb20-2177e05ace9e
Ancestors: Kernel-fbs.774
Don't use Utilities. It needs to go.
=============== Diff against Kernel-fbs.774 ===============
Item was changed:
----- Method: ObjectOut>>xxxFixup (in category 'fetch from disk') -----
xxxFixup
"There is already an object in memory for my url. All pointers to me need to be pointers to him. Can't use become, because other pointers to him must stay valid."
| real temp list |
real := page contentsMorph.
real == self ifTrue: [page error: 'should be converted by now'].
temp := self.
+ list := (PointerFinder pointersTo: temp) asOrderedCollection.
- list := (Utilities pointersTo: temp) asOrderedCollection.
list add: thisContext. list add: thisContext sender.
list do: [:holder |
1 to: holder class instSize do:
[:i | (holder instVarAt: i) == temp ifTrue: [holder instVarAt: i put: real]].
1 to: holder basicSize do:
[:i | (holder basicAt: i) == temp ifTrue: [holder basicAt: i put: real]].
].
^ real!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.775.mcz
==================== Summary ====================
Name: Kernel-fbs.775
Author: fbs
Time: 29 June 2013, 11:02:47.13 pm
UUID: 1185b53c-5a7c-6442-bb20-2177e05ace9e
Ancestors: Kernel-fbs.774
Don't use Utilities. It needs to go.
=============== Diff against Kernel-fbs.774 ===============
Item was changed:
----- Method: ObjectOut>>xxxFixup (in category 'fetch from disk') -----
xxxFixup
"There is already an object in memory for my url. All pointers to me need to be pointers to him. Can't use become, because other pointers to him must stay valid."
| real temp list |
real := page contentsMorph.
real == self ifTrue: [page error: 'should be converted by now'].
temp := self.
+ list := (PointerFinder pointersTo: temp) asOrderedCollection.
- list := (Utilities pointersTo: temp) asOrderedCollection.
list add: thisContext. list add: thisContext sender.
list do: [:holder |
1 to: holder class instSize do:
[:i | (holder instVarAt: i) == temp ifTrue: [holder instVarAt: i put: real]].
1 to: holder basicSize do:
[:i | (holder basicAt: i) == temp ifTrue: [holder basicAt: i put: real]].
].
^ real!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.774.mcz
==================== Summary ====================
Name: Kernel-fbs.774
Author: fbs
Time: 29 June 2013, 10:36:49.383 pm
UUID: 294f5ca8-9a98-ca45-a362-db16b7e5c63f
Ancestors: Kernel-fbs.773
WindowColorSpec references belong in System-Support, not Kernel.
=============== Diff against Kernel-fbs.773 ===============
Item was removed:
- ----- Method: Object class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference.
- This is a backstop for classes that don't otherwise define a preference."
-
- ^ WindowColorSpec classSymbol: self name
- wording: 'Default' brightColor: #white
- pastelColor: #white
- helpMessage: 'Other windows without color preferences.'!
Item was removed:
- ----- Method: StringHolder class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference"
-
- ^ WindowColorSpec classSymbol: self name wording: 'Workspace' brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.'!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.774.mcz
==================== Summary ====================
Name: Kernel-fbs.774
Author: fbs
Time: 29 June 2013, 10:36:49.383 pm
UUID: 294f5ca8-9a98-ca45-a362-db16b7e5c63f
Ancestors: Kernel-fbs.773
WindowColorSpec references belong in System-Support, not Kernel.
=============== Diff against Kernel-fbs.773 ===============
Item was removed:
- ----- Method: Object class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference.
- This is a backstop for classes that don't otherwise define a preference."
-
- ^ WindowColorSpec classSymbol: self name
- wording: 'Default' brightColor: #white
- pastelColor: #white
- helpMessage: 'Other windows without color preferences.'!
Item was removed:
- ----- Method: StringHolder class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference"
-
- ^ WindowColorSpec classSymbol: self name wording: 'Workspace' brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.'!
Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.774.mcz
==================== Summary ====================
Name: Kernel-fbs.774
Author: fbs
Time: 29 June 2013, 10:36:49.383 pm
UUID: 294f5ca8-9a98-ca45-a362-db16b7e5c63f
Ancestors: Kernel-fbs.773
WindowColorSpec references belong in System-Support, not Kernel.
=============== Diff against Kernel-fbs.773 ===============
Item was removed:
- ----- Method: Object class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference.
- This is a backstop for classes that don't otherwise define a preference."
-
- ^ WindowColorSpec classSymbol: self name
- wording: 'Default' brightColor: #white
- pastelColor: #white
- helpMessage: 'Other windows without color preferences.'!
Item was removed:
- ----- Method: StringHolder class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- "Answer a WindowColorSpec object that declares my preference"
-
- ^ WindowColorSpec classSymbol: self name wording: 'Workspace' brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.'!
Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.552.mcz
==================== Summary ====================
Name: System-fbs.552
Author: fbs
Time: 29 June 2013, 10:30:53.833 pm
UUID: 461ccc11-876e-b444-8ffa-7269e5df5c00
Ancestors: System-fbs.551
WindowColorSpec references belong in System-Support, not Kernel.
=============== Diff against System-fbs.551 ===============
Item was added:
+ ----- Method: Object class>>windowColorSpecification (in category '*System-Support-window color') -----
+ windowColorSpecification
+ "Answer a WindowColorSpec object that declares my preference.
+ This is a backstop for classes that don't otherwise define a preference."
+
+ ^ WindowColorSpec classSymbol: self name
+ wording: 'Default' brightColor: #white
+ pastelColor: #white
+ helpMessage: 'Other windows without color preferences.'!
Item was added:
+ ----- Method: StringHolder class>>windowColorSpecification (in category '*System-Support-window colorwindow color') -----
+ windowColorSpecification
+ "Answer a WindowColorSpec object that declares my preference"
+
+ ^ WindowColorSpec classSymbol: self name wording: 'Workspace' brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.'!