[Squeak] Seaside 3.0 セッションの設定

Seaside 3.0のセッションをCookieベースにする方法や，セッションの有効時間の方法についてメモします．
セッションの有効時間の方法は本当にこれでいいのか微妙です．

2.8系

initialize
"self initialize"
| app |
app := self registerAsApplication:'sas'.
app preferenceAt: #useSessionCookie put:true.
app preferenceAt: #sessionExpirySeconds put: 3600.
^application

3.0系

initialize
"SASFComponent initialize" 
|app|
app := WAAdmin register: (self asApplicationAt: 'sas').
app preferenceAt: #useCookies put: true.
app cache expiryPolicy configuration at: #cacheTimeout put: 3600.

一時変数appに格納されるのは，WARegistryクラスを継承したWAApplicationのインスタンスです．

3.0系でも，WAComponent>>(class)registerAsApplication: があるので，アプリケーションの登録方法は従来通りできますが，別の方法もあるようなので，メモしておきました．