[Seaside] Application context

[Ramon Leon]

>
> I agree with James but I'll be more specific, how about this...
>
> UserRepository class>>forApp: anApp
>     ^ (Repository ifNil: [Repository := Dictionary new ])
>         at: anApp ifAbsentPut: [ GDRepository for: ANUser ]
>
>
> ANComponent>>initialize
>     super initialize.
>     userRepository := UserRespository forApp: self session baseUrl
> printString.
>
> No need to stick the repository on a component class, create a unique class
> just for it, you get an automatic singleton because classes *are* singletons
> and why shouldn't a user repository be its own abstraction?
>
> Ramon Leon
> http://onsmalltalk.com
>

Or even better...

ANUser class>>repositoryForApp: anAppName
    ^ (Repository ifNil: [Repository := Dictionary new ])
        at: anAppName ifAbsentPut: [ GDRepository for: self ]

ANComponent>>initialize
    super initialize.
    userRepository := ANUser repositoryForApp: self session baseUrl
printString.

Let the ANUser class itself hold the repository for all its instances for
all entry points.  Then you don't have to think as much, you just establish
the pattern that a repository for any class is on that class.  This works
for prototyping in Squeak/Pharo and in Gemstone works as an actual
production solution because it'll automatically be persisted.

Ramon Leon
http://onsmalltalk.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/seaside/attachments/20090517/cbf7b787/attachment-0001.htm