A little enhancement to the repeat tile so it shows the hour glass when executing the repeat tile.
Karl
'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: $]. ! !