'From Squeak3.6 of ''6 October 2003'' [latest update: #5429] on 4 September 2004 at 2:37:33 pm'!
WAComponent subclass: #SelectorWithCalendarExample
	instanceVariableNames: 'comp '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'WADateExamples'!

!SelectorWithCalendarExample methodsFor: 'tree' stamp: 'cds 8/30/2004 20:00'!
children
	^Array with: comp! !

!SelectorWithCalendarExample methodsFor: 'tree' stamp: 'cds 9/4/2004 14:27'!
renderContentOn: html 
	html text: 'Personal information:'.
	html form: [
		html table: [
			html tableRow: [
				html tableData: 'Name:'.
				html tableData: [html
				textInputWithCallback: [:v | v]]].
			html tableRow: [
				html tableData: 'Birth date:'.
				html tableData: [html render: comp]].
			html tableRow: [
				html tableData: 'Country of birth:'.
				html tableData: [html
				textInputWithCallback: [:v2 | v2]]]]]! !


!SelectorWithCalendarExample methodsFor: 'initialization' stamp: 'cds 8/30/2004 19:59'!
initialize
	super initialize.
	comp _ SelectorWithCalendar new.! !


"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

SelectorWithCalendarExample class
	instanceVariableNames: ''!

!SelectorWithCalendarExample class methodsFor: 'seaside' stamp: 'cds 8/30/2004 20:01'!
canBeRoot
	^true! !