WAHalo

• renderContentOn:

• findStyles
• initialize
• render:
• renderHalo:withAction:on:
• renderHalo:withWindow:titled:on:
• renderMode
• source:
• sourceMode
• target
• target:

• for:
• initialize

InitialValue:

a WeakIdentityKeyDictionary()

inferredType:

WeakIdentityKeyDictionary

 
	| 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.
							target class hasTestSuite
								ifTrue: [self
										renderHalo: 'Halo-Tile'
										withWindow: [SCTestRunner forCase: target class suite]
										titled: 'Test Runner'
										on: haloHtml]]].
			haloHtml
				divClass: 'halo-contents'
				with: [self perform: mode contents with: html]].
	haloHtml close.
	html close

	| context |
	context _ WARenderingContext new
				document: WAStyleCollector new;
				actionUrl: WAUrl new;
				request: self session currentRequest.
	self target renderWithContext: context.
	^ String streamContents:
		[:s |
		context document styles do: [:ea | s nextPutAll: ea; space]]

	mode _ WAStateHolder new contents: #render:

	self target renderContentOn: html

	html
		anchorWithAction: aBlock
		text:  [html imageWithForm: (ScriptingSystem formAtKey: iconKey)].

	self
		renderHalo: iconKey
		withAction: [WARenderLoop new call: (componentBlock value
												addDecoration: (WAWindowDecoration new title: aString);
												yourself)]
		on: html

	mode contents: #render:

	| context haloHtml | 
	haloHtml := self rendererClass
					context: html context
					callbacks: html callbacks. 
	context := haloHtml context copy.	
	context clearMode.
	context document: (WAPrettyPrintedDocument renderer: haloHtml).
	haloHtml divClass: 'halo-source' with: [self target renderWithContext: context]. 
	haloHtml close. 

	mode contents: #source:

	^ target

	target _ aComponent

	^ Halos at: aComponent ifAbsentPut: [self new target: aComponent]

	Halos _ SeasidePlatformSupport weakDictionaryOfSize: 20.