WAFormDialog

Seaside-Components-Dialogs

Comment: 






Hierarchy:




ProtoObject

Object

WAPresenter


WAComponent


WAFormDialog


















Summary:






instance variables:








form

validationError











methods:








instance
class


as yet unclassified


no messages

    







Detail:






instance variables:








form









validationError











instance methods:








as yet unclassified




addForm







	form _ WAFormDecoration new buttons: self buttons.
	self addDecoration: form






addFormByDefault







	^ true






buttons







	^ #(ok)






divClass







	^ self class name






initialize







	self addFormByDefault ifTrue: [self addForm]






isValid







	^ validationError isNil






labelForSelector: aSymbol







	^ aSymbol asCapitalizedPhrase 






model







	^ self






ok







	self answer






removeForm







	form ifNotNil: [self removeDecoration: form]






renderContentOn: html







	html hiddenInputWithCallback: [validationError _ nil].
	validationError ifNotNil:
		[self renderValidationError: validationError on: html].
	html divClass: self divClass with: [self renderDialogOn: html].






renderDialogOn: html












renderSpacerRowOn: html







	html divClass: 'dialog-spacer' with: [html space]






renderValidationError: aString on: html







	html spanClass: 'dialog-validation' with: aString






validationError: aString







	validationError _ aString












class methods:







^top






- made by Dandelion -