Commit 7184cb3c authored by Bas Lijnse's avatar Bas Lijnse

Added convenience tuning of CSS style attribute

parent 0fd85bfe
......@@ -108,6 +108,9 @@ instance tune ScrollContent Task
:: AddCSSClass = AddCSSClass !String
instance tune AddCSSClass Task
:: CSSStyle = CSSStyle !String
instance tune CSSStyle Task
//Changing container types
toContainer :: LayoutRule
......
......@@ -312,6 +312,10 @@ instance tune AddCSSClass Task
where
tune (AddCSSClass s) t = tune (ApplyLayout (addCSSClass s)) t
instance tune CSSStyle Task
where
tune (CSSStyle s) t = tune (ApplyAttribute "style" s) t
instance tune ToWindow Task
where
tune (ToWindow windowType vpos hpos) t = tune (ApplyLayout (toWindow windowType vpos hpos)) t
......
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