[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