[Seaside] Halos, styles, and components

[Todd Blanchard]

I've been playing with adding tweaks to smallblog and one of the little 
things I've run across is that any changes to a blog's style affect all 
blogs because style is stored as a method on the WAComponent.  While 
this is a great strategy for a website, its not so hot for multiple 
blogs that hope to have different themes.

So...

I've made a little change in WAViewer changing

renderCssOn: html
	html attributes rows: 20; cols: 80.
	html textAreaWithValue: presenter style callback:
		[:css |
		presenter class compile: 'style ^ ', css printString]

to

renderCssOn: html
	html attributes rows: 20; cols: 80.
	html textAreaWithValue: presenter style callback:
		[:css | presenter style: css ]

and adding a style: method to WAPresenter that does

style: aString
     self class compile: 'style ^', aString printString

This lets me override the style methods on SLFrame and delegate the 
keeping of the css to the SLBlog object itself.