[Etoys] [ENH] Cursor wait on repeat tile

[karl]

A little enhancement to the repeat tile so it shows the hour glass when 
executing the repeat tile.


Karl
-------------- next part --------------
'From OLPC2.0 of ''24 October 2006'' [latest update: #1283] on 2 May 2007 at 4:16:45 pm'!

!TimesRepeatMorph methodsFor: 'code generation' stamp: 'KFR 5/2/2007 16:07'!
storeCodeOn: aStream indent: tabCount
	"Store code representing the receiver on the stream, obeying the tab state."

	aStream nextPutAll: 'Cursor wait showWhile:[(('.
	numberOfTimesToRepeatPart submorphs
		ifEmpty:
			[aStream nextPutAll: '0']
		ifNotEmpty:
			[numberOfTimesToRepeatPart storeCodeOn: aStream indent: tabCount + 2].
	aStream nextPutAll: ' ) asInteger max: 0) timesRepeat:'.
	tabCount + 1 timesRepeat: [aStream tab].
	aStream nextPutAll: '['; cr.
	self storeCodeBlockFor: whatToRepeatPart on: aStream indent: tabCount + 2.
	aStream nextPut: $].
	aStream nextPut: $].
! !