[squeak-dev] [ANN] SqueakLightII Class Repository is ready

> !TileMorph class methodsFor: 'class initialization' stamp: 'edc 7/9/2008
> 07:06'!
> initialize
>    
>     "TileMorph initialize"
> TileMorph readInArrowGraphics.   " It's not a option"
>     UpdatingOperators := Dictionary new.
>     UpdatingOperators at: #incr: put: #+.
>     UpdatingOperators at: #decr: put: #-.
>     UpdatingOperators at: #set: put: ''.
>
>     RetractPicture ifNil: [
>         RetractPicture := (SuffixPicture flipBy: #horizontal centerAt:
> (SuffixPicture center))].
>     SuffixArrowAllowance := 5 + SuffixPicture width + RetractPicture width.
>     UpArrowAllowance := 10.
> ! !
>
> !TileMorph class methodsFor: 'class initialization' stamp: 'edc 7/9/2008
> 07:05'!
> readInArrowGraphics
>     "TileMorph readInArrowGraphics"
>
>     | obj loader req |
> loader := CodeLoader new.
>     loader baseURL: 'http://squeakros.atspace.com/3dot10/EToys-Scripting
> Tiles/'..
>     req := loader createRequestFor:'tile inc arrow.morph' in: HTTPLoader
> default.
>     obj := loader readObject: req.
>     UpPicture := obj form.
> req := loader createRequestFor: 'tile dec arrow.morph' in: HTTPLoader default.
>     obj := loader readObject: req.
>     DownPicture := obj form.
> req := loader createRequestFor: 'tile suffix arrow.morph' in: HTTPLoader
> default.
>     obj := loader readObject: req.
>     SuffixPicture := obj form.! !