Permalink
Browse files

Add a top-rounded function to the CSS library...

  • Loading branch information...
1 parent e07ca9c commit 40eb33688fb7b104a76b7632064b1dd5e7f85789 @samoht committed Nov 11, 2010
Showing with 16 additions and 0 deletions.
  1. +14 −0 css.ml
  2. +2 −0 css.mli
View
@@ -94,5 +94,19 @@ let rounded : t =
-moz-box-shadow: 0 1px 2px rgba(0,0,0,.2);
box-shadow: 0 1px 2px rgba(0,0,0,.2);
>>
+
+let top_rounded : t =
+ <:css<
+ text-shadow: 0 1px 1px rgba(0,0,0,.3);
+ -webkit-border-top-left-radius: .5em;
+ -webkit-border-top-right-radius: .5em;
+ -moz-border-radius-topleft: .5em;
+ -moz-border-radius-topright: .5em;
+ border-top-left-radius: .5em;
+ border-top-right-radius: .5em;
+ -webkit-box-shadow: 0 1px 2px rgba(0,0,0,.2);
+ -moz-box-shadow: 0 1px 2px rgba(0,0,0,.2);
+ box-shadow: 0 1px 2px rgba(0,0,0,.2);
+ >>
include Css
View
@@ -36,3 +36,5 @@ val to_string : t -> string
val gradient : low:t -> high:t -> t
val rounded: t
+
+val top_rounded : t

0 comments on commit 40eb336

Please sign in to comment.