)

-- | An instance. 
instance A.AttrHasGlobals TextArea where
   attrSetGlobals pp bm = bm { _textAreaGlobals = Just pp }

-- Global attributes require the following 
defTextArea ∷ TextArea
defTextArea = TextArea Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing
defTextArea = TextArea Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing