[squeak-dev] The Trunk: Kernel-ul.599.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jun 18 08:51:22 UTC 2011
Levente Uzonyi uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ul.599.mcz
==================== Summary ====================
Name: Kernel-ul.599
Author: ul
Time: 17 June 2011, 4:33:17.842 pm
UUID: 153c6a95-543b-c044-915a-94fd0e7eef12
Ancestors: Kernel-nice.598
- Don't send #forgetDoIts, because it's not needed anymore.
- Use #repeat instead of [ true ] whileTrue and friends.
=============== Diff against Kernel-nice.598 ===============
Item was changed:
----- Method: ClassBuilder>>validateClass:forMoving:downTo: (in category 'validation') -----
validateClass: srcClass forMoving: iv downTo: dstClass
"Make sure that we don't have any accesses to the instVar left"
srcClass withAllSubclassesDo:[:cls|
(cls == dstClass or:[cls inheritsFrom: dstClass]) ifFalse:[
- cls forgetDoIts.
(cls whichSelectorsAccess: iv) isEmpty ifFalse:[
self notify: (iv printString asText allBold), ' is still used in ', cls name asText allBold,'.
Proceed to move it to Undeclared'.
].
].
].
^true!
Item was changed:
----- Method: ProcessorScheduler class>>idleProcess (in category 'background process') -----
idleProcess
"A default background process which is invisible."
+ [self relinquishProcessorForMicroseconds: 1000] repeat!
- [true] whileTrue:
- [self relinquishProcessorForMicroseconds: 1000]!
Item was changed:
----- Method: ProcessorScheduler class>>sweepHandIdleProcess (in category 'background process') -----
sweepHandIdleProcess
"A default background process which shows a sweeping circle of XOR-ed bits on the screen."
| sweepHand |
sweepHand := Pen new.
sweepHand defaultNib: 2.
sweepHand combinationRule: 6.
+ [
- [true] whileTrue: [
2 timesRepeat: [
sweepHand north.
36 timesRepeat: [
sweepHand place: Display boundingBox topRight + (-25 at 25).
sweepHand go: 20.
sweepHand turn: 10]].
+ self relinquishProcessorForMicroseconds: 10000] repeat
- self relinquishProcessorForMicroseconds: 10000].
!
More information about the Squeak-dev
mailing list
|