WABrowser

• contents
• contents:
• initialize
• model
• model:
• renderContentOn:
• renderContentPaneOn:
• showClass
• showHelp
• showInstance

• accept
• update:

• notify:at:in:
• select
• selectFrom:to:
• selectionInterval
• text

• columnView:
• renderColumnsOn:
• renderMessageOn:
• renderModeButtonsOn:
• style

• fullOnClass:

	^contents

	contents _ aString

	self model: Browser new.

	^model 

	model _ aBrowserModel.
	model addDependent: self.
	self session registerObjectForBacktracking: model.
	contents _ model contents.

	self
		renderColumnsOn: html;
		renderModeButtonsOn: html;
		renderMessageOn: html;
		renderContentPaneOn: html
	

	html form: [
		html
			textAreaOn: #contents of: self;
			break;
			submitButtonOn: #accept of: self.
	]

	self model indicateClassMessages

	self model plusButtonHit

	self model indicateInstanceMessages

	|save|
	SeasidePlatformSupport ensureAuthorInitials: [self request: 'Please enter your initials:'].
	message _ nil.
	save _ contents.
	model contents: contents notifying: self.
	contents _ save.

	contents _ model contents

	message _ aString allButLast: 3

	^ 1 to: 1

	^ Text fromString: ''

	^WAPluggableSelectBox
		on: model
		list: (columnName, 'List') asSymbol
		selected: (columnName, 'ListIndex') asSymbol
		changeSelected: (columnName, 'ListIndex:') asSymbol

	|cols|
	cols _ #(systemCategory class messageCategory message)
				collect: [:sel | self columnView: sel].

	html table: [
		html tableRow: [
			cols do: [:ea | html tableData: [html render: ea]].
		]
	]

	message ifNotNil: [html bold: message]

	html form: [
		html
			submitButtonWithAction: [ self showInstance ] text: 'instance';
			submitButtonWithAction: [ self showHelp ] text: 'help';
			submitButtonWithAction: [ self showClass ] text: 'class' ]

	^ '

	#contents {width: 80%; height: 200px; font-family: serif; font-size: 12pt}

	'

	^ self new model: (Browser new setClass: aClass selector: nil)