[Etoys] [ENH] Cursor wait on repeat tile

[Alan Kay]

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 at laptop.org
>http://mailman.laptop.org/mailman/listinfo/etoys