Commit 1ed4f2ee authored by Bas Lijnse's avatar Bas Lijnse

Small layout tweak for nested records

parent 4ef7d56a
......@@ -58,6 +58,7 @@ finalizeRecord :: Layout
finalizeRecord = sequenceLayouts
[layoutChildrenOf [] finalizeEditor
,setNodeType UIContainer
,setAttributes (heightAttr WrapSize)
]
finalizeCons :: Layout
......@@ -124,7 +125,9 @@ isIntermediate (UI type _ _) = isMember type [UIInteract,UIStep,UIParallel]
isFormComponent (UI type _ _) = isMember type
[UITextField,UITextArea,UIPasswordField,UIIntegerField,UIDecimalField
,UICheckbox,UISlider,UIDocumentField,UIDropdown,UIRadioGroup,UICheckboxGroup]
,UICheckbox,UISlider,UIDocumentField,UIDropdown,UIRadioGroup,UICheckboxGroup
,UITextView,UIHtmlView
]
instance == UINodeType where (==) x y = x === y
//Flatten an editor into a form
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment