[Seaside] Toggle Halos issue

[Benjamin Pollack]

On 4/20/05, Pavel Krivanek <squeak3 at continentalbrno.cz> wrote:
> > I think it is just a matter of someone having deleted
> > WAHalo>>renderContentOn: :)
> 
> :-) Confirm...
> 
> 

All right, that now officially ranks as stupidest bug I bothered to
confirm without fixing. :-)

I'm attaching the method in case you're as lazy as I am. Otherwise,
just file in Seaside 2.5b7 and then file in 2.5b8 again and the method
will show up.

--Benjamin

renderContentOn: html
	| haloHtml |
	haloHtml := self rendererClass 
					context: html context 
					callbacks: html callbacks. 
	haloHtml divClass: 'halo' with: [
		haloHtml divClass: 'halo-header' with: [
			haloHtml divClass: 'halo-icons' with: [
			haloHtml divClass: 'halo-mode' with: [
			haloHtml text: '['.
			haloHtml anchorWithAction: [self renderMode] text: 'R'.
			haloHtml text: ' | '.
			haloHtml anchorWithAction: [self sourceMode] text: 'S'.
			haloHtml text: ']'].
			haloHtml text: self target class name.
			haloHtml space.
			self
				renderHalo: 'Halo-Debug'
				withWindow: [WABrowser fullOnClass: self target class]
				titled: 'System Browser'
				on: haloHtml.
			self
				renderHalo: 'Halo-View'
				withWindow: [WAInspector on: self target]
				titled: 'Inspector'
				on: haloHtml.
			self renderHalo: 'Halo-Paint'
				withWindow: [WAViewer on: self target]
				titled: 'Style Editor'
				on: haloHtml.
			].
		].
		haloHtml divClass: 'halo-contents' with: [self perform: mode
contents with: html].
	].
	haloHtml close.
	html close.