[#181] Don't re-add a class with AddClass if it's already there

dotnet-websharper · Jul 12, 2018 · ac8bee1 · ac8bee1
1 parent 4a04eee
commit ac8bee1
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/WebSharper.UI/Doc.Proxy.fs b/WebSharper.UI/Doc.Proxy.fs
@@ -1100,8 +1100,13 @@ and [<JavaScript; Proxy(typeof<Elt>); Name "WebSharper.UI.Elt">]
     member this.GetProperty'(name: string) : 'T =
         elt?(name)
 
-    [<Name "AddClass"; Direct "$this.elt.className += ' ' + $cls">]
-    member this.AddClass'(cls: string) = X<unit>
+    [<Name "AddClass">]
+    member this.AddClass'(cls: string) =
+        let c = elt?className
+        if c = "" then
+            elt?className <- cls
+        elif not <| (clsRE cls).Test(c) then
+            elt?className <- elt?className + " " + cls
 
     [<Name "RemoveClass">]
     member this.RemoveClass'(cls: string) =