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: $]. ! !
You should show the ticking clock when it is executing, etc.
Cheers,
Alan
------------
At 02:05 PM 5/2/2007, karl wrote:
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: $]. ! !
Etoys mailing list Etoys@laptop.org http://mailman.laptop.org/mailman/listinfo/etoys
etoys-dev@lists.squeakfoundation.org