On 2013-05-21, at 11:00, Frank Shearar <frank.shearar at gmail.com> wrote:

> This method looks like this:
> 
> localeChangedGently
>    #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
>        do: [:key | Smalltalk
>            at: key
>            ifPresent: [:class | class initialize]].
>    PartsBin localeChangedGently.
>    Project localeChangedGently.
>    PaintBoxMorph localeChangedGently.
>    ColorPickerMorph localeChangedGently.
>    Preferences localeChangedGently.
> 
> Firstly, it should just say something like
> 
> localeChangedGently
>    self environment allClassesDo: [:cls |
>        (cls respondsTo: #localeChangedGently) ifTrue: [cls
> localeChangedGently]]
> 
> or, even better, have classes register with something to show that
> they have work to do when changing locale:
> 
> localeChangedGently
>    allRegisteredObjects do: [:o | o localeChangedGently].
> 
> But secondly, this is the sole implementor of #localeChangedGently!

In the Etoys image there are 5 implementers of it, one of which is 

Object>>localeChangedGently
	self localeChanged.

The localization stuff has not been ported completely, yet.

> I thought I'd broken SystemNavigation with my recent hacking, but I
> have a pre-Environment-friendly-SystemNavigation image, and I see no
> other implementors there either.
> 
> frank
> 

- Bert -