Added convenience tuning of CSS style attribute

Libraries/iTasks/UI/Layout/Common.dcl

@@ -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

Libraries/iTasks/UI/Layout/Common.icl

@@ -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