WALibraryBrowser

• find:
• findAll:
• goto:
• hits
• libraries
• library
• library:
• orderedHits
• renderColumnsOn:
• renderContentOn:
• renderEditorOn:
• renderHit:on:
• save
• search:
• selector
• selector:
• selectors
• string
• string:
• style

	| inst |
	self libraries do:
		[:ea |
		inst _ ea new.
		ea selectors do: 
			[:sel |
			((inst perform: sel) includesSubString: aString)
				ifTrue: [(hits at: (Array with: ea with: sel) ifAbsentPut: [SortedCollection new]) add: aString]]]

	hits _ Dictionary new.
	(aString findTokens: ' ') do: [:ea | self find: ea].
	hits isEmpty ifFalse: [self goto: self orderedHits first]

	library _ anArray first.
	selector _ anArray second

	^ hits ifNil: [#()]

	^ (WAStyleLibrary subclasses, WAScriptLibrary subclasses) asSortedCollection: [:a :b | a name <= b name]

	^ library

	library _ aLibraryClass.
	selector _ nil.

	^ hits keys asSortedCollection: [:a :b | (hits at: a) size >= (hits at: b) size]

	html attributes
			size: 10;
			submitOnChange.
		html
			selectFromList: self libraries
			selected: self library
			callback: [:v | self library: v].
		html attributes
			size: 10;
			submitOnChange.
		html
			selectFromList: self selectors
			selected: self selector
			callback: [:v | self selector: v].

	html divClass: 'stylebrowser-columns' with: [
		html form: [self renderColumnsOn: html].
	].
	html divClass: 'stylebrowser-search' with: [
		html form: [
			html textInputWithValue: search callback: [:v | search _ v].
			html space.
			html submitButtonWithAction: [self findAll: search] text: 'Search'.
		].
		html list: self orderedHits do:
			[:pair |
			self renderHit: pair on: html].
	].
	html divClass: 'stylebrowser-editor' with: [
		html form: [
			self renderEditorOn: html.
			html paragraph.
			html submitButtonWithAction: [self save] text: 'Save'.
		]
	].

	html attributes
		rows: 20;
		cols: 80.
	html textAreaWithValue: self string callback: [:v | self string: v].

	| text |
	text _ String streamContents:
			[:s |
			s nextPutAll: anArray first name.
			s nextPutAll: '>>'.
			s nextPutAll: anArray second.
			s space.
			s nextPutAll: '('.
			(hits at: anArray)
				do: [:ea | s nextPutAll: ea]
				separatedBy: [s nextPutAll: ', '].
			s nextPutAll: ')'].
	html anchorWithAction: [self goto: anArray] text: text.
	

	search _ aString.
	self findAll: search

	^ selector

	(library selectors includes: aSymbol) ifTrue: [selector _ aSymbol]

	^ library ifNil: [#()] ifNotNil: [library selectors]

	^ self selector ifNotNilDo: [:s | library new perform: s]

	self selector ifNotNilDo:
		[:sel |
		library compile: (sel, '
	^ ', aString printString)]

	^ '
	.stylebrowser-search {float: left}
	.stylebrowser-columns {float: left}
	.stylebrowser-editor {clear: both}
	'